home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / plugins / resolv / init.tcl next >
Encoding:
Text File  |  2000-11-02  |  1.2 KB  |  45 lines
  1.  
  2. # This is a template file to help you create your own plugins
  3.  
  4. # Determine my current directory
  5.  
  6. set currentDir [file dirname [file join [pwd] [info script]]]
  7.  
  8. # Process messages catalogs
  9.  
  10. catch {::mesg::processMesgCatalogDir [file join $currentDir messages]}
  11.  
  12. source [file join $currentDir resolv.tcl]
  13.  
  14. # Create our own namespace and save the location of any relevant files for
  15. # future use by plugin instances. In this case we are saving the location
  16. # of the XML description of a property page
  17.  
  18. namespace eval ::resolv:: {
  19.     variable pp
  20. }
  21.  
  22. set ::resolv::pp [file join $currentDir pp.xml]
  23.  
  24.  
  25. # Convention: Create init function with the name of your plugin_init 
  26.  
  27. proc resolv_init { args } {
  28.     array set options $args
  29.    [nameserversPlugIn ::#auto] init -namespace $options(-namespace) \
  30.          -moduledirectory $options(-moduledirectory)
  31. }    
  32.  
  33. # Some data about your plugin
  34.  
  35. proc resolv_info {} {
  36.      array set info [list description [mesg::get resolv_description]]
  37.      array set info {name {hostname}}
  38.      array set info {version {1.0}}
  39.      array set info {icon network}
  40.      return [array get info]
  41. }
  42.             
  43.             
  44.                          
  45.