home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / xul / xuiString.tcl < prev    next >
Text File  |  2000-11-02  |  1KB  |  52 lines
  1.  
  2. class xuiString {
  3.     inherit xuiObject
  4.  
  5.     variable value {}
  6.     variable default {}
  7.     variable width 20
  8.     
  9.         constructor {} {
  10.     setXuiClass string
  11.     }   
  12.     method setValue {newValue} {
  13.     set value $newValue}
  14.     method getValue {} {return $value}
  15.  
  16.  
  17.     method setDefault {newDefault} {set default $newDefault}
  18.     method getDefault {} {return $default}
  19.     method setWidth {newWidth} {set width $newWidth}
  20.     method getWidth {} {return $width}
  21.  
  22.  
  23.     method getText {} { return $value }
  24.     method clone 
  25.     method copyClone { clone }
  26.     method reset {}
  27. }
  28.  
  29. body xuiString::reset {} {
  30.    set value $default
  31. }
  32.  
  33. body xuiString::clone {{parentName {::#auto}}} {
  34.    set clone [xuiString $parentName.$name]
  35.    copyClone $clone
  36.    return $clone
  37. }
  38.  
  39. body xuiString::copyClone { clone } {
  40.    xuiObject::copyClone $clone
  41.    $clone setValue $value
  42.    $clone setDefault $default
  43.    $clone setWidth $width
  44.    $clone setXuiClass $xuiClass
  45. }
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.