UIPainter.st
author Claus Gittinger <cg@exept.de>
Wed, 12 Apr 2017 15:58:35 +0200
changeset 3442 01fc9215d9c2
parent 3428 2159fce56364
child 3444 4d705dd47c2d
permissions -rw-r--r--
#UI_ENHANCEMENT by expecco class: ImageEditor class changed: #circleIcon #specialCircleIcon #specialRectangleIcon
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     1
"
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
     2
 COPYRIGHT (c) 1995-1998 by eXept Software AG
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
     3
              All Rights Reserved
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     4
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     5
 This software is furnished under a license and may be used
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     6
 only in accordance with the terms of that license and with the
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     8
 be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     9
 other person.  No title to or ownership of the software is
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    10
 hereby transferred.
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    11
"
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
    12
"{ Package: 'stx:libtool2' }"
1391
be99f3e9260e set changed label in tree-view for canvas
ca
parents: 1360
diff changeset
    13
3218
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
    14
"{ NameSpace: Smalltalk }"
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
    15
2007
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
    16
ResourceSpecEditor subclass:#UIPainter
2218
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
    17
	instanceVariableNames:'specSuperclassName treeView selectionPanel specTool layoutTool
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
    18
		helpTool painterView painter lastPort lastPage'
2500
3e2feb544801 cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents: 2479
diff changeset
    19
	classVariableNames:'SelectionPanelClass UseViewScroller LastPort LastPage
3e2feb544801 cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents: 2479
diff changeset
    20
		DefaultEditToolBarVisible DefaultToolBarVisible'
2218
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
    21
	poolDictionaries:''
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
    22
	category:'Interface-UIPainter'
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    23
!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    24
3111
618a32168c9c class: UIPainter
Stefan Vogel <sv@exept.de>
parents: 3108
diff changeset
    25
Query subclass:#ApplicationClassQuery
618a32168c9c class: UIPainter
Stefan Vogel <sv@exept.de>
parents: 3108
diff changeset
    26
	instanceVariableNames:''
618a32168c9c class: UIPainter
Stefan Vogel <sv@exept.de>
parents: 3108
diff changeset
    27
	classVariableNames:''
618a32168c9c class: UIPainter
Stefan Vogel <sv@exept.de>
parents: 3108
diff changeset
    28
	poolDictionaries:''
618a32168c9c class: UIPainter
Stefan Vogel <sv@exept.de>
parents: 3108
diff changeset
    29
	privateIn:UIPainter
618a32168c9c class: UIPainter
Stefan Vogel <sv@exept.de>
parents: 3108
diff changeset
    30
!
618a32168c9c class: UIPainter
Stefan Vogel <sv@exept.de>
parents: 3108
diff changeset
    31
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    32
SelectionInTreeView subclass:#TreeView
2541
6241ec9e6a6f default name of top-level spec
Claus Gittinger <cg@exept.de>
parents: 2540
diff changeset
    33
	instanceVariableNames:'lastDrawnMaster canvasEventsDisabled windowSpec windowSpecClass
6241ec9e6a6f default name of top-level spec
Claus Gittinger <cg@exept.de>
parents: 2540
diff changeset
    34
		painter'
2218
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
    35
	classVariableNames:''
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
    36
	poolDictionaries:''
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
    37
	privateIn:UIPainter
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    38
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    39
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    40
!UIPainter class methodsFor:'documentation'!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    41
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    42
copyright
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    43
"
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    44
 COPYRIGHT (c) 1995-1998 by eXept Software AG
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    45
              All Rights Reserved
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    46
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    47
 This software is furnished under a license and may be used
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    48
 only in accordance with the terms of that license and with the
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    49
 inclusion of the above copyright notice.   This software may not
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    50
 be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    51
 other person.  No title to or ownership of the software is
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    52
 hereby transferred.
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    53
"
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    54
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    55
!
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    56
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    57
documentation
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    58
"
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    59
    The GUI Painter provides the user with a graphical user interface for building own 
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    60
    interfaces by interactively assembling widgets and defining the behavior of the widgets.
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    61
    The resulting interface specifications can be saved as methods on the application
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    62
    classes, typically subclasses of the class ApplicationModel. These specifications
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    63
    are used by the UIBuilder to generate the application window and its widgets when 
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    64
    opening the application.
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    65
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    66
    [start with:]
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    67
        UIPainter open
127
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    68
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    69
    [author:]
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    70
        Claus Gittinger, eXept Software AG
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    71
        Claus Atzkern, eXept Software AG
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    72
        Thomas Zwick, eXept Software AG
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    73
127
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    74
    [see also:]
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    75
        UIBuilder
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    76
        ApplicationModel
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    77
        UISpecification
2277
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
    78
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
    79
    [instance variables:]                                                  
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
    80
        isSpecOnlyPainter       true if this painter is for a spec only (as used by expecco),
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
    81
                                as opposed to a regular painter, which stores the spec in a class.
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
    82
                                A spec-only painter has no class to store additional specs (esp.
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
    83
                                menu- and tabSpecs) and should not offer postBuild and other
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
    84
                                callback functions.
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    85
"
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    86
! !
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    87
2399
1ae184ce9595 category change
Claus Gittinger <cg@exept.de>
parents: 2397
diff changeset
    88
!UIPainter class methodsFor:'initialization'!
1ae184ce9595 category change
Claus Gittinger <cg@exept.de>
parents: 2397
diff changeset
    89
1ae184ce9595 category change
Claus Gittinger <cg@exept.de>
parents: 2397
diff changeset
    90
initialize
1ae184ce9595 category change
Claus Gittinger <cg@exept.de>
parents: 2397
diff changeset
    91
    SelectionPanelClass isNil ifTrue:[
1ae184ce9595 category change
Claus Gittinger <cg@exept.de>
parents: 2397
diff changeset
    92
        SelectionPanelClass := UISelectionPanel
1ae184ce9595 category change
Claus Gittinger <cg@exept.de>
parents: 2397
diff changeset
    93
    ].
1ae184ce9595 category change
Claus Gittinger <cg@exept.de>
parents: 2397
diff changeset
    94
! !
1ae184ce9595 category change
Claus Gittinger <cg@exept.de>
parents: 2397
diff changeset
    95
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    96
!UIPainter class methodsFor:'instance creation'!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    97
195
350f95af5d9d check before sending selector to class
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    98
openOnClass:aClass andSelector:aSelector
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
    99
    "open a GUI Painter on aClass and (windowSpec) aSelector"
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
   100
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
   101
    ^ self new openOnClass:aClass theNonMetaclass andSelector:aSelector
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
   102
! !
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
   103
87
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
   104
!UIPainter class methodsFor:'ST-80 queries'!
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
   105
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
   106
preferenceFor:aSymbol
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   107
    "ST-80 compatible; always returns false
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   108
    "
87
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
   109
    ^ false
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
   110
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
   111
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
   112
! !
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
   113
2541
6241ec9e6a6f default name of top-level spec
Claus Gittinger <cg@exept.de>
parents: 2540
diff changeset
   114
!UIPainter class methodsFor:'defaults'!
6241ec9e6a6f default name of top-level spec
Claus Gittinger <cg@exept.de>
parents: 2540
diff changeset
   115
6241ec9e6a6f default name of top-level spec
Claus Gittinger <cg@exept.de>
parents: 2540
diff changeset
   116
