styles/motif.common
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 14 Sep 2017 09:28:09 +0100
branchjv
changeset 8182 c730140a0156
parent 7738 ccae8e4abae1
permissions -rw-r--r--
X11: compile `GLXWorkstation` with OpenGL OpenGL compiler and linker flags are configured locally in `Make.proto` rather than in target config - this moves the configuration closer to the code. Currently all supported (and considered) platforms have OpenGL implementation. Later on one may use conditionals in makefile to deal exceptions.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
;
309
8cc4d0e7b41b germanism
Claus Gittinger <cg@exept.de>
parents: 199
diff changeset
     2
; common motif stuff (not a style, but included by all motif style variations)
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
;
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
;
6995
3bbd6e440efc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6621
diff changeset
     5
; $Header$
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
;
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
; this is to be included from the real style,
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
; with (at least) viewGrey, shadowColor, lightColor and mediumColor
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
; being predefined
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
;
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
is3D                            true
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
name                            #motif
7738
ccae8e4abae1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6998
diff changeset
    15
ToolbarIconLibrary              ?(Smalltalk at:#VistaToolbarIconLibrary) ? (Smalltalk at:#XPToolbarIconLibrary) ? GenericToolbarIconLibrary
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
3703
b186440a7cf7 *** empty log message ***
penk
parents: 3550
diff changeset
    17
fatFont                         ? Font family:'helvetica' face:'bold' style:'roman' size:12
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
2155
27862eea4474 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1951
diff changeset
    19
selectionFont                   ? =fatFont
27862eea4474 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1951
diff changeset
    20
labelFont                       ? =fatFont
27862eea4474 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1951
diff changeset
    21
menuFont                        ? =fatFont
6621
a1b4cfc5fd1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3755
diff changeset
    22
textFont                        ? Font family:'courier' size:12
7738
ccae8e4abae1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6998
diff changeset
    23
activeHelp.font                 ? (Font family:'helvetica' face:'roman' style:'bold' size:12)
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
viewBackground                  =viewGrey
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
borderWidth                     0
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
focusColor                      Color black
2562
9628fa11ba4a dec motif style3 added
Claus Gittinger <cg@exept.de>
parents: 2539
diff changeset
    30
focus.explicitWithButtonPress   true
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
; focusColor                      Color yellow
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
6621
a1b4cfc5fd1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3755
diff changeset
    33
scrollBar.position               #right
a1b4cfc5fd1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3755
diff changeset
    34
scrollBar.buttonPositions        #around
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    35
scrollBar.level                  -2
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    36
scrollBar.elementSpacing         0
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    37
scrollBar.disableButtons         true
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    38
; scrollBar.hiding                 true
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
2991
918e2f570098 removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents: 2982
diff changeset
    40
#if Screen current isNil or:[Screen current hasGreyscales]
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    41
scroller.thumbColor               =viewGrey
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    42
scroller.viewBackground           =mediumColor
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
#else
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
; grey 50 is too heavy - isn't it ?
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    45
; scroller.viewBackground          Color grey:50
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    46
scroller.viewBackground           Color white
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    47
scroller.thumbColor               Color white
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
#endif
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    49
scroller.thumbLevel               2
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    50
scroller.thumbInset               0
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    51
scrolled.viewLevel               -2
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    53
scroller.ghostFrameColor         Color black
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    54
scroller.middleButtonJump        true
451
df6eb30df68c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
    55
2468
1a93026b436f slightly increased miniScroller sizes
Claus Gittinger <cg@exept.de>
parents: 2155
diff changeset
    56
miniScroller.size                2.5       "/ millimeters
1a93026b436f slightly increased miniScroller sizes
Claus Gittinger <cg@exept.de>
parents: 2155
diff changeset
    57
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    58
slider.level                      -1
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    60
variablePanel.trackingStyle       #solidLine
3283
0cc863d1405d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3176
diff changeset
    61
variablePanel.handlePosition      #left
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    63
framedBox.labelPosition           #topLeft
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    65
label.foregroundColor             Color black
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
6621
a1b4cfc5fd1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3755
diff changeset
    67
button.activeLevel                -2
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    68
button.passiveLevel               2
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    69
button.returnButtonHasBorder      true
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    71
button.activeBackgroundColor      =mediumColor
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    72
button.activeForegroundColor      Color black
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    73
button.disabledForegroundColor    =shadowColor
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
2991
918e2f570098 removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents: 2982
diff changeset
    75
#if Screen current notNil and:[Screen current hasGreyscales not]
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    76
button.activeBackgroundColor      Color grey:80
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
#endif
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    79
arrowButton.style                 #motif
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    80
arrowButton.activeLevel           0
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    81
arrowButton.passiveLevel          0
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    83
arrowButton.foregroundColor         =viewGrey
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    84
arrowButton.backgroundColor         =mediumColor
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    85
arrowButton.activeForegroundColor   =viewGrey
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    86
arrowButton.activeBackgroundColor   =viewGrey
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    87
arrowButton.disabledForegroundColor =viewGrey
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
6995
3bbd6e440efc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6621
diff changeset
    89
radioButton.style                   #motif
1951
5290a36652db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1948
diff changeset
    90
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    91
editField.backgroundColor           =mediumColor
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
6995
3bbd6e440efc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6621
diff changeset
    93
menu.hilightLevel                   2
3bbd6e440efc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6621
diff changeset
    94
menu.separatingLineInset            0
3bbd6e440efc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6621
diff changeset
    95
menuBackgroundColor                 =viewGrey
3bbd6e440efc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6621
diff changeset
    96
menu.viewBackgroundColor            =viewGrey
3bbd6e440efc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6621
diff changeset
    97
menu.disabledForegroundColor        =shadowColor
3bbd6e440efc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6621
diff changeset
    98
menu.extraMargin                    2
3bbd6e440efc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6621
diff changeset
    99
menu.suppressSeparatingLinesInToolbar        true
3bbd6e440efc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6621
diff changeset
   100
3bbd6e440efc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6621
diff changeset
   101
menu.buttonPassiveLevel        1
3bbd6e440efc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6621
diff changeset
   102
menu.buttonActiveLevel         -1
3bbd6e440efc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6621
diff changeset
   103
menu.buttonEnteredLevel        1
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   105
pullDownMenu.keepMenu                 true
3176
f14d2900bb5e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2991
diff changeset
   106
pullDownMenu.menuLevel                2
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   107
pullDownMenu.level                    1
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   108
pullDownMenu.hilightLevel             2
2991
918e2f570098 removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents: 2982
diff changeset
   109
#if Screen current notNil and:[Screen current hasGreyscales not]
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   110
pullDownMenu.hilightForegroundColor   Color white
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   111
pullDownMenu.hilightBackgroundColor   Color black
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
#endif
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   113
pullDownMenu.autoselectFirst         true
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
2581
fd2db32b26b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2562
diff changeset
   115
popup.level                          2
6621
a1b4cfc5fd1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3755
diff changeset
   116
popup.borderWidth                    1
a1b4cfc5fd1d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3755
diff changeset
   117
popup.hideOnRelease                  false
2581
fd2db32b26b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2562
diff changeset
   118
; popup.shadow                       false      "/ false is the default, anyway
fd2db32b26b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2562
diff changeset
   119
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   120
#selection.multiSelectionModifier      #Control
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   121
#selection.rightArrowLevel             -1
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   122
selection.rightArrowLevel             2
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   123
selection.lineSpacing                 4
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   124
selection.foregroundColor             Color black
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   125
selection.hilightBackgroundColor      Color black
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   126
selection.hilightStyle                #motif
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   127
selection.disabledForegroundColor     =shadowColor
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
3716
d7739a80eac8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3714
diff changeset
   129
text.alternativeSelectionForegroundColor    Color black
d7739a80eac8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3714
diff changeset
   130
text.alternativeSelectionBackgroundColor    (Color redByte:150 "255" greenByte:255 blueByte:100 "204")
d7739a80eac8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3714
diff changeset
   131
1360
574d47019176 better noFocus cursors
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
   132
#textCursorType                       #caret
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   133
textCursor.type                       #ibeam
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   134
textCursor.noFocusForegroundColor     Color grey
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
3755
c858c8ac184a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3716
diff changeset
   136
activeHelp.backgroundColor            Color yellow lightened lightened lightened
c858c8ac184a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3716
diff changeset
   137
activeHelp.borderWidth                1
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   139
ruler.foregroundColor            Color black
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   140
ruler.backgroundColor            =viewGrey
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
2991
918e2f570098 removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents: 2982
diff changeset
   142
#if Screen current notNil and:[Screen current hasGrayscales not]
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   143
html.anchorUnderline                true
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   144
html.anchorForegroundColor          Color black
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   145
html.backgroundColor                Color white
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   146
html.activeAnchorForegroundColor    Color black
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   147
html.activeAnchorBackgroundColor    =htmlBackgroundColor
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   148
html.visitedAnchorForegroundColor   Color black
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   149
html.exampleAnchorForegroundColor   Color black
1620
49812898bfe2 html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents: 1504
diff changeset
   150
#endif
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
3703
b186440a7cf7 *** empty log message ***
penk
parents: 3550
diff changeset
   152
dataSet.labelView.level             -1
b186440a7cf7 *** empty log message ***
penk
parents: 3550
diff changeset
   153
dataSet.labelView.verticalSpace     2
b186440a7cf7 *** empty log message ***
penk
parents: 3550
diff changeset
   154
2486
a310c1c75516 ok is on the left with motif style.
Claus Gittinger <cg@exept.de>
parents: 2468
diff changeset
   155
;
a310c1c75516 ok is on the left with motif style.
Claus Gittinger <cg@exept.de>
parents: 2468
diff changeset
   156
; this reverses the ok-cancel order in dialogs;
a310c1c75516 ok is on the left with motif style.
Claus Gittinger <cg@exept.de>
parents: 2468
diff changeset
   157
; some may be used to ok being on the left ...
2591
05699d29d642 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
   158
;
2982
b52d24260115 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2981
diff changeset
   159
dialogBox.okAtLeft                 true
2486
a310c1c75516 ok is on the left with motif style.
Claus Gittinger <cg@exept.de>
parents: 2468
diff changeset
   160
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   161
infoBox.separator                  true
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   162
infoBox.iconFile                   'bitmaps/Information_motif.xbm'
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   163
warningBox.iconFile                'bitmaps/Warning_motif.xbm'
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   164
requestBox.iconFile                'bitmaps/Request_motif.xbm'
3550
675028a65fb6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3283
diff changeset
   165
errorBox.iconFile                  'bitmaps/Error_motif.xbm'
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
6998
7b934144a496 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6995
diff changeset
   167
launcher.editorLevel        1
7b934144a496 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6995
diff changeset
   168
infobar.level               1
7b934144a496 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6995
diff changeset
   169
application.toolbarLevel    1
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
2991
918e2f570098 removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents: 2982
diff changeset
   171
#if Screen current isNil or:[Screen current hasGrayscales]
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   172
arrowButton.upForm                 Image extent:11@12 \
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
					depth:2      \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
					bits:#[4r0000 4r0100 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
					       4r0000 4r1120 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   176
					       4r0000 4r1120 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
					       4r0001 4r1322 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
					       4r0001 4r1322 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   179
					       4r0011 4r3332 4r2000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
					       4r0011 4r3332 4r2000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
					       4r0113 4r3333 4r2200 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
					       4r0113 4r3333 4r2200 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
					       4r1122 4r2222 4r2220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
					       4r1222 4r2222 4r2220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
					       4r0000 4r0000 4r0000] \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
					pad:8
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   188
arrowButton.downForm               Image extent:11@12 \
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
					depth:2      \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
					bits:#[ \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
					       4r0000 4r0000 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
					       4r1111 4r1111 4r1110 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
					       4r1111 4r1111 4r1220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
					       4r0113 4r3333 4r2200 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
					       4r0113 4r3333 4r2200 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
					       4r0011 4r3332 4r2000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
					       4r0011 4r3332 4r2000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
					       4r0001 4r1322 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
					       4r0001 4r1322 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
					       4r0000 4r1220 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   201
					       4r0000 4r1220 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   202
					       4r0000 4r0200 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   203
					      ] \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   204
					pad:8
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   206
arrowButton.leftForm               Image extent:12@11 \
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   207
					depth:2      \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   208
					bits:#[ \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   209
					       4r0000 4r0000 4r0110 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   210
					       4r0000 4r0001 4r1120 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
					       4r0000 4r0111 4r1220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
					       4r0001 4r1113 4r3220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   213
					       4r0111 4r1333 4r3220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
					       4r1113 4r3333 4r3220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
					       4r0222 4r2333 4r3220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
					       4r0002 4r2223 4r3220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
					       4r0000 4r0222 4r2220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
					       4r0000 4r0002 4r2220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   219
					       4r0000 4r0000 4r0220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   220
					      ] \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
					pad:8
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   223
arrowButton.rightForm              Image extent:12@11 \
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
					depth:2      \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
					bits:#[ \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   226
					       4r0110 4r0000 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   227
					       4r0111 4r1000 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   228
					       4r0111 4r1110 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   229
					       4r0113 4r3111 4r1000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
					       4r0113 4r3331 4r1110 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   231
					       4r0113 4r3333 4r3222 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   232
					       4r0113 4r3332 4r2220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   233
					       4r0113 4r3222 4r2000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   234
					       4r0112 4r2220 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   235
					       4r0122 4r2000 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   236
					       4r0120 4r0000 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   237
					      ] \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   238
					pad:8
