home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / plugins / hostname / init.tcl < prev   
Encoding:
Text File  |  2000-11-02  |  890 b   |  30 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 hostname.tcl]
  7.  
  8. proc hostname_init { args } {
  9.     array set options $args
  10.     [hostnamePlugIn ::#auto] init -namespace $options(-namespace) \
  11.          -moduledirectory $options(-moduledirectory)         
  12. }    
  13.  
  14. proc hostname_init { args } {
  15.     array set options $args
  16.     [hostnamePlugIn ::#auto] init -namespace $options(-namespace) \
  17.          -moduledirectory $options(-moduledirectory)         
  18. }
  19.  
  20. proc hostname_info {} {
  21.      array set info [list description [mesg::get hostname_description]]
  22.      array set info {name {hostname}}
  23.      array set info {version {1.0}}
  24.      array set info {icon network}
  25.      return [array get info]
  26. }
  27.             
  28.             
  29.                          
  30.