#===============================================================
# 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