home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / plugins / manager / init.tcl next >
Encoding:
Text File  |  2000-11-02  |  396 b   |  13 lines
  1. # Determine my current directory
  2.  
  3. set currentDir [file dirname [file join [pwd] [info script]]]
  4.  
  5. mesg::processMesgCatalogDir [file join $currentDir messages]
  6. source [file join $currentDir manager.tcl]
  7.  
  8. proc manager_init { args } {
  9.     array set options $args
  10.     [managerPlugIn ::#auto] init -namespace $options(-namespace) \
  11.         -moduledirectory $options(-moduledirectory)
  12. }    
  13.