; View defaultStyle:#next
;
; NeXT look-alike - almost like motif or iris,
; but with smoother edges and frames around scrollbars and selections
;
; $Header: /cvs/stx/stx/libview/styles/next.style,v 1.14 1998-05-19 14:32:29 cg Exp $
comment 'NeXT look alike'
#if (Language == #german) or:[Language == #de]
comment 'Angelehnt an NeXT'
#endif
#if (Language == #french) or:[Language == #fr]
comment 'Comme NeXT'
#endif
is3D true
name #next
lightGrey Color redByte:170 greenByte:170 blueByte:170
darkGrey Color redByte:85 greenByte:85 blueByte:85
#if Display hasGreyscales
viewGrey =lightGrey exactOrNearestOn:(Screen current)
lightColor Color white
halfShadowColor =darkGrey exactOrNearestOn:(Screen current)
halfLightColor Color white "/ grey:67
#else
viewGrey Color white
lightColor Color grey:50
#endif
shadowColor Color black
borderWidth 0
viewBackground =viewGrey
popupBorderWidth 1
#if Display hasGreyscales
menu.hilightForegroundColor Color black
menu.hilightBackgroundColor Color white
#else
menu.hilightForegroundColor Color white
menu.hilightBackgroundColor Color black
#endif
variablePanel.handlePosition #center
variablePanel.handleStyle #next
variablePanel.handleImage Image fromFile:'bitmaps/HandleNext.xpm'
scrollBar.scrollerBordered true
#if Display hasGreyscales
scroller.viewBackground (Color grey:50) exactOrNearestOn:(Screen current)
scroller.thumbColor (Color lightGrey) exactOrNearestOn:(Screen current)
scroller.thumbEdgeStyle #soft
#else
scroller.thumbColor Color white
#endif
scroller.thumbLevel 2
scroller.thumbInset 1
scroller.borderWidth 1
scroller.handleImage Image fromFile:'bitmaps/HandleNext.xpm'
button.edgeStyle #soft
button.activeLevel 1
button.passiveLevel 2
#if Display hasGreyscales
button.activeForegroundColor Color black
button.activeBackgroundColor Color white
button.enteredBackgroundColor (Color lightGrey) exactOrNearestOn:(Screen current)
button.halfShadowColor =viewGrey darkened
button.halfLightColor Color white
#else
button.activeBackgroundColor Color black
button.activeForegroundColor Color white
#endif
popUpList.popPosition #shifted
variableFont Font family:'helvetica' face:'medium' style:'roman' size:12
selection.font =variableFont
label.font =variableFont
#if Display hasGrayscales not
html.anchorUnderline true
html.anchorForegroundColor Color black
html.backgroundColor Color white
html.activeAnchorForegroundColor Color black
html.activeAnchorBackgroundColor =htmlBackgroundColor
html.visitedAnchorForegroundColor Color black
html.exampleAnchorForegroundColor Color black
#endif
checkToggle.activeImage Image fromFile:'bitmaps/CheckOnNext.xpm'
checkToggle.passiveImage Image fromFile:'bitmaps/CheckOffNext.xpm'
checkToggle.activeLevel 0
checkToggle.passiveLevel 0