defaultEditToolbarVisible
6241ec9e6a6f default name of top-level spec
Claus Gittinger <cg@exept.de>
parents: 2540
diff changeset
   117
    ^ DefaultEditToolBarVisible ? true
6241ec9e6a6f default name of top-level spec
Claus Gittinger <cg@exept.de>
parents: 2540
diff changeset
   118
!
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   119
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   120
defaultNameOfCanvas
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
   121
    "returns the default name of the application"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
   122
2208
4e1c31df6014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2206
diff changeset
   123
    ^ 'NewApplication'
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   124
!
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   125
2541
6241ec9e6a6f default name of top-level spec
Claus Gittinger <cg@exept.de>
parents: 2540
diff changeset
   126
defaultToolbarVisible
6241ec9e6a6f default name of top-level spec
Claus Gittinger <cg@exept.de>
parents: 2540
diff changeset
   127
    ^ DefaultToolBarVisible ? true
6241ec9e6a6f default name of top-level spec
Claus Gittinger <cg@exept.de>
parents: 2540
diff changeset
   128
!
6241ec9e6a6f default name of top-level spec
Claus Gittinger <cg@exept.de>
parents: 2540
diff changeset
   129
2218
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
   130
selectionPanelClass
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
   131
    ^ SelectionPanelClass
2225
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   132
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   133
    "
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   134
     UIPainter selectionPanelClass.
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   135
     UIPainter selectionPanelClass:UISelectionPanel
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   136
    "
2218
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
   137
!
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
   138
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   139
selectionPanelClass:something
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   140
    "set the class used as selection panel.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   141
     this is UISelectionPanel as default"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   142
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   143
    SelectionPanelClass := something.
2225
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   144
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   145
    "
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   146
     UIPainter selectionPanelClass:UISelectionPanel
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   147
    "
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   148
! !
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   149
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   150
!UIPainter class methodsFor:'help specs'!
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   151
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   152
flyByHelpSpec
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   153
    <resource: #help>
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   154
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   155
    ^super flyByHelpSpec 
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   156
        addPairsFrom:#(
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   157
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   158
#fileSave
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
   159
'Save Spec'
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
   160
2336
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   161
shadesOfRed
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   162
'Red color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   163
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   164
shadesOfGreen
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   165
'Green color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   166
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   167
shadesOfBlue
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   168
'Blue color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   169
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   170
shadesOfCyan
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   171
'Cyan color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   172
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   173
shadesOfMagenta
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   174
'Magenta color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   175
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   176
shadesOfYellow
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   177
'Yellow color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   178
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   179
shadesOfGray
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   180
'Gray color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   181
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   182
openColorEditor
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   183
'Open a color editor'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   184
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   185
pickColorFromScreen
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   186
'Pick a color from the screen'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   187
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   188
recentlyUsedColors
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   189
'Pick a recently used color'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   190
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   191
useDefaultColorToggle
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   192
'Toggle between default and explicit color'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   193
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   194
);
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   195
    declareAllFrom:self helpSpec
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   196
!
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   197
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   198
helpSpec
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   199
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   200
     by the UIHelpTool of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   201
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   202
    "Do not manually edit this!! If it is corrupted,
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   203
     the UIHelpTool may not be able to read the specification."
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
   204
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   205
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   206
     UIHelpTool openOnClass:UIPainter    
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
   207
    "
114befd1c369 add some help text
ca
parents: 287
diff changeset
   208
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   209
    <resource: #help>
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   210
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   211
    ^ super helpSpec addPairsFrom:#(
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   212
934
b32cfce56571 help specs
Claus Gittinger <cg@exept.de>
parents: 924
diff changeset
   213
#align
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   214
'Widget alignment functions'
934
b32cfce56571 help specs
Claus Gittinger <cg@exept.de>
parents: 924
diff changeset
   215
3032
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   216
#alignResizeSelectionBottom
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   217
'Resize the selected widgets'' bottom edges to align them with the bottom of the dominant widget'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   218
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   219
#alignResizeSelectionLeft
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   220
'Resize the selected widgets'' left edges to align them with the left edge of the dominant widget'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   221
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   222
#alignResizeSelectionRight
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   223
'Resize the selected widgets'' right edges to align them with the right edge of the dominant widget'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   224
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   225
#alignResizeSelectionTop
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   226
'Resize the selected widgets'' top edges to align them with the top edge of the dominant widget'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   227
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   228
#alignSelectionBottom
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   229
'Aligns the selected widgets'' bottom edges with the bottom of the dominant widget'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   230
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   231
#alignSelectionCenterHor
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   232
'Aligns the selected widgets'' centers vertically with the center of the dominant widget'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   233
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   234
#alignSelectionCenterVer
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   235
'Aligns the selected widgets'' centers horizontally with the center of the dominant widget'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   236
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   237
#alignSelectionLeft
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   238
'Aligns the selected widgets'' left edges with the left edge of the dominant widget'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   239
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   240
#alignSelectionLeftAndRight
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   241
'Aligns the selected widgets'' left & right edges with the dominant widget'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   242
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   243
#alignSelectionRight
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   244
'Aligns the selected widgets'' right edges with the right edge of the dominant widget'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   245
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   246
#alignSelectionTop
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   247
'Aligns the selected widgets'' top edges with the top edge of the dominant widget'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   248
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   249
#alignSelectionTopAndBottom
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   250
'Aligns the selected widgets'' top and bottom edges with the dominant widget'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   251
3032
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   252
#alignToGrid
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   253
'Am Raster ausrichten'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   254
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   255
#centerSelectionHor
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   256
'Centers the selected widgets horizontally within their containing widget'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   257
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   258
#centerSelectionVer
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   259
'Centers the selected widgets vertically within their containing widget'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   260
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   261
#changePositionDown
3218
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   262
'Moves the selected widget(s) towards the bottom (by %1 pixels)'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   263
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   264
#changePositionLeft
3218
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   265
'Moves the selected widget(s) towards the left (by %1 pixels)'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   266
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   267
#changePositionRight
3218
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   268
'Moves the selected widget(s) towards the right (by %1 pixels)'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   269
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   270
#changePositionUp
3218
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   271
'Moves the selected widget(s) towards the top (by %1 pixels)'
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   272
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   273
#'changeMoveDelta'
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   274
'Click to change the delta by which the buttons to the left move the selected widget(s)'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   275
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   276
#drawEdit
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   277
''
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   278
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   279
#editBrowseViewClass
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   280
'Opens a browser on the class of the selected widget'
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   281
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   282
#editDimensionCopyExtent
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   283
'Copies the extent of the selected widget'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   284
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   285
#editDimensionCopyLayout
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   286
'Copies the layout of the selected widget'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   287
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   288
#editDimensionDefaultExtent
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   289
'Sets the selected widget(s) extent to their default'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   290
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   291
#editDimensionDefaultHeight
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   292
'Sets the selected widget(s) height to their default'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   293
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   294
#editDimensionDefaultWidth
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   295
'Sets the selected widget(s) width to their default'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   296
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   297
#editDimensionPasteExtent
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   298
'Sets the extent of the selected widget(s) to the last copied extent'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   299
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   300
#editDimensionPasteHeight
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   301
'Sets the height of the selected widget(s) to the height of the last copied layout/extent'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   302
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   303
#editDimensionPasteLayout
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   304
'Sets the layout of the selected widget(s) to the last copied layout'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   305
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   306
#editDimensionPasteWidth
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   307
'Sets the width of the selected widget(s) to the width of the last copied layout/extent'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   308
724
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
   309
