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