#=============================================================== # Horizontal title menu # # Resource name in locals.tcl : FglMenuNameH # Date : 20/03/1997 #--------------------------------------------------------------- Class rHorMenuTitle { inherit rButton public geo_x 50 public geo_y 10 protected _geo_bg "" protected _geo_active_bg "" protected _geo_fg "" protected _geo_relief "" protected _res_list "geo_bg geo_relief geo_borderwidth" public int_moveable "Y" public int_show_attr "Y" constructor { config } { set geo_text "Horizontal Menu Title" } } ;# end of class