; View defaultStyle:#iris 
;
; silicon graphics style
; (somwehat like motif, but with smooth edges and bells&whistles)
;
; $Header: /cvs/stx/stx/libview/styles/iris.style,v 1.23 1997-10-21 18:22:05 cg Exp $

comment  'Silicon graphics'' Iris look alike'

#if (Language == #german) or:[Language == #de]
comment  'An Silicon Graphics Iris angelehnter Stil'
#endif

#if (Language == #french) or:[Language == #fr]
comment  'Un style qui résemble Silicon Graphics Irix'
#endif

is3D                            true
name                            #iris

#if Display hasGreyscales
viewGrey                        (Color grey:67) exactOrNearestOn:(Screen current)
veryLightGray                   (Color veryLightGray) exactOrNearestOn:(Screen current)
darkGray                        (Color darkGray) exactOrNearestOn:(Screen current)
mediumGray                      (Color gray:50) exactOrNearestOn:(Screen current)
#else
viewGrey                        Color white
lightColor                      Color grey:50
veryLightGray                   Color veryLightGray
darkGray                        Color darkGray
mediumGray                      Color gray:50
#endif

borderWidth                     0
viewBackground                  =viewGrey


popupShadow                     true
popupLevel                      2     
popupBorderWidth                1     

textFont                        Font family:'courier' size:12 
textLightColor                  =viewGrey

#if Display hasColors   
textSelection.foregroundColor    Color black
textSelection.backgroundColor    Color green
#endif

textCursorForegroundColor       Color white
#if Display hasColors
textCursorBackgroundColor       Color red
#else
textCursorBackgroundColor       Color black
#endif

#if (Display hasColors and:[Display depth > 4])
transcriptForegroundColor       =veryLightGray
transcriptBackgroundColor       Color red:0 green:0 blue:25
transcriptCursorForegroundColor =transcriptBackgroundColor
transcriptCursorBackgroundColor Color green
#else
transcriptForegroundColor       Color white
transcriptBackgroundColor       Color black
transcriptCursorForegroundColor =transcriptBackgroundColor 
transcriptCursorBackgroundColor =transcriptForegroundColor
#endif

#if Display hasColors   
; editFieldBackgroundColor           Color red:100 green:75 blue:75
; editFieldBackgroundColor           (Color scaledRed:16rB9B9 scaledGreen:16r8E8E scaledBlue:16r8E8E) exactOrNearestOn:(Screen current)
editFieldBackgroundColor           (Color scaledRed:16rB9B9 scaledGreen:16r8E8E scaledBlue:16r8E8E)
editFieldSelectionBackgroundColor  Color white
editFieldSelectionForegroundColor  Color black
#endif

#if (Font family:'screen' face:'bold' style:'roman' size:16) existsOn:Display
editFieldFont                   Font family:'screen' face:'bold' style:'roman' size:16
#else
editFieldFont                   Font family:'courier' face:'medium' style:'roman' size:12
#endif

variableFont                    Font family:'helvetica' face:'medium' style:'roman' size:12
selectionFont                   =variableFont
labelFont                       =variableFont

#if Display hasColors   
toggle.showLamp                  true
toggle.lampColor                 Color yellow
checkToggle.checkColor           Color red
checkToggle.bitmapFile           'CheckOnColor.xpm'
checkToggle.labelOverMargin      true
radioButtonShowLamp             false
radioButtonStyle                #iris
#endif

scroller.level                   -1
scroller.thumbLevel              3
scroller.thumbColor              =viewGrey
#if Display hasGreyscales
scroller.thumbEnteredColor       =veryLightGray
#endif
scroller.thumbEdgeStyle          #soft
scroller.NTallyMarks             3
scroller.tallyLevel              1
scroller.ghostColor              =mediumGray
scroller.ghostLevel              -1
#if Display hasGreyscales not
scroller.viewBackground          Color white
#endif
scroller.middleButtonJump        true

slider.NTallyMarks               1
slider.tallyLevel                1

button.edgeStyle                 #soft
button.activeLevel               -1
button.passiveLevel              3
button.disabledForegroundColor   =darkGray
#if Display hasGreyscales
button.enteredBackgroundColor    =veryLightGray
button.activeBackgroundColor     nil
button.activeForegroundColor     Color black
#else
button.enteredBackgroundColor    Color white
button.activeForegroundColor     Color white
button.activeBackgroundColor     Color black
#endif

#if OperatingSystem getOSType = 'irix'
menuFont                        Font family:'helvetica' face:'bold' style:'oblique' size:10
#else
menuFont                        Font family:'helvetica' face:'bold' style:'roman' size:12
#endif

menuHilightBackgroundColor      Color white
menuHilightLevel                1
; menuShowAccelerators            false
#if Display hasColors   
menuCheckColor                  Color red
#endif

pullDownMenu.font                =menuFont
pullDownMenu.keepMenu            true
pullDownMenu.level               0
pullDownMenu.hilightLevel        2
pullDownMenu.edgeStyle           #soft

variablePanelHandleColor        =darkGray
#if Display hasGreyscales
variablePanelHandleEnteredColor =veryLightGray
#endif

activeHelpBackgroundColor         Color yellow lightened
activeHelpBorderWidth             2

#if Display hasGrayscales not
htmlAnchorUnderline                true
htmlAnchorForegroundColor          Color black
htmlBackgroundColor                Color white
htmlActiveAnchorForegroundColor    Color black
htmlActiveAnchorBackgroundColor    =htmlBackgroundColor
htmlVisitedAnchorForegroundColor   Color black
htmlExampleAnchorForegroundColor   Color black
#endif