#editInspectSpec
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   310
'Opens an inspector on the spec of the selected widget'
724
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
   311
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   312
#editInspectView
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   313
'Opens an inspector on the selected widget'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   314
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   315
#editOpenSpecDocumentation
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   316
'Opens the documentation of the selected widget'
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   317
3032
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   318
#editSaveSpecForSelection
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   319
'Generate a sub-spec method for the selected element only.\Useful when refactoring an existing spec into sub specifications.'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   320
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   321
#fileBrowseAspectMethods
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   322
'Opens a System Browser on the application''s aspect methods'
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   323
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   324
#fileBrowseClass
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   325
'Open a System Browser on the application''s class'
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   326
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   327
#fileLoad
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   328
'Opens a dialog to load a window specification from a classes spec method'
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   329
533
dde823aeca4c supports loading of subspecs
tz
parents: 527
diff changeset
   330
#fileLoadSubspec
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   331
'Opens a dialog to load a sub specification from a classes windowSpec method'
533
dde823aeca4c supports loading of subspecs
tz
parents: 527
diff changeset
   332
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   333
#fileNew
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   334
'Creates a new window spec'
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   335
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   336
#filePickAnInterface
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   337
'Select a view on the screen, generate a window spec for it and edit this spec'
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   338
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   339
#fileSave
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   340
'Saves the window spec in the current class (as spec method)'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   341
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   342
#fileSaveAs
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   343
'Opens a dialog to select class and selector for saving the window spec'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   344
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   345
#fileShowWindowSpec
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   346
'Opens a Workspace showing the current window spec'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   347
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   348
#generateAspectMethods
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   349
'Generates aspect methods for defined aspect selectors of the widgets'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   350
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   351
#generateHookMethods
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   352
'Generates startup/release methods. (#closeRequest, #postBuildWith:, #postOpenWith:)'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   353
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   354
#helpExamples
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   355
'Show some examples uses of the GUI Painter'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   356
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   357
#helpFunctions
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   358
'Show the documentation on the GUI Painters menu and button functions'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   359
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   360
#helpLayoutTool
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   361
'Show the Layout Tools documentation'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   362
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   363
#helpSelectedWidget
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   364
'Show the documentation of the selected widget'
935
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   365
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   366
#helpTutorial
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   367
'Show the GUI Painters documentation'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   368
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   369
#historyMenuItem
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   370
'Edit this windowSpec'
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   371
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   372
#moveWidgetDown
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   373
'Moves the selected widget down in the list (brings it to the front)'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   374
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   375
#moveWidgetInto
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   376
'Moves the selected widget into next widget as child widget'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   377
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   378
#moveWidgetOut
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   379
'Moves the selected widget out of its parent widget'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   380
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   381
#moveWidgetUp
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   382
'Moves the selected widget up in the list (brings it to the back)'
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   383
3032
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   384
#openColorEditor
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   385
'Open a color editor'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   386
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   387
#pasteBuffer
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   388
'Pastes the widgets of the clipboard at the current mouse position'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   389
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   390
#pasteWithLayout
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   391
'Pastes the widgets of the clipboard without changing their layouts'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   392
3032
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   393
#pickColorFromScreen
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   394
'Pick a color from the screen'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   395
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   396
#recentlyUsedColors
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   397
'Pick a recently used color'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   398
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   399
#referToConfigDatabase
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   400
''
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   401
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   402
#settingsAspectsAsInstances
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   403
'Generate aspects as instance variables (or bindings, if off)'
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   404
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   405
#settingsCanvas
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   406
'Shows or hides the canvas window'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   407
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   408
#settingsGallery
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   409
'Shows or hides the gallery window'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   410
2294
0a4591e6bb20 changed #doGenerateAspectMethodFor
Stefan Vogel <sv@exept.de>
parents: 2293
diff changeset
   411
#settingsGenerateCommentedCode
3032
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   412
'Enables/disables comments in the generated code, especially in aspect and hook methods'
2294
0a4591e6bb20 changed #doGenerateAspectMethodFor
Stefan Vogel <sv@exept.de>
parents: 2293
diff changeset
   413
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   414
#settingsGridManager
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   415
'Opens a dialog to toggle grid display or to change the grids spacing'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   416
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   417
#settingsRedefineAspectMethods
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   418
'Toggles the permission to overwrite existing aspect methods'
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   419
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   420
#settingsTranscriptHelp
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   421
'Toggles display of help texts (after opening a new GUI Painter)'
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   422
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   423
#settingsUndoManager
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   424
'Opens a dialog to undo modifications'
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   425
3032
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   426
#shadesOfBlue
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   427
'Blue color tones'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   428
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   429
#shadesOfCyan
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   430
'Cyan color tones'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   431
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   432
#shadesOfGray
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   433
'Gray color tones'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   434
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   435
#shadesOfGreen
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   436
'Green color tones'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   437
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   438
#shadesOfMagenta
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   439
'Magenta color tones'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   440
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   441
#shadesOfRed
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   442
'Red color tones'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   443
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   444
#shadesOfYellow
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   445
'Yellow color tones'
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   446
2690
fc931f748fb4 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2662
diff changeset
   447
#showGrid
fc931f748fb4 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2662
diff changeset
   448
'Raster zeigen'
fc931f748fb4 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2662
diff changeset
   449
2310
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
   450
#sortItems
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
   451
'Sort the selected items by position (left to right, top to bottom)'
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
   452
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   453
#spreadSelectionHor
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   454
'Sets the horizontal spaces between the selected widgets to the same value'
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   455
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   456
#spreadSelectionVer
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   457
'Sets the vertical spaces between the selected widgets to the same value'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   458
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   459
#testGeometryTestMode
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   460
'Toggles geometry test mode (to define ratios of variable panels and top-window dimension)'
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   461
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   462
#testStartApplication
2901
4c010c4a4166 changed: #helpSpec
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
   463
'Starts the application with the current window spec'
194
2b05bd327785 recompute property list when changing view ordering by
ca
parents: 193
diff changeset
   464
3032
41f4128c029c class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3025
diff changeset
   465
#useDefaultColorToggle
2336
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   466
'Toggle between default and explicit color'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   467
3229
ba4c463b66ad #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 3228
diff changeset
   468
#useDefaultFontToggle
ba4c463b66ad #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 3228
diff changeset
   469
'Toggle between default and explicit font'
ba4c463b66ad #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 3228
diff changeset
   470
ba4c463b66ad #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 3228
diff changeset
   471
#concreteFontsFamily
ba4c463b66ad #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 3228
diff changeset
   472
'Choose a font family'
ba4c463b66ad #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 3228
diff changeset
   473
ba4c463b66ad #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 3228
diff changeset
   474
#concreteFontsFace
ba4c463b66ad #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 3228
diff changeset
   475
'Choose a font face'
ba4c463b66ad #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 3228
diff changeset
   476
ba4c463b66ad #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 3228
diff changeset
   477
#concreteFontsStyle
ba4c463b66ad #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 3228
diff changeset
   478
'Choose a font style'
ba4c463b66ad #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 3228
diff changeset
   479
ba4c463b66ad #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 3228
diff changeset
   480
