#===============================================================
# Compagny	:	4Js
# Developper	:	PhM
# Program	:	$CFGDESI/objects/rtsframe.tko
# Project	:	ConfDaisy.tko
# Date		:	23.10.1995
# Last modif.	:	23.10.1995
# Explication	: Resource managment...,
#	Multiple inheritance ; some attributs associated with
# some methods are needed in a lower level of hierarchie. But
# we do NOT want to change the high levels of hierarchie. Please
# see color graphic in the documentation.
#---------------------------------------------------------------

Class rFrameTask {
inherit rFrame

	public geo_x	   50
	public geo_y	   60
  	public geo_text "Screen"

	protected _geo_bg		""
	protected _geo_default_bg	""
	protected _geo_fg		""
	protected _geo_relief		""
	protected _geo_borderwidth	""
	protected _geo_height		""
	protected _res_list   "geo_bg  geo_relief geo_borderwidth "

	public int_moveable	"Y"
	public int_show_attr	"Y"

constructor { config } {
  }


#===============================================================
# cfg_calibrate :
#	See definition in rwidget.tko
#...............................................................

method cfg_calibrate { } {
  # puts stderr "rKeyFrame::cfg_calibrate pass for $this"
  ${this}_lab config -geo_y [expr $geo_height - 35 - $geo_borderwidth * 2]
  }
}	;# end of class