; View defaultStyle:#greenPC 
;
; green PC - living in a box -- recycle you windows :-)
;
; I guess, you have never seen smalltalk views as charming as this ...
;
; fun style; like motif, but with different viewbackground
; this style does not work on B&W displays
;
; On my SGI, this one looks great; on VGA's, the colors come out
; a bit too dark.
;
; $Header: /cvs/stx/stx/libview/styles/greenPC.style,v 1.4 1995-11-22 23:03:42 cg Exp $

#if Display hasGreyscales
wooden             (Image fromFile:'bitmaps/wood2H.tiff')
granite            (Image fromFile:'bitmaps/granite.tiff')

viewGrey           =wooden
viewBackground     =wooden

woodColor          =wooden averageColorIn:(0@0 corner:9@9)
; woodColor          Color red:58 green:48 blue:8

lightColor         =woodColor lightened
shadowColor        =woodColor darkened darkened
mediumColor        =woodColor darkened 
#endif

#include 'motif.common'

comment  'like motif, with cute viewbackground\\not recommended for slow display servers.'

#if Display hasGreyscales
buttonActiveForegroundColor      Color white
buttonActiveBackgroundColor      =granite 
buttonForegroundColor            Color grey:80
buttonBackgroundColor            =granite 

labelForegroundColor             Color black

arrowButtonActiveForegroundColor Color white
arrowButtonForegroundColor       Color grey:80

scrollerThumbColor               Color black
scrollerViewBackground           =wooden
scrollerGhostColor               =shadowColor
scrollerGhostLevel               -1

selectionHilightFrameColor       Color white
selectionDisabledForegroundColor Color grey:20 "need darker grey for more contrast"

menuViewBackground               =wooden
menuHilightFrameColor            Color white
menuHilightForegroundColor       =wooden
menuHilightBackgroundColor       Color black

editFieldBackgroundColor         Color red:100 green:75 blue:75
#endif