#===============================================================
#
#---------------------------------------------------------------

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