home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / gui / guiPropertyPagesNotebook.tcl < prev    next >
Text File  |  2000-11-02  |  983b  |  43 lines
  1.  
  2.  
  3. class guiPropertyPagesNotebook {
  4.     inherit guiObject
  5.     variable elements {}
  6.     variable noteBook
  7.     variable pageToXuiMapping
  8.     constructor { frame xuiObject guiBuilder} {
  9.     set subject $xuiObject
  10.     set i 0
  11.     
  12.     set noteBook [NoteBook $frame.nb -width 400 -height 300]
  13.  
  14.  
  15.     foreach item [$subject getComponents] {
  16.     
  17.  
  18.         set itemName [$item getName]
  19.     $noteBook insert end $itemName  -text [$item getLabel] \
  20.        -image [$item cget -icon] 
  21.     set pageToXuiMapping($itemName) $item
  22.     set newFrame [$noteBook getframe $itemName]
  23.  
  24.     lappend elements [$guiBuilder render $newFrame $item]
  25.         lappend items $itemName
  26.     }
  27.     #$noteBook compute_size
  28.     pack $noteBook -fill both -expand true
  29.     $noteBook raise [lindex $items 0]
  30.     }
  31.     destructor {
  32.        eval delete object $elements
  33.        eval destroy $noteBook
  34.     }
  35.     method enable {}
  36.     method disable {}
  37.     method queryState {} 
  38.     method getSelectedPropertyPageXui {} {
  39.     return $pageToXuiMapping([$noteBook raise])
  40.     }
  41. }
  42.  
  43.