home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / comanche.exe / _proWrapInit_.tcl next >
Text File  |  1999-04-05  |  584b  |  32 lines
  1. # _proWrapInit_.tcl
  2. #     TclPro Wrapper initialization script
  3. set tcl_platform(isWrapped) 1
  4.  
  5.     rename load load_unsupported
  6.     proc load {args} {
  7.         if {[string trim [lindex $args 0]] == {}} {
  8.         eval load_unsupported $args
  9.         } else {
  10.         error "\"load\" command is not supported in a statically  wrapped application; use \"load_unsupported\" command"
  11.         }
  12.     }
  13.     
  14.  
  15.     set tcl_library {lib/tcl8.0}
  16.     
  17.  
  18.     set tk_library {lib/tk8.0}
  19.     
  20.  
  21.     
  22.  
  23.     
  24.  
  25.     
  26.  
  27.     
  28.  
  29.     
  30.     set tcl_pkgPath {lib/tcl8.0/http2.0 lib/tcl8.0/http1.0 lib/iwidgets2.2.0 lib/iwidgets3.0.0 lib/_staticPackage_}
  31.  
  32.