; 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.12 2014-11-26 20:02:48 cg Exp $

previewFileName         'viewStyleSample_greenpc.png'

#if Screen current hasGreyscales

wooden             (Smalltalk imageFromFileNamed:'bitmaps/wood2H.tiff' inPackage:'stx:libwidg3')

granite            (Smalltalk imageFromFileNamed:'bitmaps/granite3.tiff' inPackage:'stx:libwidg3')

graniteLight       = granite lightened

viewGrey           =wooden

viewBackground     =wooden

woodColor          =wooden averageColorIn:(0@0 corner:9@9)

graniteColor       =granite 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  'Fun style; "motif", with cute (back to nature) viewbackground.\Not recommended for slow display servers.'

name #greenPC

#if (Language == #german) or:[Language == #de]

comment  'Fun Style; "motif" mit geändertem (zurück zur Natur) Hintergrund.\\Nicht sinnvoll bei langsamen Maschinen.'

#endif

#if Screen current hasGreyscales

button.activeForegroundColor      Color white

button.activeBackgroundColor      =granite

button.foregroundColor            Color grey:80

button.backgroundColor            =granite

button.disabledBackgroundColor    =graniteLight

radioButton.backgroundColor       =wooden

radioButton.foregroundColor       Color black "Color grey:80"

label.foregroundColor             Color black

arrowButton.activeForegroundColor Color white

arrowButton.foregroundColor       Color grey:80

scroller.thumbColor               =granite "Color black"

scroller.viewBackground           =wooden

scroller.ghostColor               =shadowColor

scroller.ghostLevel               -1

selection.hilightFrameColor       Color white

selection.hilightForegroundColor    (Color yellow)

; selection.hilightBackgroundColor    (Color rgbValue:16rDFF0F8)

; selection.disabledForegroundColor Color grey:20 "need darker grey for more contrast"

selection.disabledForegroundColor =woodColor lightened

selection.hilightStyle            #motifgreen

menu.disabledForegroundColor      =woodColor lightened

button.disabledForegroundColor    =woodColor lightened

menu.viewBackground               =wooden

menu.hilightFrameColor            Color white

menu.hilightForegroundColor       (Color yellow)

menu.hilightBackgroundColor       Color black

; editField.backgroundColor       Color red:100 green:75 blue:75

editField.backgroundColor         =woodColor lightened lightened

html.backgroundColor                    =woodColor lightened lightened lightened

html.anchorForegroundColor              =woodColor darkened

html.visitedAnchorForegroundColor       =woodColor

#endif