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