#=============================================================== # Compagny : 4Js # Developper : PM # Program : $CFGDESI/objects/default.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 rDefault { ;# inherit rWidget Frame ;# only for the pleasure of your eyes public geo_x 50 public geo_y 10 public geo_width 300 public geo_height 200 public int_geoman place_it protected _geo_bg "" protected _geo_borderwidth "" protected _res_list "geo_bg" protected _geo_relief "" public int_moveable "Y" public int_show_attr "Y" constructor { config } { set geo_text "Default" } } ;# end of class