home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / xuibuilder / xuiPropertyPageCreator.tcl < prev    next >
Text File  |  2000-11-02  |  1KB  |  37 lines
  1.  
  2. # propertyPageCreator --
  3. #    The estraStuff hook is added to process the icon attribute
  4.  
  5. class propertyPageCreator {
  6.     inherit structureCreator
  7.     method processSyntax
  8.     method extraStuff
  9.     method createObject
  10. }
  11.  
  12.  
  13. body propertyPageCreator::createObject {token xuiBuilder} {
  14.   if [string length [set parentName [$xuiBuilder cget -currentParentName]]] {
  15.               set name $parentName.[dom::getAttribute $token name]
  16.   } else {
  17.              set name ::#auto
  18.   }                        
  19.   return [xuiPropertyPage $name]
  20. }
  21.       
  22.  
  23. body propertyPageCreator::processSyntax { token object xuiBuilder} {
  24.      $object setAlign [dom::getAttribute $token align]
  25. foreach component [dom::getElements $token] {
  26.    $xuiBuilder configure -currentParentName $object
  27. $object addComponent [ $xuiBuilder handleObject $component]
  28. }
  29. }
  30.  
  31. body propertyPageCreator::extraStuff {token object xuiBuilder} {
  32.         if [llength [set w [dom::getAttribute $token icon]]] {
  33.            $object configure -icon $w
  34.         }
  35. }
  36.  
  37.