home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / gui / guiImage.tcl < prev    next >
Text File  |  2000-11-02  |  232b  |  12 lines
  1.  
  2. class guiImage  {
  3.     inherit guiObject
  4.     constructor {frame xuiImage} {
  5.     pack [label $frame.l -image [$xuiImage getImage]]
  6.     }
  7.     method enable {} {}
  8.     method disable {} {}
  9.     method queryState {} {return 1}
  10. }
  11.  
  12.