; 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