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