#------------------------------------------------------------------------ # Compagny : 4Js # Developper : PM # Program : $PROJET/objects/text.obj # created : 05.10.1995 # Date : 05.10.1995 # Title : Description des classes de base #------------------------------------------------------------------------ # Explication : # TextWidget is an abstract class like the Widget class, with # some text specification. # ====================================================================== Class TextWidget { inherit Widget global Default #vars : public geo_text "" public geo_anchor "center" public geo_font "" public geo_fg $Default(Entry,Fg) public geo_active_bg $Default(Entry,ActiveBg) constructor { config } { set geo_text $this } } ;# end of class # ======================================================================