; View defaultStyle:#st80
;
; simulation of the old st80 style - looks somewhat like os2
;
; $Header: /cvs/stx/stx/libview/styles/st80.style,v 1.23 1999-03-24 23:24:13 cg 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 Display 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 Display hasGreyscales
is3D true
borderWidth 0
viewGrey Color grey:80
selection.hilightForegroundColor Color black
selection.hilightBackgroundColor Color grey:60
selection.hilightFrameColor Color black
#else
viewGrey Color white
lightColor Color grey:50
borderWidth 1
#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 Display hasColors
#text.selectionBackgroundColor Color green
#text.selectionForegroundColor Color black
text.selectionBackgroundColor Color grey:60
text.selectionForegroundColor Color black
#else
# if Display 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
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.hilightLevel -1
pullDownMenu.hilightBackgroundColor Color grey
pullDownMenu.separatingLines false
#if Display 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