styles/mswindows95.common
author Claus Gittinger <cg@exept.de>
Fri, 26 Apr 2013 11:44:58 +0200
changeset 6052 0b9c2f8f794c
parent 5524 ef99258f8d05
child 6054 df6e42c98799
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
     1
;
6052
0b9c2f8f794c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5524
diff changeset
     2
; $Header: /cvs/stx/stx/libview/styles/mswindows95.common,v 1.15 2013-04-26 09:44:58 cg Exp $
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
     3
;
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
     4
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
     5
is3D                            true
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
     6
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
     7
borderWidth                     0
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
     8
viewBackground                  =viewGrey
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
     9
focusStyle                      #win95
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    10
focusHighlightStyle             #win95
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    11
4290
21ed28a08d5d Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents: 4089
diff changeset
    12
popup.borderWidth               1
21ed28a08d5d Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents: 4089
diff changeset
    13
popup.shadow                    false
21ed28a08d5d Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents: 4089
diff changeset
    14
popup.level                     1
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    15
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    16
;
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    17
; this reverses the ok-cancel order in dialogs;
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    18
; some may be used to ok being on the left ...
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    19
;
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    20
dialogBox.okAtLeft                 true
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    21
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    22
3972
1536810c6a0e *** empty log message ***
ca
parents: 3970
diff changeset
    23
#if (Screen current platformName = 'WIN32')
5452
175bf2a1ee9f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5449
diff changeset
    24
textFont          (Font family:'Courier New' face:'medium' style:'roman' size:10 encoding:'ms-ansi') onDevice:Screen current
3972
1536810c6a0e *** empty log message ***
ca
parents: 3970
diff changeset
    25
