styles/motif.common
author Claus Gittinger <cg@exept.de>
Fri, 16 Nov 2001 15:28:54 +0100
changeset 3550 675028a65fb6
parent 3283 0cc863d1405d
child 3703 b186440a7cf7
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
;
3550
675028a65fb6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3283
diff changeset
     5
; $Header: /cvs/stx/stx/libview/styles/motif.common,v 1.32 2001-11-16 14:28:54 cg Exp $
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
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
2539
05c647d68efe smaller fonts on small displays
Claus Gittinger <cg@exept.de>
parents: 2486
diff changeset
    16
fatFont          ? Font family:'helvetica' face:'bold' style:'roman' size:12
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
2155
27862eea4474 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1951
diff changeset
    18
selectionFont                   ? =fatFont
27862eea4474 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1951
diff changeset
    19
labelFont                       ? =fatFont
27862eea4474 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1951
diff changeset
    20
menuFont                        ? =fatFont
27862eea4474 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1951
diff changeset
    21
textFont                        ? Font family:'courier' size:12 
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
viewBackground                  =viewGrey
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
borderWidth                     0
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
focusColor                      Color black
2562
9628fa11ba4a dec motif style3 added
Claus Gittinger <cg@exept.de>
parents: 2539
diff changeset
    28
focus.explicitWithButtonPress   true
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
; focusColor                      Color yellow
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    31
scrollBar.position               #right 
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    32
scrollBar.buttonPositions        #around     
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    33
scrollBar.level                  -2
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    34
scrollBar.elementSpacing         0
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    35
scrollBar.disableButtons         true
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    36
; scrollBar.hiding                 true
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
2991
918e2f570098 removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents: 2982
diff changeset
    38
#if Screen current isNil or:[Screen current hasGreyscales]
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    39
scroller.thumbColor               =viewGrey
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    40
scroller.viewBackground           =mediumColor
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
#else
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
; grey 50 is too heavy - isn't it ?
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    43
; scroller.viewBackground          Color grey:50
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    44
scroller.viewBackground           Color white
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    45
scroller.thumbColor               Color white
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
#endif
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    47
scroller.thumbLevel               2
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    48
scroller.thumbInset               0
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    49
scrolled.viewLevel               -2
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    51
scroller.ghostFrameColor         Color black
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    52
scroller.middleButtonJump        true
451
df6eb30df68c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 309
diff changeset
    53
2468
1a93026b436f slightly increased miniScroller sizes
Claus Gittinger <cg@exept.de>
parents: 2155
diff changeset
    54
miniScroller.size                2.5       "/ millimeters
1a93026b436f slightly increased miniScroller sizes
Claus Gittinger <cg@exept.de>
parents: 2155
diff changeset
    55
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    56
slider.level                      -1
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    58
variablePanel.trackingStyle       #solidLine
3283
0cc863d1405d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3176
diff changeset
    59
variablePanel.handlePosition      #left
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
1924
5d09bd2ff0c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1879
diff changeset
    61
framedBox.labelPosition           #topLeft
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    63
label.foregroundColor             Color black
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
button.activeLevel                -2 
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    66
button.passiveLevel               2
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    67
button.returnButtonHasBorder      true
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    69
button.activeBackgroundColor      =mediumColor
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    70
button.activeForegroundColor      Color black
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    71
button.disabledForegroundColor    =shadowColor
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
2991
918e2f570098 removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents: 2982
diff changeset
    73
#if Screen current notNil and:[Screen current hasGreyscales not]
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    74
button.activeBackgroundColor      Color grey:80
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
#endif
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    77
arrowButton.style                 #motif
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    78
arrowButton.activeLevel           0
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    79
arrowButton.passiveLevel          0
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    81
arrowButton.foregroundColor         =viewGrey
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    82
arrowButton.backgroundColor         =mediumColor
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    83
arrowButton.activeForegroundColor   =viewGrey
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    84
arrowButton.activeBackgroundColor   =viewGrey
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    85
arrowButton.disabledForegroundColor =viewGrey
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
1951
5290a36652db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1948
diff changeset
    87
radioButton.style                 #motif
5290a36652db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1948
diff changeset
    88
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    89
editField.backgroundColor           =mediumColor
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    91
menu.hilightLevel                 2
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    92
menu.separatingLineInset          0
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    93
menu.viewBackgroundColor         =viewGrey
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    94
menu.disabledForegroundColor     =shadowColor
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    96
pullDownMenu.keepMenu                 true
3176
f14d2900bb5e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2991
diff changeset
    97
