home *** CD-ROM | disk | FTP | other *** search
/ Chip: Linux Special / CorelLinux_CHIP.iso / VMware / bin / vmware-wizard / _proWrapInit_.tcl next >
Encoding:
Text File  |  1999-11-08  |  498 b   |  22 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.     set tcl_pkgPath {lib/tcl8.0/http2.0 lib/tcl8.0/http1.0}
  21.  
  22.