#=============================================================== # Compagny : 4Js # Developper : PhM # Program : $CFGDESI/objects/rtsframe.tko # Project : ConfDaisy.tko # Date : 23.10.1995 # Last modif. : 23.10.1995 # 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 rFrameTask { inherit rFrame public geo_x 50 public geo_y 60 public geo_text "Screen" protected _geo_bg "" protected _geo_default_bg "" protected _geo_fg "" protected _geo_relief "" protected _geo_borderwidth "" protected _geo_height "" protected _res_list "geo_bg geo_relief geo_borderwidth " public int_moveable "Y" public int_show_attr "Y" constructor { config } { } #=============================================================== # cfg_calibrate : # See definition in rwidget.tko #............................................................... method cfg_calibrate { } { # puts stderr "rKeyFrame::cfg_calibrate pass for $this" ${this}_lab config -geo_y [expr $geo_height - 35 - $geo_borderwidth * 2] } } ;# end of class