#=============================================================== # #--------------------------------------------------------------- Class rCanvas { inherit rListbox public geo_x 50 public geo_y 10 public geo_text "Canvas" public geo_height 3 public geo_width 10 protected _geo_relief "" protected _geo_bg "" protected _geo_borderwidth "" protected _res_list "geo_bg geo_relief geo_borderwidth" public int_moveable "Y" public int_show_attr "Y" constructor { config } { set geo_text "Canvas" } } ;# end of class