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