pullDownMenu.menuLevel                2
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    98
pullDownMenu.level                    1
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
    99
pullDownMenu.hilightLevel             2
2991
918e2f570098 removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents: 2982
diff changeset
   100
#if Screen current notNil and:[Screen current hasGreyscales not]
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   101
pullDownMenu.hilightForegroundColor   Color white
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   102
pullDownMenu.hilightBackgroundColor   Color black
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
#endif
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   104
pullDownMenu.autoselectFirst         true
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
2581
fd2db32b26b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2562
diff changeset
   106
popup.level                          2
fd2db32b26b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2562
diff changeset
   107
popup.borderWidth                    1     
fd2db32b26b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2562
diff changeset
   108
popup.hideOnRelease                  false    
fd2db32b26b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2562
diff changeset
   109
; popup.shadow                       false      "/ false is the default, anyway
fd2db32b26b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2562
diff changeset
   110
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   111
#selection.multiSelectionModifier      #Control
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   112
#selection.rightArrowLevel             -1
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   113
selection.rightArrowLevel             2
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   114
selection.lineSpacing                 4
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   115
selection.foregroundColor             Color black
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   116
selection.hilightBackgroundColor      Color black
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   117
selection.hilightStyle                #motif
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   118
selection.disabledForegroundColor     =shadowColor
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
1360
574d47019176 better noFocus cursors
Claus Gittinger <cg@exept.de>
parents: 1107
diff changeset
   120
#textCursorType                       #caret
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   121
textCursor.type                       #ibeam
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   122
textCursor.noFocusForegroundColor     Color grey
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   124
activeHelp.backgroundColor            Color yellow lightened
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   125
activeHelp.borderWidth                2
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   127
ruler.foregroundColor            Color black
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   128
ruler.backgroundColor            =viewGrey
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
2991
918e2f570098 removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents: 2982
diff changeset
   130
#if Screen current notNil and:[Screen current hasGrayscales not]
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   131
html.anchorUnderline                true
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   132
html.anchorForegroundColor          Color black
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   133
html.backgroundColor                Color white
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   134
html.activeAnchorForegroundColor    Color black
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   135
html.activeAnchorBackgroundColor    =htmlBackgroundColor
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   136
html.visitedAnchorForegroundColor   Color black
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   137
html.exampleAnchorForegroundColor   Color black
1620
49812898bfe2 html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents: 1504
diff changeset
   138
#endif
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
2486
a310c1c75516 ok is on the left with motif style.
Claus Gittinger <cg@exept.de>
parents: 2468
diff changeset
   140
;
a310c1c75516 ok is on the left with motif style.
Claus Gittinger <cg@exept.de>
parents: 2468
diff changeset
   141
; 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
   142
; some may be used to ok being on the left ...
2591
05699d29d642 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
   143
;
05699d29d642 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
   144
; for now, this is disabled, since we ought to
2965
063920a0e4c6 Use 14-point fonts for decWindows style
Stefan Vogel <sv@exept.de>
parents: 2591
diff changeset
   145
; dynamically adjust UIPainter generated specs
2591
05699d29d642 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
   146
; (and I dont know of an elegant solution to that - yet)
05699d29d642 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2581
diff changeset
   147
;
2982
b52d24260115 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2981
diff changeset
   148
dialogBox.okAtLeft                 true
2486
a310c1c75516 ok is on the left with motif style.
Claus Gittinger <cg@exept.de>
parents: 2468
diff changeset
   149
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   150
infoBox.separator                  true
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   151
infoBox.iconFile                   'bitmaps/Information_motif.xbm'
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   152
warningBox.iconFile                'bitmaps/Warning_motif.xbm'
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   153
requestBox.iconFile                'bitmaps/Request_motif.xbm'
3550
675028a65fb6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3283
diff changeset
   154
errorBox.iconFile                  'bitmaps/Error_motif.xbm'
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
2991
918e2f570098 removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents: 2982
diff changeset
   157
