Diff

Differences From Artifact [9bfdc99cac]:

To Artifact [9995cd87d7]:


   106    106   
   107    107   #ifdef TCLKIT_REQUIRE_TCLEXECUTABLENAME
   108    108   char *tclExecutableName;
   109    109   #endif
   110    110   
   111    111   /*
   112    112    *  Attempt to load a "boot.tcl" entry from the embedded MetaKit file.
   113         - *  If there isn't one, try to open a regular "setup.tcl" file instead.
   114         - *  If that fails, this code will throw an error, using a message box.
   115    113    */
   116    114   /*
   117    115    * This Tcl code is invoked whenever Tcl_Init() is called on an
   118    116    * interpreter.  It should mount up the VFS and make everything ready for
   119    117    * that interpreter to do its job.
   120    118    */
   121    119   static char *preInitCmd = 
................................................................................
   196    194   		"catch {\n"
   197    195   			"set s [::vfs::cvfs::data::getData tcl boot.tcl]\n"
   198    196   		"}\n"
   199    197   	"}\n"
   200    198   #endif /* KIT_STORAGE_CVFS */
   201    199   #ifndef TCLKIT_DLL
   202    200   	"if {![info exists s]} {\n"
   203         -		"set f [open setup.tcl]\n"
   204         -		"set s [read $f]\n"
   205         -		"close $f\n"
          201  +		"set s \"\"\n"
   206    202   	"}\n"
   207    203   #endif /* !TCLKIT_DLL */
   208    204   #ifdef TCLKIT_DLL
   209    205   	"set ::TCLKIT_TYPE \"kitdll\"\n"
   210    206   #else
   211    207   	"set ::TCLKIT_TYPE \"tclkit\"\n"
   212    208   #endif /* TCLKIT_DLL */