#------------------------------------------------------------------------ # Compagny : 4Js # Developper : PM # Program : $PROJET/objects/label.obj # Date : 12.10.1995 # Title : Description de la classe Scrollbar #------------------------------------------------------------------------ #====================================================================== Class rScrollbar { inherit rWidget Scrollbar global Default #vars : public geo_width 30 public geo_height 200 public geo_orientation "vertical" public geo_bg $Default(Label,Bg) public geo_relief $Default(Label,Relief) public geo_expand 0 public geo_text "Scrollbar" public int_moveable "Y" public int_show_attr "Y" protected _geo_bg "" protected _geo_fg "" protected _geo_active_fg "" protected _geo_relief "" protected _res_list "geo_fg geo_bg geo_active_fg" #----------------------------------------------------------------------- constructor {config} { } method place_it { } { # puts "For $this, geo_x is $geo_x, and geo_y is $geo_y" place configure $geo_widget \ -x $geo_x \ -y $geo_y \ -height $geo_height # puts "la commande executee sera $cmd" } } # ======================================================================