styles/mswindows3.style
author Claus Gittinger <cg@exept.de>
Wed, 13 Aug 1997 15:51:32 +0200
changeset 1857 854b5ec3c7b9
parent 1853 c3d87b4f6051
child 1948 6a9b754ca6d3
permissions -rw-r--r--
*** empty log message ***

; View defaultStyle:#win95 
;
; $Header: /cvs/stx/stx/libview/styles/mswindows3.style,v 1.22 1997-08-13 13:51:23 cg Exp $

comment  'win95 lookalike - unfinished'

#if (Language == #german) or:[Language == #de]
comment  'MS Windows95 Variante\unvollendet'
#endif

is3D                            true
name                            #win95 


#if Display hasGreyscales
selectionBlue                   (Color red:0 green:0 blue:50) exactOrNearestOn:(Screen current)

; viewGrey                        (Color grey:67) exactOrNearestOn:(Screen current) 
viewGrey                        (Color grey:77) exactOrNearestOn:(Screen current)
; viewLightGrey                   (Color grey:80) exactOrNearestOn:(Screen current) 
viewLightGrey                   (Color grey:90) exactOrNearestOn:(Screen current) 
lightColor                      Color white
halfShadowColor                 (Color grey:33) exactOrNearestOn:(Screen current)
; halfLightColor                  (Color grey:67) exactOrNearestOn:(Screen current)
; halfLightColor                  Color white "/ grey:67
halfLightColor                  =viewGrey
#else
selectionBlue                   Color black
viewGrey                        Color white
viewLightGrey                   Color white 
lightColor                      Color grey:50
#endif

shadowColor                     Color black

borderWidth                     0
viewBackground                  =viewGrey
popupBorderWidth                1     
popupShadow                     false   

font                            Font family:'helvetica' face:'medium' style:'roman' size:12
textFont                        Font family:'courier' face:'medium' style:'roman' size:12

textCursorType                          #ibeam
textCursorNoFocusForegroundColor        Color grey

#if Display hasGrayscales
; editFieldBackgroundColor                Color grey:90
editFieldBackgroundColor                Color white
#else
editFieldBackgroundColor                Color white
editFieldShadowColor                    Color black
editFieldLightColor                     Color grey:80
#endif

checkToggleActiveLevel                  -2
checkTogglePassiveLevel                 -2
checkToggleForegroundColor              Color black
checkToggleBackgroundColor              Color white
checkToggleActiveForegroundColor        Color black
checkToggleActiveBackgroundColor        Color white
checkToggleBitmapFile                   'CheckOn14.xbm'

#if Display hasGreyscales
menuHilightForegroundColor              Color white
menuHilightBackgroundColor              =selectionBlue
#else
menuHilightForegroundColor              Color white
menuHilightBackgroundColor              Color black
#endif

pullDownMenuSeparatingLines             false
pullDownMenuLevel                       0
pullDownMenuKeepMenu                 true
; pullDownMenuKeepMenu                    true
pullDownMenuToggleKeep                  true

selectionHilightForegroundColor         Color white
#if Display hasGrayscales
selectionHilightBackgroundColor         =selectionBlue
#else
selectionHilightBackgroundColor         Color black
#endif
selectionHilightFrameColor              Color black
selectionRightArrowLevel                0
selectionRightArrowStyle                #solid

variablePanelHandlePosition             #right 
variablePanelHandleStyle                #none 
variablePanelTrackingStyle              #dashedLine
variablePanelBarHeight                  4

scrollableViewLevel                     -1
; scrollableViewBackgroundColor           =viewLightGrey
scrolledViewBorderWidth                 0
scrolledViewLevel                       0
scrolledViewMargin                      0
scrollBarLevel                          0
scrollBarSpacing                        0
scrollBarHiding                         true
scrollBarNeverMini                      true

scrollBarPosition                       #right
scrollBarButtonPositions                #around     
scrollBarViewBackground                 =viewLightGrey

#if Display hasGreyscales
scrollerViewBackground                  =viewLightGrey
scrollerThumbColor                      =viewGrey
scrollerThumbEdgeStyle                  #soft
scrollerThumbLightColor                 =viewGrey  
scrollerThumbHalfLightColor             Color white  
#else
scrollerViewBackground                  Color grey:87.5
scrollerThumbColor                      Color white
#endif

scrollerThumbLevel                      2
scrollerBorderWidth                     1
scrollerLevel                           0
scrollerGhostFrameColor                 Color darkGrey
scrollerSnapBack                        true

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

; arrowButtonUpFormFile                   'ScrollUp.w95.14.xbm'.
; arrowButtonDownFormFile                 'ScrollDn.w95.14.xbm'.
; arrowButtonLeftFormFile                 'ScrollLt.w95.14.xbm'.
; arrowButtonRightFormFile                'ScrollRt.w95.14.xbm'.
arrowButtonUpFormFile                   'ScrollUp.w95.11.xbm'.
arrowButtonDownFormFile                 'ScrollDn.w95.11.xbm'.
arrowButtonLeftFormFile                 'ScrollLt.w95.11.xbm'.
arrowButtonRightFormFile                'ScrollRt.w95.11.xbm'.

selectionRightArrowForm            Image extent:16@12 depth:1 \
				       bits:#[                       \
					      2r00000000 2r00000000  \
					      2r00000000 2r00000000  \
					      2r00000000 2r00000000  \
					      2r00000010 2r00000000  \
					      2r00000011 2r00000000  \
					      2r00000011 2r10000000  \
					      2r00000011 2r11000000  \
					      2r00000011 2r10000000  \
					      2r00000011 2r00000000  \
					      2r00000010 2r00000000  \
					      2r00000000 2r00000000  \
					      2r00000000 2r00000000  \
					     ] \
					pad:8

comboViewLevel                          -1
comboViewDownFormFile                   'ScrollDn.w95.11.xbm'.

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

htmlBackgroundColor                     Color white
htmlAnchorForegroundColor               Color green darkened
htmlVisitedAnchorForegroundColor        =htmlAnchorForegroundColor darkened darkened
htmlAnchorUnderlines                    true

activeHelpBackgroundColor               Color yellow lightened
activeHelpBorderWidth                   2