home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / lib / tclX8.3 / tclx.tcl < prev    next >
Encoding:
Text File  |  2001-10-22  |  1010 b   |  29 lines
  1. #-----------------------------------------------------------------------------
  2. # tclx.tcl -- Extended Tcl initialization.
  3. #-----------------------------------------------------------------------------
  4. # $Id: tclx.tcl,v 8.3 1999/05/03 17:30:36 markd Exp $
  5. #-----------------------------------------------------------------------------
  6.  
  7. if {[info exists tclx_library] && ![cequal $tclx_library {}]} {
  8.     set auto_index(buildpackageindex) {source [file join $tclx_library buildidx.tcl]}
  9.     if {![info exists auto_path] || ![lcontain $auto_path $tclx_library]} {
  10.     lappend auto_path $tclx_library
  11.     }
  12. }
  13. # == Put any code you want all Tcl programs to include here. ==
  14.  
  15. if !$tcl_interactive return
  16.  
  17. # == Interactive Tcl session initialization ==
  18.  
  19. # Replace standard Tcl prompt with out prompt if its the TclX shell
  20.  
  21. if ![info exists tcl_prompt1] {
  22.     set tcl_prompt1 {global argv0; puts -nonewline stdout [file tail $argv0]>}
  23. }
  24. if ![info exists tcl_prompt2] {
  25.     set tcl_prompt2 {puts -nonewline stdout =>}
  26. }
  27.  
  28.  
  29.