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