home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / namespace / plugInDatabase.tcl < prev   
Encoding:
Text File  |  2000-11-02  |  439 b   |  21 lines
  1.  
  2. # plugInDatabase --
  3. #  Keeps track of which plugIns are interested in which class of nodes
  4.  
  5. class plugInDatabase {
  6.     variable classMaping
  7.     method registerPlugInClass { plugIn class} {
  8.     lappend classMaping($class) $plugIn
  9.     }
  10.     method getPlugInsFromClasses { classes } {
  11.     return {}
  12.     foreach class $classes {
  13.         foreach pg $classMapping($class) {
  14.         set tmp($pg) 1
  15.         }
  16.     }
  17.     return [array names tmp]
  18.     }
  19. }
  20.  
  21.