home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / xul / xuiPropertyPage.tcl < prev    next >
Text File  |  2000-11-02  |  626b  |  28 lines
  1.  
  2. class xuiPropertyPage {
  3.     inherit xuiStructure
  4.     
  5.     # Property page under which to hook 
  6.     
  7.     public variable hookUnder {}
  8.     public variable icon closedFolder
  9.         constructor {} {
  10.     setXuiClass propertyPage
  11.     }   
  12.     method clone
  13.     method copyClone
  14. }
  15.  
  16. body xuiPropertyPage::clone {{parentName ::#auto}} {
  17.    set clone [xuiPropertyPage $parentName.$name]
  18.    copyClone $clone
  19.    return $clone
  20. }
  21.  
  22. body xuiPropertyPage::copyClone { clone } {
  23.    xuiStructure::copyClone $clone
  24.    $clone configure -icon [$this cget -icon]
  25.    $clone configure -hookUnder [$this cget -hookUnder]
  26. }
  27.  
  28.