#if Screen current isNil or:[Screen current hasGrayscales]
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   158
arrowButton.upForm                 Image extent:11@12 \
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
					depth:2      \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
					bits:#[4r0000 4r0100 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
					       4r0000 4r1120 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
					       4r0000 4r1120 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
					       4r0001 4r1322 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
					       4r0001 4r1322 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
					       4r0011 4r3332 4r2000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
					       4r0011 4r3332 4r2000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   167
					       4r0113 4r3333 4r2200 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
					       4r0113 4r3333 4r2200 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
					       4r1122 4r2222 4r2220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
					       4r1222 4r2222 4r2220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
					       4r0000 4r0000 4r0000] \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
					pad:8
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   174
arrowButton.downForm               Image extent:11@12 \
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
					depth:2      \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   176
					bits:#[ \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
					       4r0000 4r0000 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
					       4r1111 4r1111 4r1110 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   179
					       4r1111 4r1111 4r1220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
					       4r0113 4r3333 4r2200 \
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
					       4r0011 4r3332 4r2000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
					       4r0011 4r3332 4r2000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
					       4r0001 4r1322 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
					       4r0001 4r1322 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
					       4r0000 4r1220 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
					       4r0000 4r1220 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
					       4r0000 4r0200 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
					      ] \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
					pad:8
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   192
arrowButton.leftForm               Image extent:12@11 \
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
					depth:2      \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
					bits:#[ \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
					       4r0000 4r0000 4r0110 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
					       4r0000 4r0001 4r1120 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
					       4r0000 4r0111 4r1220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
					       4r0001 4r1113 4r3220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
					       4r0111 4r1333 4r3220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
					       4r1113 4r3333 4r3220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   201
					       4r0222 4r2333 4r3220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   202
					       4r0002 4r2223 4r3220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   203
					       4r0000 4r0222 4r2220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   204
					       4r0000 4r0002 4r2220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
					       4r0000 4r0000 4r0220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   206
					      ] \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   207
					pad:8
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   208
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   209
arrowButton.rightForm              Image extent:12@11 \
199
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   210
					depth:2      \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
					bits:#[ \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
					       4r0110 4r0000 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   213
					       4r0111 4r1000 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
					       4r0111 4r1110 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
					       4r0113 4r3111 4r1000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
					       4r0113 4r3331 4r1110 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
					       4r0113 4r3333 4r3222 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
					       4r0113 4r3332 4r2220 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   219
					       4r0113 4r3222 4r2000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   220
					       4r0112 4r2220 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
					       4r0122 4r2000 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
					       4r0120 4r0000 4r0000 \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
					      ] \
b8f89a06090b Initial revision
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
					pad:8
1624
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   225
#else
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   226
arrowButton.upForm                 Image extent:11@12 \
1624
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   227
					depth:1      \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   228
					bits:#[2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   229
					       2r00000100 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   230
					       2r00000100 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   231
					       2r00001110 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   232
					       2r00001110 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   233
					       2r00011111 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   234
					       2r00011111 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   235
					       2r00111111 2r10000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   236
					       2r00111111 2r10000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   237
					       2r01111111 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   238
					       2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   239
					       2r00000000 2r00000000] \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   240
					pad:8
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   241
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   242
arrowButton.downForm               Image extent:11@12 \
1624
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   243
					depth:1      \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   244
					bits:#[2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   245
					       2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   246
					       2r01111111 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   247
					       2r00111111 2r10000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   248
					       2r00111111 2r10000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   249
					       2r00011111 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   250
					       2r00011111 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   251
					       2r00001110 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   252
					       2r00001110 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   253
					       2r00000100 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   254
					       2r00000100 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   255
					       2r00000000 2r00000000] \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   256
					pad:8
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   257
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   258
arrowButton.leftForm               Image extent:12@11 \
1624
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   259
					depth:1      \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   260
					bits:#[ \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   261
					       2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   262
					       2r00000000 2r01000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   263
					       2r00000001 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   264
					       2r00000111 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   265
					       2r00011111 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   266
					       2r01111111 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   267
					       2r00011111 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   268
					       2r00000111 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   269
					       2r00000001 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   270
					       2r00000000 2r11000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   271
					       2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   272
					      ] \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   273
					pad:8
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   274
1948
6a9b754ca6d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1924
diff changeset
   275
arrowButton.rightForm              Image extent:12@11 \
1624
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   276
					depth:1      \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   277
					bits:#[ \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   278
					       2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   279
					       2r00100000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   280
					       2r00111000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   281
					       2r00111110 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   282
					       2r00111111 2r10000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   283
					       2r00111111 2r11100000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   284
					       2r00111111 2r10000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   285
					       2r00111110 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   286
					       2r00111000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   287
					       2r00100000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   288
					       2r00000000 2r00000000 \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   289
					      ] \
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   290
					pad:8
46064adf74a0 b&w display fixes
Claus Gittinger <cg@exept.de>
parents: 1620
diff changeset
   291
#endif