tcl/mac/tclMacResource.r

   1 /*
   2  * tclMacResource.r --
   3  *
   4  *      This file creates resources for use in a simple shell.
   5  *      This is designed to be an example of using the Tcl libraries
   6  *      statically in a Macintosh Application.  For an example of
   7  *      of using the dynamic libraries look at tclMacApplication.r.
   8  *
   9  * Copyright (c) 1993-94 Lockheed Missle & Space Company
  10  * Copyright (c) 1994-97 Sun Microsystems, Inc.
  11  *
  12  * See the file "license.terms" for information on usage and redistribution
  13  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  14  *
  15  * RCS: @(#) $Id$
  16  */
  17
  18 #include <Types.r>
  19 #include <SysTypes.r>
  20
  21 /*
  22  * The folowing include and defines help construct
  23  * the version string for Tcl.
  24  */
  25
  26 #define RC_INVOKED
  27 #include "tcl.h"
  28
  29 /*
  30  * The mechanisim below loads Tcl source into the resource fork of the
  31  * application.  The example below creates a TEXT resource named
  32  * "Init" from the file "init.tcl".  This allows applications to use
  33  * Tcl to define the behavior of the application without having to
  34  * require some predetermined file structure - all needed Tcl "files"
  35  * are located within the application.  To source a file for the
  36  * resource fork the source command has been modified to support
  37  * sourcing from resources.  In the below case "source -rsrc {Init}"
  38  * will load the TEXT resource named "Init".
  39  */
  40
  41 #ifndef TCLTK_NO_LIBRARY_TEXT_RESOURCES
  42 #include "tclMacTclCode.r"
  43 #endif
  44