1624
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   239
#else
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   240
arrowButton.upForm                 Image extent:11@12 \
1624
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   241
					depth:1      \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   242
					bits:#[2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   243
					       2r00000100 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   244
					       2r00000100 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   245
					       2r00001110 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   246
					       2r00001110 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   247
					       2r00011111 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   248
					       2r00011111 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   249
					       2r00111111 2r10000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   250
					       2r00111111 2r10000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   251
					       2r01111111 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   252
					       2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   253
					       2r00000000 2r00000000] \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   254
					pad:8
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   255
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   256
arrowButton.downForm               Image extent:11@12 \
1624
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   257
					depth:1      \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   258
					bits:#[2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   259
					       2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   260
					       2r01111111 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   261
					       2r00111111 2r10000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   262
					       2r00111111 2r10000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   263
					       2r00011111 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   264
					       2r00011111 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   265
					       2r00001110 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   266
					       2r00001110 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   267
					       2r00000100 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   268
					       2r00000100 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   269
					       2r00000000 2r00000000] \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   270
					pad:8
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   271
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   272
arrowButton.leftForm               Image extent:12@11 \
1624
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   273
					depth:1      \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   274
					bits:#[ \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   275
					       2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   276
					       2r00000000 2r01000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   277
					       2r00000001 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   278
					       2r00000111 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   279
					       2r00011111 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   280
					       2r01111111 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   281
					       2r00011111 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   282
					       2r00000111 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   283
					       2r00000001 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   284
					       2r00000000 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   285
					       2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   286
					      ] \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   287
					pad:8
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   288
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   289
arrowButton.rightForm              Image extent:12@11 \
1624
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   290
					depth:1      \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   291
					bits:#[ \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   292
					       2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   293
					       2r00100000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   294
					       2r00111000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   295
					       2r00111110 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   296
					       2r00111111 2r10000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   297
					       2r00111111 2r11100000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   298
					       2r00111111 2r10000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   299
					       2r00111110 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   300
					       2r00111000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   301
					       2r00100000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   302
					       2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   303
					      ] \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   304
					pad:8
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   305
#endif