; 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.11 2000-08-16 14:27:26 ca 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             (Smalltalk imageFromFileNamed:'bitmaps/granite.tiff' inPackage:'stx:libwidg3') 
viewBackground              (Smalltalk imageFromFileNamed:'bitmaps/granite_small.tiff' inPackage:'stx:libwidg3')
lightColor                  Color grey:66

brightGrey                  Color grey:90
disabledGrey                Color grey:66

; foregroundColor             Color grey:80
foregroundColor             =brightGrey

brightYellow                Color yellow lightened

wooden                      (Smalltalk imageFromFileNamed:'bitmaps/wood2H.tiff' inPackage:'stx:libwidg3')
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"
text.backgroundColor          =textViewBackground

label.foregroundColor         Color white

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

noteBook.foregroundColor        =brightGrey
noteBook.activeForegroundColor  =brightYellow
framedBox.foregroundColor       =brightGrey

toggle.activeBackgroundColor    =lightWood
toggle.activeLevel              -2

checkToggle.checkColor           Color white
checkBox.labelForegroundColor    Color white
checkToggle.activeBackgroundColor =wooden

menu.foregroundColor              =brightGrey
menu.hilightForegroundColor       =brightYellow
menu.hilightBackgroundColor       =viewBackground
menu.disabledForegroundColor      =disabledGrey

selection.foregroundColor         =brightGrey
selection.hilightForegroundColor  =brightYellow
selection.hilightBackgroundColor  =viewBackground

; ruler.foregroundColor             =brightYellow

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