; 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.21 2000-08-25 09:52:12 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 Screen current 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

textCursor.type.                #block
textCursor.typeNoFocus          #none

shadowColor                     Color black

borderWidth                     0
viewBackground                  =viewGrey
popup.borderWidth               1     
popup.level                     1     

variablePanel.handlePosition     #center 
variablePanel.handleStyle        #next
variablePanel.handleImage        Image fromFile:'bitmaps/HandleNext.xpm'

variablePanel.handleImage        Image fromFile:'bitmaps/HandleNext.xpm'

variablePanel.snapLevel         1
variablePanel.snapEnterLevel    1
variablePanel.selectedLevel     1

scrollBar.scrollerBordered       true

#if Screen current 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'

miniScroller.size                2.5       "/ millimeters

button.edgeStyle                 #soft
button.activeLevel               1
button.passiveLevel              2
#if Screen current 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

#if Screen current hasGreyscales
menu.hilightForegroundColor      Color black
menu.hilightBackgroundColor      Color white
#else
menu.hilightForegroundColor      Color white
menu.hilightBackgroundColor      Color black
#endif
menu.buttonActiveLevel               =button.activeLevel
menu.buttonPassiveLevel              =button.passiveLevel
menu.buttonActiveBackgroundColor    =button.activeBackgroundColor


popUpList.popPosition            #shifted

variableFont                    Font family:'helvetica' face:'medium' style:'roman' size:12
selection.font                   =variableFont
label.font                       =variableFont

#if Screen current 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
checkToggle.activeBackgroundColor =viewGrey