#=============================================================== # Compagny : 4Js # Developper : PM # Program : $CFGDESI/objects/frame.tko # Project : ConfDaisy.tko # Date : 23.10.1995 # Last modif. : 03.04.1997 # Explication : Resource managment..., # Multiple inheritance ; some attributs associated with # some methods are needed in a lower level of hierarchie. But # we do NOT want to change the high levels of hierarchie. Please # see color graphic in the documentation. #--------------------------------------------------------------- Class rFrame { ;# "rWidget" must be first, because it short cuts inherit rWidget Frame ;# some standard method like public geo_x 50 public geo_y 30 public geo_width 200 public geo_height 100 public geo_text "Window" public int_geoman place_it protected _geo_bg "" protected _geo_relief "" protected _res_list "geo_bg geo_relief geo_borderwidth " public int_moveable "Y" public int_show_attr "Y" constructor { config } { set txt [$this getPub -geo_text] if { $txt != "" } { $this add_member [Label ${this}_lab -geo_bg white -geo_text $txt -geo_x 1 -geo_y 1] } } } ;# end of class