summaryrefslogtreecommitdiff
path: root/itcl/itcl/mac/itclMacTclCode.r
diff options
context:
space:
mode:
Diffstat (limited to 'itcl/itcl/mac/itclMacTclCode.r')
-rw-r--r--itcl/itcl/mac/itclMacTclCode.r32
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";