styles/motif.common
author Claus Gittinger <cg@exept.de>
Mon, 12 Dec 2016 11:20:26 +0100
changeset 7738 ccae8e4abae1
parent 6998 7b934144a496
permissions -rw-r--r--
*** empty log message ***
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