; View defaultStyle:#'rocky_iris' 
;
; rock solid windows (flintstones ?)
; fun style; like iris, but with different view background
; needs some rework to make text readable in selectionInListViews
; and menus.
;
; $Header: /cvs/stx/stx/libview/styles/oldStyles/rocky_iris.style,v 1.4 2000-08-16 14:24:30 ca Exp $

#include 'iris.style'

comment  'Fun style. Like `iris'' - with rock solid views'

#if (Language == #german) or:[Language == #de]
comment  'Wie `iris'' - mit beinhartem Hintergrund.'
#endif

; shadowColor                 Color black
; lightColor                  Color lightGrey

viewBackground                     (Image fromFile:'../../doc/online/english/Marble4.gif') 
menuBackground                     =viewBackground
selection.backgroundColor           =viewBackground
; selection.disabledForegroundColor   Color grey:15     "/ default grey is invisible on granite
selection.hilightBackgroundColor      Color black
; selection.hilightForegroundColor    Color white

menu.backgroundColor                =viewBackground
; menu.disabledForegroundColor        Color grey:15     "/ default grey is invisible on granite
; menu.hilightForegroundColor         Color white

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

button.activeForegroundColor        Color white
button.activeBackgroundColor        Color black

; variablePanel.handleColor           =lightColor

popup.borderWidth       1
popupMenu.borderWidth       1