#===============================================================
# Compagny	:	4Js
# Developper	:	PM
# Program	:	$FGLDIR/desi/objects/rattr.tko
# Project	:	ConfDaisy.tko
# Date		:	31.07.1996
# Last modif.	:	31.07.1996
# Explications	: 
#---------------------------------------------------------------

Class FglAttribute {
inherit rWidget Label

	protected _res_list   "geo_bg geo_relief geo_borderwidth"
	public int_moveable   "Y"
	public int_show_attr  "Y"

constructor { config } { set geo_text [$this info class] }
}

Class FglInvisible		{ inherit FglAttribute ; constructor { config } { set geo_text " Invisible" }}
Class FglUnder		        { inherit FglAttribute ; constructor { config } { set geo_text " Underline" }}
Class FglRev		        { inherit FglAttribute ; constructor { config } { set geo_text " Reverse" }}
Class FglBlink			{ inherit FglAttribute ; constructor { config } { set geo_text " Blink" }}
Class FglBold			{ inherit FglAttribute ; constructor { config } { set geo_text " Bold" }}
Class FglRevUnder		{ inherit FglAttribute ; constructor { config } { set geo_text " Reverse Underline" }}
Class FglBoldUnder		{ inherit FglAttribute ; constructor { config } { set geo_text " Bold Underline" }}
Class FglBoldRev		{ inherit FglAttribute ; constructor { config } { set geo_text " Bold Reverse" }}
Class FglBoldRevUnder		{ inherit FglAttribute ; constructor { config } { set geo_text " Bold Reverse Underline" }}
Class FglBlinkUnder		{ inherit FglAttribute ; constructor { config } { set geo_text " Blink Underline" }}
Class FglBlinkRev		{ inherit FglAttribute ; constructor { config } { set geo_text " Blink Reverse" }}
Class FglBlinkRevUnder		{ inherit FglAttribute ; constructor { config } { set geo_text " Blink Reverse Underline" }}
Class FglBlinkBold		{ inherit FglAttribute ; constructor { config } { set geo_text " Blink Bold" }}
Class FglBlinkBoldUnder		{ inherit FglAttribute ; constructor { config } { set geo_text " Blink Bold Underline" }}
Class FglBlinkBoldRev		{ inherit FglAttribute ; constructor { config } { set geo_text " Blink Bold Reverse" }}
Class FglBlinkBoldRevUnder	{ inherit FglAttribute ; constructor { config } { set geo_text " Blink Bold Reverse Underline" }}

Class FglColor {
inherit rWidget Label

	protected _res_list   "geo_fg"
	public geo_relief   raised
#	public geo_borderWidth   1
	public int_moveable   "Y"
	public int_show_attr  "Y"
}

Class FglbgColor {
inherit rWidget Label

	protected _res_list   "geo_bg"
	public geo_relief   raised
#	public geo_borderWidth   1
	public int_moveable   "Y"
	public int_show_attr  "Y"
}

Class FglColorWhite	{ inherit FglColor ; constructor { config } { set geo_text " Foreground White" }}
Class FglColorBlack	{ inherit FglColor ; constructor { config } { set geo_text " Foreground Black" }}
Class FglColorYellow	{ inherit FglColor ; constructor { config } { set geo_text " Foreground Yellow" }}
Class FglColorMagenta	{ inherit FglColor ; constructor { config } { set geo_text " Foreground Magenta" }}
Class FglColorRed	{ inherit FglColor ; constructor { config } { set geo_text " Foreground Red" }}
Class FglColorCyan	{ inherit FglColor ; constructor { config } { set geo_text " Foreground Cyan" }}
Class FglColorGreen	{ inherit FglColor ; constructor { config } { set geo_text " Foreground Green" }}
Class FglColorBlue	{ inherit FglColor ; constructor { config } { set geo_text " Foreground Blue" }}

Class FglbgColorWhite	{ inherit FglbgColor ; constructor { config } { set geo_text " Background White" }}
Class FglbgColorBlack	{ inherit FglbgColor ; constructor { config } { set geo_text " Background Black" }}
Class FglbgColorYellow	{ inherit FglbgColor ; constructor { config } { set geo_text " Background Yellow" }}
Class FglbgColorMagenta	{ inherit FglbgColor ; constructor { config } { set geo_text " Background Magenta" }}
Class FglbgColorRed	{ inherit FglbgColor ; constructor { config } { set geo_text " Background Red" }}
Class FglbgColorCyan	{ inherit FglbgColor ; constructor { config } { set geo_text " Background Cyan" }}
Class FglbgColorGreen	{ inherit FglbgColor ; constructor { config } { set geo_text " Background Green" }}
Class FglbgColorBlue	{ inherit FglbgColor ; constructor { config } { set geo_text " Background Blue" }}