; 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.9 1997-08-13 13:51: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

#if Display hasGreyscales
viewGrey                        (Color grey:67) exactOrNearestOn:(Screen current) 
lightColor                      Color white
halfShadowColor                 (Color grey:33) 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
menuHilightForegroundColor      Color black
menuHilightBackgroundColor      Color white
#else
menuHilightForegroundColor      Color white
menuHilightBackgroundColor      Color black
#endif

variablePanelHandlePosition     #center 
variablePanelHandleStyle        #next

scrollBarScrollerBordered       true

#if Display hasGreyscales
scrollerViewBackground          (Color grey:50) exactOrNearestOn:(Screen current)
scrollerThumbColor              (Color lightGrey) exactOrNearestOn:(Screen current)
scrollerThumbEdgeStyle          #soft
#else
scrollerThumbColor              Color white
#endif
scrollerThumbLevel              2
scrollerThumbInset              1
scrollerBorderWidth             1

buttonEdgeStyle                 #soft
buttonActiveLevel               1
buttonPassiveLevel              2
#if Display hasGreyscales
buttonActiveForegroundColor     Color black
buttonActiveBackgroundColor     Color white
buttonEnteredBackgroundColor    (Color lightGrey) exactOrNearestOn:(Screen current)
buttonHalfShadowColor           =viewGrey darkened
buttonHalfLightColor            Color white
#else
buttonActiveBackgroundColor     Color black
buttonActiveForegroundColor     Color white
#endif

popUpListPopPosition            #shifted

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

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