通讯编程

开发平台：

Visual C++

tkMacResource.r：源码内容

							/*
 * tkMacResources.r --
 *
 *	This file creates resources for use in a simple shell.
 *	This is designed to be an example of using the Tcl/Tk 
 *	libraries in a Macintosh Application.
 *
 * Copyright (c) 1993-1994 Lockheed Missle & Space Company, AI Center
 * Copyright (c) 1995-1997 Sun Microsystems, Inc.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tkMacResource.r,v 1.10 2002/09/12 17:34:16 das Exp $
 */
/*
 * We define SystemSevenOrLater so that our dialogs may use the 
 * auto center feature.
 */
#define SystemSevenOrLater 1
#include <Types.r>
#include <SysTypes.r>
/*
 * The folowing include and defines help construct
 * the version string for Tcl.
 */
#define RC_INVOKED
#include "tcl.h"
#include "tk.h"
/* 
 * The mechanisim below loads Tcl source into the resource fork of the
 * application.  The example below creates a TEXT resource named
 * "Init" from the file "init.tcl".  This allows applications to use
 * Tcl to define the behavior of the application without having to
 * require some predetermined file structure - all needed Tcl "files"
 * are located within the application.  To source a file for the
 * resource fork the source command has been modified to support
 * sourcing from resources.  In the below case "source -rsrc {Init}"
 * will load the TEXT resource named "Init".
 */
#ifndef TCLTK_NO_LIBRARY_TEXT_RESOURCES
#include "tkMacTclCode.r"
#endif
/*
 * The following two resources define the default "About Box" for Mac Tk.
 * This dialog appears if the "About Tk..." menu item is selected from
 * the Apple menu.  This dialog may be overridden by defining a Tcl procedure
 * with the name of "tkAboutDialog".  If this procedure is defined the
 * default dialog will not be shown and the Tcl procedure is expected to
 * create and manage an About Dialog box.
 */
 
resource 'DLOG' (128, "Default About Box", purgeable) {
    {85, 107, 260, 412}, dBoxProc, visible, goAway, 0,
     128, "", centerMainScreen
};
resource 'DITL' (128, "About Box", purgeable) {
    {
	{143, 147, 167, 201}, Button	    {enabled, "Ok"},
	{ 14, 108, 137, 314}, StaticText    {disabled, 
	    "Wish - Windowing Shell" "n" "based on Tcl " 
	    TCL_PATCH_LEVEL " & Tk " TK_PATCH_LEVEL "nn" 
            "Jim Ingham & Ray Johnson" "n"
	    "

						