home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / xul / xuiNode.tcl < prev    next >
Text File  |  2000-11-02  |  1KB  |  49 lines
  1.  
  2. class xuiNode {
  3.     inherit xuiObject
  4.  
  5.     variable openIcon {openFolder}
  6.     variable closedIcon {closedFolder}
  7.     variable id {}
  8.     constructor {} {
  9.  
  10.     setXuiClass node
  11.  
  12.     }
  13.     destructor {
  14.     }
  15.     method getId {} {return $id}
  16.     method setId { nodeId } { set id $nodeId }
  17.     method getChildrenList {} { return $childrenList }
  18.     method setChildrenList { xuiObj } { set childrenList $xuiObj }
  19.     method getClosedIcon {} { return $closedIcon }
  20.     method setClosedIcon { icon } { set closedIcon $icon }
  21.     method getOpenIcon {} { return $openIcon }
  22.     method setOpenIcon { icon } { set openIcon $icon }
  23.     method getText {}
  24.  
  25.     method clone
  26.     method copyClone { clone }
  27. }
  28.  
  29. body xuiNode::clone {{parentName {::#auto}}} {
  30.    set clone [xuiNode $parentName.$name]
  31.    copyClone $clone
  32.    return $clone
  33. }
  34.  
  35. body xuiNode::copyClone { clone } {
  36.    xuiObject::copyClone $clone
  37.    $clone setOpenIcon $openIcon
  38.    $clone setClosedIcon $closedIcon
  39.    $clone setId $id
  40.    $clone setXuiClass $xuiClass
  41. }
  42.  
  43. body xuiNode::getText {} {
  44.     return $label
  45. }
  46.  
  47.  
  48.  
  49.