--- a/styles/mswindows95.style Fri Oct 25 12:23:18 2002 +0200
+++ b/styles/mswindows95.style Fri Oct 25 13:28:17 2002 +0200
@@ -1,6 +1,6 @@
; View defaultStyle:#mswindows95
;
-; $Header: /cvs/stx/stx/libview/styles/mswindows95.style,v 1.44 2002-09-19 09:03:29 cg Exp $
+; $Header: /cvs/stx/stx/libview/styles/mswindows95.style,v 1.45 2002-10-25 11:28:17 ca Exp $
comment 'win95/nt lookalike'
@@ -12,10 +12,8 @@
comment 'Un style qui résemble MS Windows95'
#endif
-is3D true
name #win95
-
;
; notice: the values below
; are not used when running under native Windows
@@ -58,260 +56,4 @@
#endif
-
-borderWidth 0
-viewBackground =viewGrey
-focusStyle #win95
-focusHighlightStyle #win95
-
-popup.borderWidth 1
-popup.shadow false
-popup.level 1
-
-;
-; this reverses the ok-cancel order in dialogs;
-; some may be used to ok being on the left ...
-;
-dialogBox.okAtLeft true
-
-#if Screen current width <= 640
-font Font family:'helvetica' face:'medium' style:'roman' size:10
-textFont Font family:'courier' face:'medium' style:'roman' size:10
-#else
-font Font family:'helvetica' face:'medium' style:'roman' size:12
-textFont Font family:'courier' face:'medium' style:'roman' size:12
-#endif
-
-#if (Screen current platformName = 'WIN32' and:[Screen current width <= 640])
-font Font family:'ARIAL' size:8
-; font Font family:'MS SANS SERIF' size:8
-textFont Font family:'courier' face:'medium' style:'roman' size:8
-#endif
-
-#if (Screen current platformName = 'WIN32' and:[Screen current width > 640])
-font Font family:'ARIAL' size:9
-; font Font family:'MS SANS SERIF' size:9
-textFont Font family:'courier' face:'medium' style:'roman' size:9
-#endif
-
-#if (Screen current platformName = 'WIN32' and:[Screen current width > 800])
-font Font family:'ARIAL' size:10
-; font Font family:'MS SANS SERIF' size:10
-textFont Font family:'courier' face:'medium' style:'roman' size:10
-#endif
-
-; No - leads to ugly look if boldified ...
-;
-; #if (Screen current platformName = 'WIN32')
-; font Font name:'ANSI_VAR_FONT'
-; #endif
-
-menuFont =font
-selection.font =font
-
-focus.showBorder false
-focus.takeOnClick true
-
-textCursor.type #ibeam
-textCursor.noFocusForegroundColor Color grey
-
-#if Screen current hasGrayscales
-; editField.backgroundColor Color grey:90
-editField.backgroundColor Color white
-#else
-editField.backgroundColor Color white
-editField.shadowColor Color black
-editField.lightColor Color grey:80
-#endif
-
-checkToggle.activeLevel -2
-checkToggle.passiveLevel -2
-checkToggle.foregroundColor Color black
-checkToggle.backgroundColor Color white
-checkToggle.activeForegroundColor Color black
-checkToggle.activeBackgroundColor Color white
-checkToggle.bitmapFile 'CheckOn10.xbm'
-
-#if Screen current hasGreyscales
-menu.hilightForegroundColor Color white
-menu.hilightBackgroundColor =selectionBlue
-#else
-menu.hilightForegroundColor Color white
-menu.hilightBackgroundColor Color black
-#endif
-menu.buttonEnteredLevel 1
-menu.buttonPassiveLevel 0
-menu.buttonActiveLevel -1
-menu.buttonItemSpace 2
-
-pullDownMenu.separatingLines false
-;; pullDownMenu.level 0
-pullDownMenu.level 1
-pullDownMenu.menuLevel 1
-
-selection.hilightStyle #win95
-selection.hilightForegroundColor Color white
-#if Screen current hasGrayscales
-selection.hilightBackgroundColor =selectionBlue
-#else
-selection.hilightBackgroundColor Color black
-#endif
-selection.hilightFrameColor Color black
-selection.rightArrowLevel 0
-selection.rightArrowStyle #solid
-
-variablePanel.handlePosition #left
-
-#if Screen current serverVendor ~= 'Silicon Graphics'
-; SGI Xserver has a bug, keeping the dashed lineStyle in its GC
-; variablePanel.trackingStyle #dashedLine
-variablePanel.trackingStyle #dottedLine
-#else
-variablePanel.trackingStyle #solidLine
-#endif
-
-variablePanel.showHandle false "/ the default; can be overwritten by UI-spec
-
-; variablePanel.barHeight 4
-; variablePanel.handleLevel 0
-
-variablePanel.barHeight 8
-variablePanel.handleLevel 1
-variablePanel.handleStyle #full
-
-scrollableView.level -1
-; scrollableView.backgroundColor =viewLightGrey
-scrolledView.borderWidth 0
-scrolledView.level 0
-scrolledView.margin 1
-scrolledView.zeroOffsets true
-
-scrollBar.level 0
-scrollBar.spacing 0
-scrollBar.hiding true
-; scrollBar.neverMini true
-scrollBar.position #right
-scrollBar.buttonPositions #around
-scrollBar.viewBackground =viewLightGrey
-scrollBar.elementSpacing 0
-
-#if Screen current hasGreyscales
-scroller.viewBackground =viewLightGrey
-scroller.thumbColor =viewGrey
-; scroller.thumbEdgeStyle #soft
-scroller.thumbEdgeStyle #softWin95
-scroller.thumbLightColor =viewGrey
-scroller.thumbHalfLightColor Color white
-#else
-scroller.viewBackground Color grey:87.5
-scroller.thumbColor Color white
-#endif
-
-scroller.thumbLevel 2
-# scroller.borderWidth 1
-scroller.borderWidth 0
-scroller.level 0
-scroller.ghostFrameColor Color darkGrey
-scroller.snapBack true
-
-;button.activeLevel 1
-button.activeLevel -1 "/ 0
-button.passiveLevel 2
-#if Screen current hasGreyscales
-; button.edgeStyle #soft
-button.edgeStyle #softWin95
-; button.activeForegroundColor Color black
-; button.activeBackgroundColor Color white
-; button.enteredBackgroundColor Color lightGrey
-; button.halfShadowColor =viewGrey darkened exactOrNearestOn:(Screen current)
-button.halfShadowColor =halfShadowColor
-button.halfLightColor Color white
-button.disabledEtchedForegroundColor Color white
-#else
-button.activeBackgroundColor Color black
-button.activeForegroundColor Color white
-; button.enteredBackgroundColor Color grey:87.5
-#endif
-
-radioButton.style #image
-radioButton.passiveImageFile 'RadioOff_w95.xpm'
-radioButton.activeImageFile 'RadioOnBits_w95.xbm'
-
-
-; arrowButton.upFormFile 'ScrollUp.w95.14.xbm'.
-; arrowButton.downFormFile 'ScrollDn.w95.14.xbm'.
-; arrowButton.leftFormFile 'ScrollLt.w95.14.xbm'.
-; arrowButton.rightFormFile 'ScrollRt.w95.14.xbm'.
-arrowButton.upFormFile 'ScrollUp.w95.11.xbm'.
-arrowButton.downFormFile 'ScrollDn.w95.11.xbm'.
-arrowButton.leftFormFile 'ScrollLt.w95.11.xbm'.
-arrowButton.rightFormFile 'ScrollRt.w95.11.xbm'.
-
-selection.rightArrowForm 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
-
-comboView.level -1
-comboView.downFormFile 'ScrollDn.w95.11.xbm'.
-comboView.disabledDownFormFile 'ScrollDn_disabled.w95.11.xpm'.
-
-html.backgroundColor Color white
-; html.anchorForegroundColor Color green darkened
-; html.visitedAnchorForegroundColor =html.anchorForegroundColor darkened darkened
-html.visitedAnchorForegroundColor Color red:50 green:0 blue:50
-; html.anchorUnderlines true
-
-dataSet.labelView.level 0
-
-activeHelp.backgroundColor Color yellow lightened lightened lightened
-activeHelp.borderWidth 2
-activeHelp.font Font family:'helvetica' face:'medium' style:'roman' size:8
-
-;
-; if running under windows, use the systemColor settings
-;
-#if Screen current platformName = 'WIN32'
-
-menu.backgroundColor [Screen current getSystemColor:#'COLOR_MENU' ]
-menu.foregroundColor [Screen current getSystemColor:#'COLOR_MENUTEXT' ]
-pullDownMenu.backgroundColor [Screen current getSystemColor:#'COLOR_BTNFACE' ]
-;; pullDownMenu.backgroundColor =menu.backgroundColor
-button.backgroundColor [Screen current getSystemColor:#'COLOR_BTNFACE' ]
-text.selectionForegroundColor [Screen current getSystemColor:#'COLOR_HIGHLIGHTTEXT' ]
-text.selectionBackgroundColor [Screen current getSystemColor:#'COLOR_HIGHLIGHT' ]
-text.alternativeSelectionForegroundColor Color black
-;; text.alternativeSelectionBackgroundColor Color redByte:255 greenByte:255 blueByte:204
-text.alternativeSelectionBackgroundColor =text.selectionBackgroundColor lightened
-scroller.thumbColor [Screen current getSystemColor:#'COLOR_BTNFACE' ]
-scroller.vScrollerWidth 16 "/ [Screen current getSystemMetrics:#'SM_CXVSCROLL' ]
-scroller.hScrollerHeight 16 "/ [Screen current getSystemMetrics:#'SM_CYHSCROLL' ]
-scrollBar.vScrollBarWidth 16 "/ [Screen current getSystemMetrics:#'SM_CXVSCROLL' ]
-scrollBar.hScrollBarHeight 16 "/ [Screen current getSystemMetrics:#'SM_CYHSCROLL' ]
-selection.hilightForegroundColor [Screen current getSystemColor:#'COLOR_HIGHLIGHTTEXT' ]
-selection.hilightBackgroundColor [Screen current getSystemColor:#'COLOR_HIGHLIGHT' ]
-
-#endif
-
-#if (Screen current platformName = 'WIN32') and:[(Screen current getSystemColor:#'COLOR_SCROLLBAR') brightness > 0.95]
-scroller.viewBackground [(Form width:8 height:8 fromArray:(Color ditherBits at:32) on:Screen current) colorMap:(Array with:Color black with:(Screen current getSystemColor:#'COLOR_SCROLLBAR') )]
-#endif
-#if (Screen current platformName = 'WIN32') and:[(Screen current getSystemColor:#'COLOR_SCROLLBAR') brightness <= 0.95]
-scroller.viewBackground [(Form width:8 height:8 fromArray:(Color ditherBits at:32) on:Screen current) colorMap:(Array with:Color white with:(Screen current getSystemColor:#'COLOR_SCROLLBAR') )]
-#endif
-
-warningBox.iconFile 'bitmaps/Warning_w95.xpm'
-requestBox.iconFile 'bitmaps/Request_w95.xpm'
-errorBox.iconFile 'bitmaps/Error_w95.xpm'
+#include 'mswindows95.common'