font              ((Screen current getSystemParametersInfo:#SPI_GETNONCLIENTMETRICS) at:#messageFont) onDevice:Screen current
1536810c6a0e *** empty log message ***
ca
parents: 3970
diff changeset
    26
menu.font         ((Screen current getSystemParametersInfo:#SPI_GETNONCLIENTMETRICS) at:#menuFont) onDevice:Screen current
1536810c6a0e *** empty log message ***
ca
parents: 3970
diff changeset
    27
activeHelp.font   ((Screen current getSystemParametersInfo:#SPI_GETNONCLIENTMETRICS) at:#statusFont) onDevice:Screen current
1536810c6a0e *** empty log message ***
ca
parents: 3970
diff changeset
    28
#else
5524
ef99258f8d05 Fonts for linux
Stefan Vogel <sv@exept.de>
parents: 5452
diff changeset
    29
# try scaled fonts first, if they are not available, they will be replaced
6052
0b9c2f8f794c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5524
diff changeset
    30
textFont          Font family:'courier' face:'medium' style:'roman' size:10 encoding:#'iso10646-1'
0b9c2f8f794c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5524
diff changeset
    31
font              Font family:'helvetica' face:'medium' style:'roman' size:10 encoding:#'iso10646-1'
3972
1536810c6a0e *** empty log message ***
ca
parents: 3970
diff changeset
    32
menu.font         =font
1536810c6a0e *** empty log message ***
ca
parents: 3970
diff changeset
    33
activeHelp.font   =font
1536810c6a0e *** empty log message ***
ca
parents: 3970
diff changeset
    34
#endif
1536810c6a0e *** empty log message ***
ca
parents: 3970
diff changeset
    35
1536810c6a0e *** empty log message ***
ca
parents: 3970
diff changeset
    36
button.font       =font
1536810c6a0e *** empty log message ***
ca
parents: 3970
diff changeset
    37
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    38
focus.showBorder        false
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    39
focus.takeOnClick       true
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    40
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    41
textCursor.type                          #ibeam
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    42
textCursor.noFocusForegroundColor        Color grey
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    43
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    44
#if Screen current hasGrayscales
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    45
; editField.backgroundColor                Color grey:90
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    46
editField.backgroundColor                Color white
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    47
#else
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    48
editField.backgroundColor                Color white
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    49
editField.shadowColor                    Color black
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    50
editField.lightColor                     Color grey:80
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    51
#endif
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    52
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    53
checkToggle.activeLevel                  -2
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    54
checkToggle.passiveLevel                 -2
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    55
checkToggle.foregroundColor              Color black
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    56
checkToggle.backgroundColor              Color white
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    57
checkToggle.activeForegroundColor        Color black
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    58
checkToggle.activeBackgroundColor        Color white
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    59
checkToggle.bitmapFile                   'CheckOn10.xbm'
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    60
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    61
#if Screen current hasGreyscales
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    62
menu.hilightForegroundColor              Color white
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    63
menu.hilightBackgroundColor              =selectionBlue
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    64
#else
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    65
menu.hilightForegroundColor              Color white
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    66
menu.hilightBackgroundColor              Color black
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    67
#endif
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    68
menu.buttonEnteredLevel                  1
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    69
menu.buttonPassiveLevel                  0
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    70
menu.buttonActiveLevel                   -1
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    71
menu.buttonItemSpace                     2
3972
1536810c6a0e *** empty log message ***
ca
parents: 3970
diff changeset
    72
1536810c6a0e *** empty log message ***
ca
parents: 3970
diff changeset
    73
menu.itemSpace                           5
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    74
4653
4345e813500d conditionalRight for windows viewStyle
Claus Gittinger <cg@exept.de>
parents: 4324
diff changeset
    75
; windows does NOT align the help-group at the right end of the menu
4345e813500d conditionalRight for windows viewStyle
Claus Gittinger <cg@exept.de>
parents: 4324
diff changeset
    76
menuPanel.ignoreConditionalStartGroupRight  true
4345e813500d conditionalRight for windows viewStyle
Claus Gittinger <cg@exept.de>
parents: 4324
diff changeset
    77
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    78
pullDownMenu.separatingLines             false
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    79
;; pullDownMenu.level                       0
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    80
pullDownMenu.level                       1
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    81
pullDownMenu.menuLevel                   1
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    82
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    83
selection.hilightStyle                   #win95
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    84
selection.hilightForegroundColor         Color white
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    85
#if Screen current hasGrayscales
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    86
selection.hilightBackgroundColor         =selectionBlue
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    87
#else
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    88
selection.hilightBackgroundColor         Color black
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    89
#endif
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    90
selection.hilightFrameColor              Color black
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    91
selection.rightArrowLevel                0
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    92
selection.rightArrowStyle                #solid
3970
f6bd28c95e8a *** empty log message ***
ca
parents: 3969
diff changeset
    93
selection.font                           =font
f6bd28c95e8a *** empty log message ***
ca
parents: 3969
diff changeset
    94
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    95
4290
21ed28a08d5d Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents: 4089
diff changeset
    96
variablePanel.handlePosition             #left
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    97
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    98
#if Screen current serverVendor ~= 'Silicon Graphics'
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
    99
; SGI Xserver has a bug, keeping the dashed lineStyle in its GC
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   100
; variablePanel.trackingStyle              #dashedLine
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   101
variablePanel.trackingStyle              #dottedLine
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   102
#else
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   103
variablePanel.trackingStyle              #solidLine
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   104
#endif
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   105
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   106
variablePanel.showHandle                 false     "/ the default; can be overwritten by UI-spec
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   107
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   108
; variablePanel.barHeight                  4
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   109
; variablePanel.handleLevel                0
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   110
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   111
variablePanel.barHeight                  8
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   112
variablePanel.handleLevel                1
4290
21ed28a08d5d Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents: 4089
diff changeset
   113
variablePanel.handleStyle                #full
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   114
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   115
scrollableView.level                     -1
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   116
; scrollableView.backgroundColor           =viewLightGrey
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   117
scrolledView.borderWidth                 0
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   118
scrolledView.level                       0
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   119
scrolledView.margin                      1
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   120
scrolledView.zeroOffsets                 true
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   121
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   122
scrollBar.level                          0
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   123
scrollBar.spacing                        0
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   124
scrollBar.hiding                         true
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   125
; scrollBar.neverMini                      true
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   126
scrollBar.position                       #right
4290
21ed28a08d5d Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents: 4089
diff changeset
   127
scrollBar.buttonPositions                #around
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   128
scrollBar.viewBackground                 =viewLightGrey
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   129
scrollBar.elementSpacing                 0
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   130
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   131
#if Screen current hasGreyscales
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   132
scroller.viewBackground                  =viewLightGrey
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   133
scroller.thumbColor                      =viewGrey
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   134
; scroller.thumbEdgeStyle                  #soft
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   135
scroller.thumbEdgeStyle                  #softWin95
4290
21ed28a08d5d Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents: 4089
diff changeset
   136
scroller.thumbLightColor                 =viewGrey
21ed28a08d5d Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents: 4089
diff changeset
   137
scroller.thumbHalfLightColor             Color white
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   138
#else
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   139
scroller.viewBackground                  Color grey:87.5
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   140
scroller.thumbColor                      Color white
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   141
#endif
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   142
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   143
scroller.thumbLevel                      2
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   144
# scroller.borderWidth                     1
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   145
scroller.borderWidth                     0
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   146
scroller.level                           0
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   147
scroller.ghostFrameColor                 Color darkGrey
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   148
scroller.snapBack                        true
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   149
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   150
;button.activeLevel                      1
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   151
button.activeLevel                       -1 "/ 0
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   152
button.passiveLevel                      2
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   153
#if Screen current hasGreyscales
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   154
; button.edgeStyle                         #soft
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   155
button.edgeStyle                         #softWin95
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   156
; button.activeForegroundColor           Color black
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   157
; button.activeBackgroundColor           Color white
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   158
; button.enteredBackgroundColor          Color lightGrey
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   159
; button.halfShadowColor                   =viewGrey darkened exactOrNearestOn:(Screen current)
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   160
button.halfShadowColor                   =halfShadowColor
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   161
button.halfLightColor                    Color white
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   162
button.disabledEtchedForegroundColor     Color white
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   163
#else
4927
74d7fcbe1365 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4653
diff changeset
   164
; button.activeBackgroundColor             Color black
74d7fcbe1365 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4653
diff changeset
   165
; button.activeForegroundColor             Color white
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   166
; button.enteredBackgroundColor            Color grey:87.5
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   167
#endif
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   168
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   169
radioButton.style                       #image
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   170
radioButton.passiveImageFile            'RadioOff_w95.xpm'
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   171
radioButton.activeImageFile             'RadioOnBits_w95.xbm'
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   172
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   173
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   174
; arrowButton.upFormFile                   'ScrollUp.w95.14.xbm'.
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   175
; arrowButton.downFormFile                 'ScrollDn.w95.14.xbm'.
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   176
; arrowButton.leftFormFile                 'ScrollLt.w95.14.xbm'.
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   177
; arrowButton.rightFormFile                'ScrollRt.w95.14.xbm'.
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   178
arrowButton.upFormFile                   'ScrollUp.w95.11.xbm'.
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   179
arrowButton.downFormFile                 'ScrollDn.w95.11.xbm'.
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   180
arrowButton.leftFormFile                 'ScrollLt.w95.11.xbm'.
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   181
arrowButton.rightFormFile                'ScrollRt.w95.11.xbm'.
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   182
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   183
selection.rightArrowForm            Image extent:16@12 depth:1 \
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   184
				       bits:#[                       \
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   185
					      2r00000000 2r00000000  \
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   186
					      2r00000000 2r00000000  \
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   187
					      2r00000000 2r00000000  \
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   188
					      2r00000010 2r00000000  \
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   189
					      2r00000011 2r00000000  \
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   190
					      2r00000011 2r10000000  \
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   191
					      2r00000011 2r11000000  \
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   192
					      2r00000011 2r10000000  \
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   193
					      2r00000011 2r00000000  \
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   194
					      2r00000010 2r00000000  \
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   195
					      2r00000000 2r00000000  \
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   196
					      2r00000000 2r00000000  \
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   197
					     ] \
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   198
					pad:8
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   199
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   200
comboView.level                          -1
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   201
comboView.downFormFile                   'ScrollDn.w95.11.xbm'.
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   202
comboView.disabledDownFormFile           'ScrollDn_disabled.w95.11.xpm'.
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   203
4290
21ed28a08d5d Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents: 4089
diff changeset
   204
noteBook.tabTopMargin                   1
21ed28a08d5d Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents: 4089
diff changeset
   205
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   206
html.backgroundColor                     Color white
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   207
; html.anchorForegroundColor               Color green darkened
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   208
; html.visitedAnchorForegroundColor        =html.anchorForegroundColor darkened darkened
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   209
html.visitedAnchorForegroundColor        Color red:50 green:0 blue:50
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   210
; html.anchorUnderlines                    true
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   211
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   212
dataSet.labelView.level             0
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   213
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   214
activeHelp.backgroundColor               Color yellow lightened lightened lightened
3756
e41d0b4f269b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3750
diff changeset
   215
activeHelp.borderWidth                   1
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   216
6052
0b9c2f8f794c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5524
diff changeset
   217
#if ((OperatingSystem getSystemInfo at:#version ifAbsent:'') includesString:'Ubuntu')
0b9c2f8f794c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5524
diff changeset
   218
activeHelp.backgroundColor               (Color grey:15)
0b9c2f8f794c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5524
diff changeset
   219
activeHelp.foregroundColor                Color white
0b9c2f8f794c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5524
diff changeset
   220
#endif
0b9c2f8f794c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5524
diff changeset
   221
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   222
;
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   223
; if running under windows, use the systemColor settings
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   224
;
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   225
#if Screen current platformName = 'WIN32'
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   226
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   227
menu.backgroundColor             [Screen current getSystemColor:#'COLOR_MENU'          ]
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   228
menu.foregroundColor             [Screen current getSystemColor:#'COLOR_MENUTEXT'      ]
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   229
pullDownMenu.backgroundColor     [Screen current getSystemColor:#'COLOR_BTNFACE'       ]
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   230
;; pullDownMenu.backgroundColor     =menu.backgroundColor
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   231
button.backgroundColor           [Screen current getSystemColor:#'COLOR_BTNFACE'       ]
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   232
text.selectionForegroundColor    [Screen current getSystemColor:#'COLOR_HIGHLIGHTTEXT' ]
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   233
text.selectionBackgroundColor    [Screen current getSystemColor:#'COLOR_HIGHLIGHT'     ]
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   234
text.alternativeSelectionForegroundColor    Color black
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   235
;; text.alternativeSelectionBackgroundColor    Color redByte:255 greenByte:255 blueByte:204
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   236
text.alternativeSelectionBackgroundColor    =text.selectionBackgroundColor lightened
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   237
scroller.thumbColor              [Screen current getSystemColor:#'COLOR_BTNFACE'       ]
4324
ebb648985b96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4290
diff changeset
   238
selection.hilightForegroundColor [Screen current getSystemColor:#'COLOR_HIGHLIGHTTEXT' ]
ebb648985b96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4290
diff changeset
   239
selection.hilightBackgroundColor [Screen current getSystemColor:#'COLOR_HIGHLIGHT'     ]
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   240
scroller.vScrollerWidth          16 "/ [Screen current getSystemMetrics:#'SM_CXVSCROLL' ]
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   241
scroller.hScrollerHeight         16 "/ [Screen current getSystemMetrics:#'SM_CYHSCROLL' ]
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   242
scrollBar.vScrollBarWidth        16 "/ [Screen current getSystemMetrics:#'SM_CXVSCROLL' ]
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   243
scrollBar.hScrollBarHeight       16 "/ [Screen current getSystemMetrics:#'SM_CYHSCROLL' ]
4324
ebb648985b96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4290
diff changeset
   244
ebb648985b96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4290
diff changeset
   245
#else
ebb648985b96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4290
diff changeset
   246
ebb648985b96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4290
diff changeset
   247
scroller.vScrollerWidth          16 "/ [Screen current getSystemMetrics:#'SM_CXVSCROLL' ]
ebb648985b96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4290
diff changeset
   248
scroller.hScrollerHeight         16 "/ [Screen current getSystemMetrics:#'SM_CYHSCROLL' ]
ebb648985b96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4290
diff changeset
   249
scrollBar.vScrollBarWidth        16 "/ [Screen current getSystemMetrics:#'SM_CXVSCROLL' ]
ebb648985b96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4290
diff changeset
   250
scrollBar.hScrollBarHeight       16 "/ [Screen current getSystemMetrics:#'SM_CYHSCROLL' ]
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   251
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   252
#endif
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   253
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   254
#if (Screen current platformName = 'WIN32') and:[(Screen current getSystemColor:#'COLOR_SCROLLBAR') brightness > 0.95]
3970
f6bd28c95e8a *** empty log message ***
ca
parents: 3969
diff changeset
   255
scroller.viewBackground         [(Form width:8 height:8 fromArray:(Color ditherBits at:32) onDevice:Screen current) colorMap:(Array with:Color black with:(Screen current getSystemColor:#'COLOR_SCROLLBAR') )]
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   256
#endif
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   257
#if (Screen current platformName = 'WIN32') and:[(Screen current getSystemColor:#'COLOR_SCROLLBAR') brightness <= 0.95]
3970
f6bd28c95e8a *** empty log message ***
ca
parents: 3969
diff changeset
   258
scroller.viewBackground         [(Form width:8 height:8 fromArray:(Color ditherBits at:32) onDevice:Screen current) colorMap:(Array with:Color white with:(Screen current getSystemColor:#'COLOR_SCROLLBAR') )]
3750
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   259
#endif
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   260
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   261
warningBox.iconFile             'bitmaps/Warning_w95.xpm'
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   262
requestBox.iconFile             'bitmaps/Request_w95.xpm'
e410988ac7ca *** empty log message ***
ca
parents:
diff changeset
   263
errorBox.iconFile               'bitmaps/Error_w95.xpm'