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