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