home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / comanche.exe / lib / tclX8.0.5 / tclx.tcl < prev   
Text File  |  1999-02-24  |  980b  |  29 lines
  1. #-----------------------------------------------------------------------------
  2. # tclx.tcl -- Extended Tcl initialization.
  3. #-----------------------------------------------------------------------------
  4. # $Id: tclx.tcl,v 8.2 1997/11/11 05:33:19 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 ![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.