; View defaultStyle:#'fun_iris' 
;
; like iris, but with different viewbackground
; not really useful - test in selections and labels should be made
; brighter (but a nice demo)
;
; notice, that the light- and dark brown shadow colors are computed from the bitmaps;
; if you replace them by some (say reddish) image, they will change too.
;
; $Header: /cvs/stx/stx/libview/styles/oldStyles/fun_iris.style,v 1.7 1997-11-02 19:48:51 cg Exp $
;

#include 'iris.style'

comment  'Fun style.\Like ''iris'', with rock-solid viewbackground.\May be too dark on some VGA displays'

#if (Language == #german) or:[Language == #de]
comment  'Wie ''iris'', mit steinhartem, solidem Hintergrund.\\Erscheint auf vielen VGA Monitoren zu dunkel'
#endif

#viewBackground              (Image fromFile:'bitmaps/granite.tiff')
viewBackground              (Image fromFile:'bitmaps/granite_small.tiff')
lightColor                  Color grey:66

brightGrey                  Color grey:90
disabledGrey                Color grey:66

; foregroundColor             Color grey:80
foregroundColor             =brightGrey

wooden                      (Image fromFile:'bitmaps/wood2H.tiff')
averageColor                =wooden averageColorIn:(0@0 corner:9@9)
darkWood                    =averageColor darkened
lightWood                   =averageColor lightened

textViewBackground           Color red:100 green:90 blue:90  "a bit redish"
textBackgroundColor          =textViewBackground

labelForegroundColor         Color white

button.foregroundColor        Color black
button.backgroundColor        =wooden
button.activeBackgroundColor  =wooden "=lightWood"
button.enteredBackgroundColor =lightWood
button.disabledForegroundColor  =disabledGrey
button.shadowColor            =darkWood
button.lightColor             =lightWood
button.halfShadowColor        =darkWood

checkToggle.checkColor           Color white
checkBox.labelForegroundColor    Color white

menu.foregroundColor              =brightGrey
menu.hilightForegroundColor       Color yellow
menuH.hilightBackgroundColor       =viewBackground
menu.disabledForegroundColor      =disabledGrey

selection.foregroundColor         =brightGrey
selection.hilightForegroundColor  Color yellow
selection.hilightBackgroundColor  =viewBackground

; ruler.foregroundColor             Color yellow

scroller.thumbColor              =wooden
scroller.thumbShadowColor        =darkWood
scroller.thumbLightColor         =lightWood
scroller.thumbHalfShadowColor    =darkWood
scroller.ghostColor              =darkWood