#concreteFontsSize
ba4c463b66ad #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 3228
diff changeset
   481
'Choose a font size (in points, not pixels)'
ba4c463b66ad #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 3228
diff changeset
   482
3054
Claus Gittinger <cg@exept.de>
parents: 3053
diff changeset
   483
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   484
)
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   485
! !
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   486
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   487
!UIPainter class methodsFor:'helpers'!
14db1276218c change the spec;
ca
parents: 295
diff changeset
   488
368
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   489
convertString:aString maxLineSize:maxCharactersPerLine skipLineFeed:skipLineFeed
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   490
    "converts a string to a string collection with maximum characters
14db1276218c change the spec;
ca
parents: 295
diff changeset
   491
     per line
14db1276218c change the spec;
ca
parents: 295
diff changeset
   492
    "
14db1276218c change the spec;
ca
parents: 295
diff changeset
   493
    |stream
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   494
        max     "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   495
        size    "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   496
        start   "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   497
        stop    "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   498
        cpySz   "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   499
        lnSz    "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   500
        atBeginOfLine|
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   501
14db1276218c change the spec;
ca
parents: 295
diff changeset
   502
    maxCharactersPerLine < 20 ifFalse:[max := maxCharactersPerLine - 1]
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   503
                               ifTrue:[max := 20].
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   504
14db1276218c change the spec;
ca
parents: 295
diff changeset
   505
    (size := aString size) <= max ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   506
        ^ aString
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   507
    ].
14db1276218c change the spec;
ca
parents: 295
diff changeset
   508
    start  := 1.
14db1276218c change the spec;
ca
parents: 295
diff changeset
   509
    lnSz   := 0.
14db1276218c change the spec;
ca
parents: 295
diff changeset
   510
    stream := (String new:size) writeStream.
14db1276218c change the spec;
ca
parents: 295
diff changeset
   511
542
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   512
    atBeginOfLine := true.
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   513
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   514
    [start <= size] whileTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   515
        (start := aString indexOfNonSeparatorStartingAt:start) == 0 ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   516
            ^ stream contents
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   517
        ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   518
        (aString at:start) == $\ ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   519
            skipLineFeed ifFalse:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   520
                stream nextPut:$\
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   521
            ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   522
            start := start + 1.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   523
            stream cr.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   524
            start := start + 1.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   525
            lnSz := 0.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   526
        ] ifFalse:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   527
            (stop := aString indexOfSeparatorStartingAt:start) == 0 ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   528
                stop := size + 1
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   529
            ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   530
            (aString at:(stop - 1)) == $\ ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   531
                stop := stop - 1
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   532
            ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   533
            cpySz := stop - start.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   534
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   535
            lnSz == 0 ifFalse:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   536
                (lnSz := lnSz + cpySz) >= max ifTrue:[stream cr.    lnSz := cpySz. atBeginOfLine := true. ]
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   537
                                             ifFalse:[stream space. lnSz := lnSz + 1]
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   538
            ] ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   539
                lnSz := cpySz
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   540
            ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   541
            stream nextPutAll:aString startingAt:start to:(stop - 1).
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   542
            start := stop.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   543
        ]
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   544
    ].
14db1276218c change the spec;
ca
parents: 295
diff changeset
   545
    ^ stream contents
542
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   546
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   547
    "Modified: / 1.2.1998 / 14:42:56 / cg"
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   548
! !
14db1276218c change the spec;
ca
parents: 295
diff changeset
   549
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   550
!UIPainter class methodsFor:'image specs'!
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   551
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   552
arrowDown
3113
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   553
    <resource: #image>
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   554
    "This resource specification was automatically generated
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   555
     by the ImageEditor of ST/X."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   556
    "Do not manually edit this!! If it is corrupted,
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   557
     the ImageEditor may not be able to read the specification."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   558
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   559
     self arrowDown inspect
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   560
     ImageEditor openOnClass:self andSelector:#arrowDown
