; View defaultStyle:#st80

;

; simulation of the old st80 style - looks somewhat like os2

;

; $Header: /cvs/stx/stx/libview/styles/st80.style,v 1.28 2004-09-27 08:28:21 stefan Exp $

comment  'old `ST80'' 3D look alike'

#if (Language == #german) or:[Language == #de]

comment  'An früheres `ST-80'' angelehnt'

#endif

#if (Language == #french) or:[Language == #fr]

comment  'Comme `ST-80'''

#endif

name            #st80

;

; take a smaller font on VGA displays

;

#if Screen current width <= 800

; take smaller fonts on VGA screens

font               Font family:'courier' face:'medium' style:'roman' size:10

variableBoldFont   Font family:'helvetica' face:'medium' style:'roman' size:10

boldFont           Font family:'helvetica' face:'bold' style:'roman' size:10

#else

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

variableBoldFont   Font family:'helvetica' face:'bold' style:'roman' size:12

#endif

selectionFont      =variableFont

labelFont          =selectionFont

#if Screen current hasGreyscales

is3D                            true

borderWidth                     0

viewGrey                         Color grey:80

darkerGrey                       Color grey:60

selection.hilightForegroundColor Color black

selection.hilightBackgroundColor =darkerGrey

selection.hilightFrameColor      Color black

#else

viewGrey                         Color white

lightColor                       Color grey:50

borderWidth               1

#endif

#if Screen current platformName = 'WIN32'

viewGrey           [Screen current getSystemColor:#'COLOR_BTNFACE']

darkerGrey         Color grey:50

#endif

viewBackground                   =viewGrey

variablePanel.barHeightMM        2

scrolledView.level               1

scrolledView.margin              1

scrollBar.position               #right

; scrollBar.hiding                 true               "/ automatic hiding of useless scrollBars

scrollBar.buttonPositions        #around

scrollBar.level                  0

scrollBar.elementSpacing         0

scrollBar.spacing                0

; scrollBar.neverMini              true

scrollBar.buttonImageMargin      0

scroller.level                   1

scroller.viewBackground          =viewGrey

scroller.thumbColor              Color black

scroller.thumbFrameColor         nil

scroller.thumbLevel              0

scroller.thumbInset              3

scroller.middleButtonJump        true   "middle button jumps to click position"

miniScroller.size                2.5  "/ millimeter

textCursor.type                   #solidCaret

textCursor.backgroundColor        Color black

textCursor.noFocusForegroundColor Color grey

#if Screen current hasColors

#text.selectionBackgroundColor     Color green

#text.selectionForegroundColor     Color black

text.selectionBackgroundColor      =darkerGrey

text.selectionForegroundColor      Color black

#else

# if Screen current hasGreyscales

text.selectionBackgroundColor     =viewGrey "Color grey"

text.selectionForegroundColor     Color black

# endif

#endif

text.st80Selections               true

popup.borderWidth                 1

arrowButton.style                 #st80

arrowButton.activeForegroundColor Color white

; button.activeForegroundColor      Color white

button.activeBackgroundColor      Color grey

checkToggle.activeBackgroundColor =viewGrey

radioButton.style                 #round2D

menu.font                         =variableBoldFont

menu.viewBackground               Color white

menu.foregroundColor              Color black

menu.backgroundColor              Color white

menu.hilightForegroundColor       =menu.backgroundColor

menu.hilightBackgroundColor       =menu.foregroundColor

menu.highlightLevel               0

menu.separatingLineLevel          0

menu.separatingLineInset          0

pullDownMenu.font                 =variableBoldFont

pullDownMenu.viewBackground       =viewGrey

;; pullDownMenu.level               0

pullDownMenu.level                1

pullDownMenu.hilightLevel         -1

pullDownMenu.hilightBackgroundColor  Color grey

pullDownMenu.separatingLines         false

#if Screen current hasGrayscales not

html.anchorUnderline                true

html.anchorForegroundColor          Color black

html.backgroundColor                Color white

html.activeAnchorForegroundColor    Color black

html.activeAnchorBackgroundColor    =html.backgroundColor

html.visitedAnchorForegroundColor   Color black

html.exampleAnchorForegroundColor   Color black

#endif

TextView.st80Selections            true

comboView.level                    -1

#if Screen current platformName = 'WIN32'

viewBackgroundColor              [Screen current getSystemColor:#'COLOR_MENU'          ]

menu.backgroundColor             [Screen current getSystemColor:#'COLOR_MENU'          ]

menu.foregroundColor             [Screen current getSystemColor:#'COLOR_MENUTEXT'      ]

pullDownMenu.backgroundColor     =menu.backgroundColor

button.backgroundColor           [Screen current getSystemColor:#'COLOR_BTNFACE'       ]

#endif