home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / plugins / test / init.tcl next >
Text File  |  2000-11-02  |  798b  |  27 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 test.tcl]
  7.  
  8. namespace eval ::test:: "set pp [file join $currentDir pp.xml]"
  9.  
  10. # Quoted so current dir is current and not ::manager::
  11.  
  12. proc test_init { args } {
  13.     array set options $args
  14.    [nameserversPlugIn ::#auto] init -namespace $options(-namespace) \
  15.          -moduledirectory $options(-moduledirectory)
  16. }    
  17. proc test_info {} {
  18.      array set info [list description [mesg::get hostname_description]]
  19.      array set info {name {hostname}}
  20.      array set info {version {1.0}}
  21.      array set info {icon network}
  22.      return [array get info]
  23. }
  24.             
  25.             
  26.                          
  27.