3113
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   561
     Icon flushCachedIcons"
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   562
    
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   563
    ^ Icon constantNamed:'UIPainter class arrowDown'
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   564
        ifAbsentPut:[
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   565
            (Depth1Image new)
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   566
                width:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   567
                height:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   568
                photometric:(#palette);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   569
                bitsPerSample:(#[ 1 ]);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   570
                samplesPerPixel:(1);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   571
                bits:(ByteArray fromPackedString:'?>C?8O? ?>C@XNC <^C;8O? ?>C?8@@a');
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   572
                colorMapFromArray:#[ 0 0 0 255 255 255 ];
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   573
                mask:((ImageMask new)
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   574
                            width:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   575
                            height:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   576
                            bits:(ByteArray 
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   577
                                        fromPackedString:'
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   578
@@@@@@@@@@@? A<@C @D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
3113
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   579
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   580
                            yourself);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   581
                yourself
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   582
        ]
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   583
!
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   584
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   585
arrowLeft
3113
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   586
    <resource: #image>
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   587
    "This resource specification was automatically generated
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   588
     by the ImageEditor of ST/X."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   589
    "Do not manually edit this!! If it is corrupted,
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   590
     the ImageEditor may not be able to read the specification."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   591
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   592
     self arrowLeft inspect
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   593
     ImageEditor openOnClass:self andSelector:#arrowLeft
3113
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   594
     Icon flushCachedIcons"
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   595
    
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   596
    ^ Icon constantNamed:'UIPainter class arrowLeft'
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   597
        ifAbsentPut:[
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   598
            (Depth1Image new)
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   599
                width:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   600
                height:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   601
                photometric:(#palette);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   602
                bitsPerSample:(#[ 1 ]);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   603
                samplesPerPixel:(1);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   604
                bits:(ByteArray fromPackedString:'?>C?8O7 >^C18NG <^C98O7 ?>C?8@@a');
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   605
                colorMapFromArray:#[ 0 0 0 255 255 255 ];
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   606
                mask:((ImageMask new)
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   607
                            width:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   608
                            height:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   609
                            bits:(ByteArray fromPackedString:'@@@@@@H@A @N@A8@C PF@@H@@@@@@@@a');
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   610
                            yourself);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   611
                yourself
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   612
        ]
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   613
!
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   614
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   615
arrowRight
3113
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   616
    <resource: #image>
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   617
    "This resource specification was automatically generated
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   618
     by the ImageEditor of ST/X."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   619
    "Do not manually edit this!! If it is corrupted,
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   620
     the ImageEditor may not be able to read the specification."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   621
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   622
     self arrowRight inspect
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   623
     ImageEditor openOnClass:self andSelector:#arrowRight
3113
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   624
     Icon flushCachedIcons"
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   625
    
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   626
    ^ Icon constantNamed:'UIPainter class arrowRight'
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   627
        ifAbsentPut:[
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   628
            (Depth1Image new)
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   629
                width:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   630
                height:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   631
                photometric:(#palette);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   632
                bitsPerSample:(#[ 1 ]);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   633
                samplesPerPixel:(1);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   634
                bits:(ByteArray fromPackedString:'?>C?8O_ <>C18OC <^C38O_ ?>C?8@@a');
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   635
                colorMapFromArray:#[ 0 0 0 255 255 255 ];
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   636
                mask:((ImageMask new)
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   637
                            width:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   638
                            height:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   639
                            bits:(ByteArray fromPackedString:'@@@@@@ @C@@NA@<@C @L@@ @@@@@@@@a');
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   640
                            yourself);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   641
                yourself
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   642
        ]
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   643
!
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   644
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   645
arrowUp
3113
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   646
    <resource: #image>
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   647
    "This resource specification was automatically generated
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   648
     by the ImageEditor of ST/X."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   649
    "Do not manually edit this!! If it is corrupted,
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   650
     the ImageEditor may not be able to read the specification."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   651
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   652
     self arrowUp inspect
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   653
     ImageEditor openOnClass:self andSelector:#arrowUp
3113
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   654
     Icon flushCachedIcons"
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   655
    
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   656
    ^ Icon constantNamed:'UIPainter class arrowUp'
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   657
        ifAbsentPut:[
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   658
            (Depth1Image new)
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   659
                width:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   660
                height:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   661
                photometric:(#palette);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   662
                bitsPerSample:(#[ 1 ]);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   663
                samplesPerPixel:(1);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   664
                bits:(ByteArray fromPackedString:'?>C?8O? >>C18NC 0FC?8O? ?>C?8@@a');
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   665
                colorMapFromArray:#[ 0 0 0 255 255 255 ];
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   666
                mask:((ImageMask new)
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   667
                            width:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   668
                            height:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   669
                            bits:(ByteArray fromPackedString:'@@@@@@@@A@@NG1<@O8@@@@@@@@@@AP@a');
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   670
                            yourself);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   671
                yourself
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   672
        ]
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   673
!
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   674
2210
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   675
browseActionImage
3113
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   676
    <resource: #image>
2210
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   677
    "This resource specification was automatically generated
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   678
     by the ImageEditor of ST/X."
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   679
    "Do not manually edit this!! If it is corrupted,
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   680
     the ImageEditor may not be able to read the specification."
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   681
    "
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   682
     self browseActionImage inspect
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   683
     ImageEditor openOnClass:self andSelector:#browseActionImage
3113
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   684
     Icon flushCachedIcons"
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   685
    
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   686
    ^ Icon constantNamed:'UIPainter class browseActionImage'
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   687
        ifAbsentPut:[
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   688
            (Depth8Image new)
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   689
                width:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   690
                height:12;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   691
                photometric:(#palette);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   692
                bitsPerSample:(#[ 8 ]);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   693
                samplesPerPixel:(1);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   694
                bits:(ByteArray 
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   695
                            fromPackedString:'
2210
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   696
R@@@RT%RST1LTD9H@D%IT%MRSD1PS$!!RT$5RUEILT%INT%UVT%YWU%IVUUIHT%!!YV%-ZVU!!RWD!!MT%Y[@E-VT%5\RD1RU%,@V5YRWU1HT%!!YV%-ZVU!!RWEIU
3113
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   697
U%IVU5YRU%URZ%IR@EITT ART&,@@@@@T%MR@@@@@@@@@@@@T @@@@@@');
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   698
                colorMapFromArray:#[ 255 248 248 63 144 224 64 152 232 79 160 232 64 152 224 64 144 224 63 136 224 48 128 216 48 120 216 47 112 216 47 112 208 32 104 208 32 96 208 31 88 200 16 88 200 16 80 200 15 72 192 15 64 192 0 64 192 0 56 184 0 56 176 0 48 160 143 200 248 128 200 248 127 192 248 112 184 248 111 176 248 96 168 248 95 160 248 80 152 248 79 144 248 64 128 248 63 120 248 48 112 248 32 104 248 31 96 248 16 88 248 15 80 248 0 72 248 0 64 240 0 48 168 112 176 248 111 168 248 96 160 248 95 152 248 80 144 248 79 136 248 63 128 248 48 120 248 47 112 248 15 72 248 0 48 176 95 168 232 191 224 248 191 216 248 176 208 248 175 208 248 175 200 248 160 200 248 160 192 248 159 192 248 159 184 248 144 184 248 144 176 248 143 168 248 128 168 248 128 160 248 127 160 248 127 152 240 31 72 176 111 168 232 127 160 216 207 216 240 240 240 248 240 232 240 63 88 176 239 232 240 240 240 240 48 88 176 96 168 224 224 224 232 96 160 224 240 144 24 255 248 48 255 248 96 255 248 24 240 208 24 255 248 152 255 248 88 255 248 136 255 248 176 255 248 200 48 80 176 223 216 224 96 152 224 96 152 216 95 152 216 48 120 208 80 144 208 80 136 208 79 128 200 79 120 200 79 120 192 64 112 192 64 104 184 63 104 184 63 96 184 15 56 160 ];
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   699
                mask:((ImageMask new)
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   700
                            width:11;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   701
                            height:12;
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   702
                            bits:(ByteArray fromPackedString:'A@@N@F;@?>A?0G>@O8A?0O? [,@N@@P@');
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   703
                            yourself);
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   704
                yourself
7b82f9dd4e1b Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 3111
diff changeset
   705
        ]
2210
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   706
!
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   707
3296
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   708
builderIcon
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   709
    "This resource specification was automatically generated
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   710
     by the ImageEditor of ST/X."
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   711
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   712
    "Do not manually edit this!! If it is corrupted,
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   713
     the ImageEditor may not be able to read the specification."
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   714
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   715
    "
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   716
     self builderIcon inspect
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   717
     ImageEditor openOnClass:self andSelector:#builderIcon
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   718
     Icon flushCachedIcons
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   719
    "
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   720
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   721
    <resource: #image>
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   722
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   723
    ^Icon
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   724
        constantNamed:'UIPainter builderIcon'
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   725
        ifAbsentPut:[(Depth1Image width:48 height:48 photometric:#whiteIs0) bits:(ByteArray fromPackedString:'
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   726
@@@@@@@@O??????<H@@@@@@DH_@@@@@DH_@OC?>DH_@IC??$H_@IC??4H_@IC??$H_@IC?>DH_@F@J DH_@F@M DH_@F@J DH_@F@M DH_@F@J DH_@F@M D
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   727
H_@F@J DH_@F@M DH_@F@J DH_@F@M DH_@F@J DH_@_ M DH_@ PJ DH_@)PM DH_@)PJ DH_@)PM DH? )PJ DI?0)PM DK?8)PJ DK18)PM DK 8)PJ D
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   728
K@X)PM DK@X PG@DK@X_ @@DH@@@@@@DH@@@@@@DO??????<@@@@@@@@NDIHNG''@IDIHIDD H$IHH$DPIDIHH$DPNDIHH$D IDIHH''G@H$IHH$E@H$IHH$D 
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   729
IBQHIDDPNA!!ONG$P@@@@@@@@'); yourself]
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   730
!
9a42d2d7ff05 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3256
diff changeset
   731
2157
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   732
defaultIcon
2175
f8dd64f73dfc icon resource
Claus Gittinger <cg@exept.de>
parents: 2159
diff changeset
   733
    <resource: #programImage>
f8dd64f73dfc icon resource
Claus Gittinger <cg@exept.de>
parents: 2159
diff changeset
   734
2157
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   735
    ^ ToolbarIconLibrary startUIPainterIcon
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   736
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   737
    "Created: / 10-02-2007 / 14:45:56 / cg"
2175
f8dd64f73dfc icon resource
Claus Gittinger <cg@exept.de>
parents: 2159
diff changeset
   738
    "Modified: / 17-09-2007 / 11:36:33 / cg"
2157
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   739
!
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   740
3218
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   741
delta
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   742
    "This resource specification was automatically generated
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   743
     by the ImageEditor of ST/X."
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   744
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   745
    "Do not manually edit this!! If it is corrupted,
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   746
     the ImageEditor may not be able to read the specification."
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   747
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   748
    "
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   749
     self delta inspect
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   750
     ImageEditor openOnClass:self andSelector:#delta
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   751
     Icon flushCachedIcons
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   752
    "
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   753
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   754
    <resource: #image>
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   755
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   756
    ^Icon
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   757
        constantNamed:'UIPainter delta'
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   758
        ifAbsentPut:[(Depth1Image new) width:11; height:11; bits:(ByteArray fromPackedString:'?>C?8O? >>C@XLA 0VB;(H@ ?"C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width:11; height:11; bits:(ByteArray fromPackedString:'
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   759
@@@@@@@@A@@J@AD@HHA@PG?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   760
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   761
!
16b714603368 class: UIPainter
Claus Gittinger <cg@exept.de>
parents: 3155
diff changeset
   762
2284
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   763
editTableIcon
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   764
    <resource: #programImage>
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   765
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   766
    ^ SystemBrowser tableColumnsIcon
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   767
!
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   768
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   769
helpIcon
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   770
    <resource: #programImage>
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   771
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   772
    ^ Icon helpIcon
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   773
!
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   774
2500
3e2feb544801 cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents: 2479
diff changeset
   775
hideToolBarIcon
3e2feb544801 cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents: 2479
diff changeset
   776
    <resource: #programImage>
3e2feb544801 cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents: 2479
diff changeset
   777
3e2feb544801 cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents: 2479
diff changeset
   778
    ^ ToolbarIconLibrary hideToolBarIcon
3e2feb544801 cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents: 2479
diff changeset
   779
!
3e2feb544801 cleaned up the code and fixed bugs;
Claus Gittinger <cg@exept.de>
parents: 2479
diff changeset
   780
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   781
iconAlignB
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   782
    <resource: #image>
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   783
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   784
     by the ImageEditor of ST/X."
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   785
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   786
     the ImageEditor may not be able to read the specification."
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   787
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   788
     self iconAlignB inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   789
     ImageEditor openOnClass:self andSelector:#iconAlignB
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   790
     Icon flushCachedIcons"
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   791
    
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   792
    ^ Icon constantNamed:'UIPainter class iconAlignB'
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   793
        ifAbsentPut:[
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   794
            (Depth2Image new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   795
                width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   796
                height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   797
                photometric:(#palette);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   798
                bitsPerSample:(#( 2 ));
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   799
                samplesPerPixel:(1);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   800
                bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   801
                            fromPackedString:'
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   802
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@G@@@@@@@G@E@@@@@G@G@@@@@G@G@@@@@G@G@@@E@G@G@@@G@G@G@K@G@G@G@@@G@G@G@A@G@G@G@@
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   803
@G@G@G@K@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@@@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   804
                colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ];
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   805
                mask:((ImageMask new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   806
                            width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   807
                            height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   808
                            bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   809
                                        fromPackedString:'@@@@@@@@@@@@@G C@G @@G'' @G'' @G'' @G'' G'''' G'''' G'''' G''''!!G'''' G'''' G'''' G'''' O??0O??0@@@@@@@C@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   810
                            yourself);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   811
                yourself
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   812
        ]
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   813
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   814
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   815
iconAlignL
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   816
    <resource: #image>
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   817
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   818
     by the ImageEditor of ST/X."
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   819
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   820
     the ImageEditor may not be able to read the specification."
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   821
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   822
     self iconAlignL inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   823
     ImageEditor openOnClass:self andSelector:#iconAlignL
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   824
     Icon flushCachedIcons"
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   825
    
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   826
    ^ Icon constantNamed:'UIPainter class iconAlignL'
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   827
        ifAbsentPut:[
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   828
            (Depth2Image new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   829
                width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   830
                height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   831
                photometric:(#palette);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   832
                bitsPerSample:(#( 2 ));
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   833
                samplesPerPixel:(1);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   834
                bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   835
                            fromPackedString:'
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   836
@@@@@@@@@@@@@@@@@(@@@@@@@(@@@@@@@(UUUP@I@(_??0@@@(@@@@@@@(@@@@@@@(@@@@@@@(@@@@@@@(UUUU@@@(_???@@@(@@@@@E@(@@@@@@@(@@@@@@
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   837
@(@@@@@@@(UU@@@@@(_?@@@@@(@@@@@@@(@@@@@@@@@@@@@E@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   838
                colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ];
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   839
                mask:((ImageMask new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   840
                            width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   841
                            height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   842
                            bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   843
                                        fromPackedString:'@@@@@@@@F@@@G?>@G?>@G?>@G?>@F@@@F@@@G?? G?? G?? G?? F@@@F@@@G? @G? @G? @G? @F@@@@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   844
                            yourself);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   845
                yourself
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   846
        ]
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   847
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   848
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   849
iconAlignLR
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   850
    <resource: #image>
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   851
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   852
     by the ImageEditor of ST/X."
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
   853
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   854
     the ImageEditor may not be able to read the specification."
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   855
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   856
     self iconAlignLR inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   857
     ImageEditor openOnClass:self andSelector:#iconAlignLR
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   858
     Icon flushCachedIcons"
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   859
    
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   860
    ^ Icon constantNamed:'UIPainter class iconAlignLR'
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   861
        ifAbsentPut:[
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   862
            (Depth2Image new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   863
                width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   864
                height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   865
                photometric:(#palette);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   866
                bitsPerSample:(#( 2 ));
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   867
                samplesPerPixel:(1);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   868
                bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   869
                            fromPackedString:'
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   870
@@@@@@@@@@@@@@@@@(@@@B @@(@@@B @@(UUUR I@(_??2 @@(@@@B @@(@@@B @@(@@@B @@(@@@B @@(UUUR @@(_??2 @@(@@@B E@(@@@B @@(@@@B @
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   871
@(@@@B @@(UUUR @@(_??B @@(@@@B @@(@@@B @@@@@@@@E@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   872
                colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ];
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   873
                mask:((ImageMask new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   874
                            width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   875
                            height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   876
                            bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   877
                                        fromPackedString:'@@@@@@@@F@A G?? G?? G?? G?? F@A F@A G?? G?? G?? G?? F@A F@A G?? G?? G?; G?? F@A @@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   878
                            yourself);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   879
                yourself
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   880
        ]
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
   881
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   882
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   883
iconAlignR
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   884
    <resource: #image>
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   885
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   886
     by the ImageEditor of ST/X."
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   887
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   888
     the ImageEditor may not be able to read the specification."
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   889
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   890
     self iconAlignR inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   891
     ImageEditor openOnClass:self andSelector:#iconAlignR
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   892
     Icon flushCachedIcons"
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   893
    
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   894
    ^ Icon constantNamed:'UIPainter class iconAlignR'
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   895
        ifAbsentPut:[
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   896
            (Depth2Image new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   897
                width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   898
                height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   899
                photometric:(#palette);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   900
                bitsPerSample:(#( 2 ));
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   901
                samplesPerPixel:(1);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   902
                bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   903
                            fromPackedString:'
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   904
@@@@@@@@@@@@@@@@@@@@@B @@@@@@B @@@UUUR I@@_??2 @@@@@@B @@@@@@B @@@@@@B @@@@@@B @@EUUUR @@G???2 @@@@@@B E@@@@@B @@@@@@B @
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   905
@@@@@B @@@@EUR @@@@G?2 @@@@@@B @@@@@@B @@@@@@@@E@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   906
                colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ];
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   907
                mask:((ImageMask new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   908
                            width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   909
                            height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   910
                            bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   911
                                        fromPackedString:'@@@@@@@@@@A A?? A?? A?? A?? @@A @@A G?? G?? G?? G?? @@A @@A @G? @G? @G? @G? @@A @@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   912
                            yourself);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   913
                yourself
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   914
        ]
1432
c032f34cd7bb remove shortcutKeyCharacter's from menu
ca
parents: 1397
diff changeset
   915
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   916
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   917
iconAlignT
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   918
    <resource: #image>
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   919
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   920
     by the ImageEditor of ST/X."
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   921
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   922
     the ImageEditor may not be able to read the specification."
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   923
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   924
     self iconAlignT inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   925
     ImageEditor openOnClass:self andSelector:#iconAlignT
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   926
     Icon flushCachedIcons"
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   927
    
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   928
    ^ Icon constantNamed:'UIPainter class iconAlignT'
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   929
        ifAbsentPut:[
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   930
            (Depth2Image new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   931
                width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   932
                height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   933
                photometric:(#palette);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   934
                bitsPerSample:(#( 2 ));
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   935
                samplesPerPixel:(1);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   936
                bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   937
                            fromPackedString:'
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   938
@@@@@@@@@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@E@E@E@K@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@K@G@G@G@@@@@G@G@@@@@G@G@@@@@G@G@@
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   939
@@@G@G@@@@@G@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   940
                colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ];
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   941
                mask:((ImageMask new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   942
                            width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   943
                            height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   944
                            bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   945
                                        fromPackedString:'@@@@@@@C@@@@O??0O??0G'''' G'''' G'''' G'''' G''''!!G'''' G'''' G'''' @G'' @G'' @G'' @G'' @G @@G C@@@@@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   946
                            yourself);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   947
                yourself
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   948
        ]
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   949
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   950
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   951
iconAlignTB
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   952
    <resource: #image>
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   953
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   954
     by the ImageEditor of ST/X."
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   955
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   956
     the ImageEditor may not be able to read the specification."
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   957
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   958
     self iconAlignTB inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   959
     ImageEditor openOnClass:self andSelector:#iconAlignTB
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   960
     Icon flushCachedIcons"
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   961
    
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   962
    ^ Icon constantNamed:'UIPainter class iconAlignTB'
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   963
        ifAbsentPut:[
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   964
            (Depth2Image new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   965
                width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   966
                height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   967
                photometric:(#palette);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   968
                bitsPerSample:(#( 2 ));
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   969
                samplesPerPixel:(1);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   970
                bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   971
                            fromPackedString:'
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   972
@@@@@@@A@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@E@E@E@G@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@H@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@@
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   973
@G@G@D@@@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@H@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   974
                colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ];
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   975
                mask:((ImageMask new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   976
                            width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   977
                            height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   978
                            bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   979
                                        fromPackedString:'@@@@@@@C@@@@O??0O??0G'''' G''''!!G'''' G'''' G'''' G'''' G'''' G'''' G''''!!G''''!!G''& G'''' O??0O??2@@@@@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   980
                            yourself);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   981
                yourself
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   982
        ]
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   983
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   984
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   985
iconCenterH
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   986
    <resource: #image>
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   987
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   988
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   989
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   990
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   991
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   992
     self iconCenterH inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   993
     ImageEditor openOnClass:self andSelector:#iconCenterH
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   994
     Icon flushCachedIcons"
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   995
    
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   996
    ^ Icon constantNamed:'UIPainter class iconCenterH'
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   997
        ifAbsentPut:[
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   998
            (Depth2Image new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
   999
                width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1000
                height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1001
                photometric:(#palette);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1002
                bitsPerSample:(#( 2 ));
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1003
                samplesPerPixel:(1);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1004
                bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1005
                            fromPackedString:'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1006
@@@@@@@@@@@@@@@@@(@J@B @@(@J@B @@(UZUR @@(?:?R @@(@J@B @@(@J@B @@(@J@B @@@@J@@@@@EUZUU@@@O?:?=@@@@@J@@@@@(@J@B @@(@J@B @
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1007
@(@J@B @@(EZUB@@@(O:=B @@(@J@B @@(@J@B @@@@@@@@@@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1008
                colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ];
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1009
                mask:((ImageMask new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1010
                            width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1011
                            height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1012
                            bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1013
                                        fromPackedString:'@@@@@@@@@C@@A?>@A?>@A?>@A?>@@C@@@C@@G?? G?? G?? G??#@C@@@C@C@?<@@?<A@?<@@?<@@C@@@@@A@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1014
                            yourself);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1015
                yourself
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1016
        ]
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1017
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1018
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1019
iconCenterHInFrame
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1020
    <resource: #image>
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1021
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1022
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1023
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1024
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1025
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1026
     self iconCenterHInFrame inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1027
     ImageEditor openOnClass:self andSelector:#iconCenterHInFrame
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1028
     Icon flushCachedIcons"
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1029
    
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1030
    ^ Icon constantNamed:'UIPainter class iconCenterHInFrame'
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1031
        ifAbsentPut:[
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1032
            (Depth2Image new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1033
                width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1034
                height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1035
                photometric:(#palette);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1036
                bitsPerSample:(#( 2 ));
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1037
                samplesPerPixel:(1);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1038
                bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1039
                            fromPackedString:'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1040
@@@@@@@@J******@H@@@@@B@HL@@@CB@H8UUUR2@HH???RB@H8@@@B2@HH@@@BB@H8@@@B2@H@@@@@B@HEUUUUB@HO???=B@H@@@@@B@H8@@@@2@HH@@@@B@
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1041
H8@@@@2@HHEUUBB@H8O?=B2@HL@@@CB@H@@@@@B@J******@@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1042
                colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ];
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1043
                mask:((ImageMask new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1044
                            width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1045
                            height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1046
                            bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1047
                                        fromPackedString:'@@@@_??8P@@HW??(U?>(U?>(U?>(T@@(T@@(W??(W??(W??(W??+T@@(T@@+T?<(T?<)T?<(W??(P@@H_??9@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1048
                            yourself);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1049
                yourself
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1050
        ]
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1051
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1052
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1053
iconCenterV
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1054
    <resource: #image>
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1055
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1056
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1057
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1058
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1059
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1060
     self iconCenterV inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1061
     ImageEditor openOnClass:self andSelector:#iconCenterV
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1062
     Icon flushCachedIcons"
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1063
    
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1064
    ^ Icon constantNamed:'UIPainter class iconCenterV'
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1065
        ifAbsentPut:[
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1066
            (Depth2Image new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1067
                width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1068
                height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1069
                photometric:(#palette);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1070
                bitsPerSample:(#( 2 ));
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1071
                samplesPerPixel:(1);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1072
                bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1073
                            fromPackedString:'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1074
@@@@@@@@@@@@@@@@@@@@@@@@B**@J*(@B**MJ*(@@@@M@@@@@@@M@M@@@M@M@M@@@M@M@M@@@M@M@M@@B*****(@B*****(@@M@M@M@@@M@M@M@@@E@M@M@@
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1075
@@@M@E@@@@@M@@@@B**EJ*(@B(*@J*(@@@@@@@@@@@@@@@@@@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1076
                colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ];
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1077
                mask:((ImageMask new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1078
                            width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1079
                            height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1080
                            bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1081
                                        fromPackedString:'@@@@@@@@@@@@@G @@G @@G'' G''''!!G'''' G'''' G'''' O??0O??0G'''' G'''' G'''' G'''' @G''#@G @@G C@@@@@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1082
                            yourself);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1083
                yourself
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1084
        ]
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1085
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1086
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1087
iconCenterVInFrame
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1088
    <resource: #image>
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1089
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1090
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1091
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1092
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1093
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1094
     self iconCenterVInFrame inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1095
     ImageEditor openOnClass:self andSelector:#iconCenterVInFrame
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1096
     Icon flushCachedIcons"
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1097
    
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1098
    ^ Icon constantNamed:'UIPainter class iconCenterVInFrame'
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1099
        ifAbsentPut:[
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1100
            (Depth2Image new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1101
                width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1102
                height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1103
                photometric:(#palette);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1104
                bitsPerSample:(#( 2 ));
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1105
                samplesPerPixel:(1);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1106
                bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1107
                            fromPackedString:'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1108
@@@@@@@@J******@H@@@@@B@HL3@L3B@H:*GJ*2@H@@G@@B@HG@G@@B@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@EB@
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1109
HE@G@@B@H@@G@@B@H:*E@J2@HL3@L3B@H@@@@@B@J******@@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1110
                colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ];
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1111
                mask:((ImageMask new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1112
                            width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1113
                            height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1114
                            bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1115
                                        fromPackedString:'@@@B_??9P@@HW??(TG (W'' (W''''*W''''(W''''*W'''')W''''(W'''')W''''+W''''*W''''*W''''(W'' )TG (W??(P@@H_??8@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1116
                            yourself);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1117
                yourself
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1118
        ]
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1119
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1120
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1121
iconDistributeH
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1122
    <resource: #image>
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1123
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1124
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1125
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1126
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1127
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1128
     self iconDistributeH inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1129
     ImageEditor openOnClass:self andSelector:#iconDistributeH
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1130
     Icon flushCachedIcons"
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1131
    
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1132
    ^ Icon constantNamed:'UIPainter class iconDistributeH'
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1133
        ifAbsentPut:[
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1134
            (Depth2Image new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1135
                width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1136
                height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1137
                photometric:(#palette);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1138
                bitsPerSample:(#( 2 ));
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1139
                samplesPerPixel:(1);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1140
                bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1141
                            fromPackedString:'
1863
f9a8e3c20143 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1862
diff changeset
  1142
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@E@@E@G@@G@@G@G@@G@@G@GHBGHBG@GHBGHBG@GJ*GJ*G@GHBGHBG@GHBGHBG@GB*GJ G@GB*GJ G@
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1143
G@@G@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1144
                colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ];
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1145
                mask:((ImageMask new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1146
                            width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1147
                            height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1148
                            bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1149
                                        fromPackedString:'@@@@@@@@@@@@@@@@<G <<G <<G ?<G =>O1?>O1????<>O1<>O1><G <<G ><G <<G ?@@@A@@@@@@@@@@@@@@@A');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1150
                            yourself);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1151
                yourself
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1152
        ]
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1153
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1154
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1155
iconDistributeV
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1156
    <resource: #image>
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1157
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1158
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1159
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1160
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1161
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1162
     self iconDistributeV inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1163
     ImageEditor openOnClass:self andSelector:#iconDistributeV
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1164
     Icon flushCachedIcons"
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1165
    
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1166
    ^ Icon constantNamed:'UIPainter class iconDistributeV'
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1167
        ifAbsentPut:[
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1168
            (Depth2Image new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1169
                width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1170
                height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1171
                photometric:(#palette);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1172
                bitsPerSample:(#( 2 ));
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1173
                samplesPerPixel:(1);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1174
                bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1175
                            fromPackedString:'
1863
f9a8e3c20143 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1862
diff changeset
  1176
@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@@@@*(@@@@@JB@@@@@@JB@@@@@@JB@@@@@@J*(@@@@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@@@J*(@@@@@JB@@@@
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1177
@@JB@@@@@@@B@@@@@@@*(@@@@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1178
                colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ];
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1179
                mask:((ImageMask new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1180
                            width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1181
                            height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1182
                            bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1183
                                        fromPackedString:'A??@A??@A??CA??@@G0@@A@@@A@@@A@@@G0CA??@A??@A??@A??@@G0C@A@@@A@@@A@@@G0AA??AA??@A??@A??B');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1184
                            yourself);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1185
                yourself
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1186
        ]
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1187
!
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1188
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1189
iconResizeB
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1190
    <resource: #image>
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1191
    "This resource specification was automatically generated
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1192
     by the ImageEditor of ST/X."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1193
    "Do not manually edit this!! If it is corrupted,
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1194
     the ImageEditor may not be able to read the specification."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1195
    "
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1196
     self iconResizeB inspect
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1197
     ImageEditor openOnClass:self andSelector:#iconResizeB
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1198
     Icon flushCachedIcons"
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1199
    
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1200
    ^ Icon constantNamed:'UIPainter class iconResizeB'
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1201
        ifAbsentPut:[
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1202
            (Depth2Image new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1203
                width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1204
                height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1205
                photometric:(#palette);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1206
                bitsPerSample:(#( 2 ));
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1207
                samplesPerPixel:(1);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1208
                bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1209
                            fromPackedString:'
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1210
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M@@@@@@@M@@@@@@@M@M@@@@@M@M@@@@@M@M@@@@@M@M@@@M@M@M@@@M@M@M@@@M@M@M@@@M@M@M@@@@@@@M@@
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1211
@@@@@E@@@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@@@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1212
                colorMapFromArray:#[ 0 0 0 255 255 255 0 0 127 170 170 170 ];
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1213
                mask:((ImageMask new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1214
                            width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1215
                            height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1216
                            bits:(ByteArray 
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1217
                                        fromPackedString:'@@@@@@@@@@@@@G A@G @@G'' @G'' @G''#@G'' G''''"G'''' G''''!!G'''' G'''' O?7 G'''' CCG O??0O??0@@@A@@@@@@@@');
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1218
                            yourself);
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1219
                yourself
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1220
        ]
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1221
!
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1222
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1223
iconResizeL
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1224
    <resource: #image>
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1225
    "This resource specification was automatically generated
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1226
     by the ImageEditor of ST/X."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1227
    "Do not manually edit this!! If it is corrupted,
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1228
     the ImageEditor may not be able to read the specification."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1229
    "
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1230
     self iconResizeL inspect
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1231
     ImageEditor openOnClass:self andSelector:#iconResizeL
3119
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1232
     Icon flushCachedIcons"
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1233
    
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1234
    ^ Icon constantNamed:'UIPainter class iconResizeL'
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1235
        ifAbsentPut:[
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1236
            (Depth2Image new)
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1237
                width:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.de>
parents: 3113
diff changeset
  1238
                height:22;
0a80c1bf3dde Use ImageMask instead of Depth1Image for masks
Stefan Vogel <sv@exept.d