diff options
Diffstat (limited to 'itcl/itcl/mac/itclMacTclCode.r')
-rw-r--r-- | itcl/itcl/mac/itclMacTclCode.r | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/itcl/itcl/mac/itclMacTclCode.r b/itcl/itcl/mac/itclMacTclCode.r deleted file mode 100644 index 18411a7c8e3..00000000000 --- a/itcl/itcl/mac/itclMacTclCode.r +++ /dev/null @@ -1,32 +0,0 @@ -/* - * itclMacTclCode.r - * - * This file includes the Itcl code that is needed to startup Tcl. - * It is to be included either in the resource fork of the shared library, or in the - * resource fork of the application for a statically bound application. - * - * Jim Ingham - * Lucent Technologies 1996 - * - */ - -#include <Types.r> -#include <SysTypes.r> - - - -#define ITCL_LIBRARY_RESOURCES 2500 - -/* - * 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". - */ - -read 'TEXT' (ITCL_LIBRARY_RESOURCES, "itcl", purgeable,preload) "::library:itcl.tcl"; |