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