home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / gui / guiLabel.tcl < prev    next >
Encoding:
Text File  |  2000-11-02  |  852 b   |  39 lines
  1.  
  2. class guiLabel  {
  3.     inherit guiObject 
  4.     variable label
  5.     variable value
  6.     constructor {frame xuiString} {
  7.     set subject $xuiString
  8.     set label [Label $frame.l ]
  9.     $label configure -text [$subject getLabel] -justify left
  10.     if ![string compare [set value [$subject getValue]] ""] {
  11.         set value [set default [$subject getDefault]]
  12.     }
  13.     pack $label -side left
  14.     }
  15.     method enable {}
  16.     method disable {}
  17.     method queryState {}
  18.     method getLabelLength {} { 
  19.     return [string length [$subject getLabel]]
  20.     }
  21.     method setLabelLength { length } { $label configure -width $length }
  22. }
  23.  
  24. body guiLabel::enable {} {
  25.     set state 1
  26.     $label configure -state normal
  27. }
  28.  
  29. body guiLabel::disable {} {
  30.     set state 0
  31.     $label configure -state disabled
  32. }
  33.  
  34. body guiLabel::queryState {} {
  35.     return $state
  36. }
  37.  
  38.  
  39.