UIPainter.st
author tz
Wed, 21 Jan 1998 20:10:38 +0100
changeset 446 b513a621a7a4
parent 440 1198f19712ff
child 447 664522b11cde
permissions -rw-r--r--
new toolbar + other features 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
"
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     2
 COPYRIGHT (c) 1995 by eXept Software AG
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     3
              All Rights Reserved
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
"
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    12
368
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
    13
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
    14
ToolApplicationModel subclass:#UIPainter
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
    15
	instanceVariableNames:'treeView selectionPanel tabSelection specClass specSelector
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
    16
		specSuperclass aspects layoutCanvas helpCanvas specCanvas
14db1276218c change the spec;
ca
parents: 295
diff changeset
    17
		transcript'
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
    18
	classVariableNames:''
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    19
	poolDictionaries:''
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    20
	category:'Interface-UIPainter'
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    21
!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    22
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    23
SelectionInTreeView subclass:#TreeView
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    24
	instanceVariableNames:'lastDrawnMaster cvsEventsDisabled imageMasterParent
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
    25
		imageEmptyParent imageMasterChild windowSpec'
440
1198f19712ff spec items have got individual icons
tz
parents: 437
diff changeset
    26
	classVariableNames:'Images'
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    27
	poolDictionaries:''
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    28
	privateIn:UIPainter
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    29
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    30
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    31
!UIPainter class methodsFor:'documentation'!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    32
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    33
copyright
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    34
"
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    35
 COPYRIGHT (c) 1995 by eXept Software AG
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    36
              All Rights Reserved
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    37
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    38
 This software is furnished under a license and may be used
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    39
 only in accordance with the terms of that license and with the
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    40
 inclusion of the above copyright notice.   This software may not
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    41
 be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    42
 other person.  No title to or ownership of the software is
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    43
 hereby transferred.
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    44
"
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    45
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    46
!
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    47
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    48
documentation
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    49
"
127
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    50
    GUI-Builder:
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    51
    this class allows the user to build its own applications providing a graphical
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    52
    user interface to buildin components and to define the behavior of the components
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    53
    during runtime. The resulting specifications can be installed as methods on 
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    54
    classes, typically subclasses of an ApplicationModel. These specifications
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    55
    are used by the UIBuilder to generate the application window and its component
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    56
    structues when open the application.
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    57
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    58
    [start with:]
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    59
        UIPainter open
127
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    60
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    61
    [author:]
183
bb0cc63e2cf1 set masterApllication instead of application
ca
parents: 179
diff changeset
    62
        Claus Gittinger
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    63
        Claus Atzkern
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    64
127
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    65
    [see also:]
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    66
        UIBuilder
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    67
        ApplicationModel
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    68
        UISpecification
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    69
"
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    70
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    71
! !
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    72
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    73
!UIPainter class methodsFor:'instance creation'!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    74
195
350f95af5d9d check before sending selector to class
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    75
openOnClass:aClass andSelector:aSelector
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
    76
    "open up an interface builder, fetching a spec from aClass
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
    77
     via some selector
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
    78
    "
195
350f95af5d9d check before sending selector to class
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    79
    ^ self new openOnClass:aClass andSelector:aSelector
350f95af5d9d check before sending selector to class
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    80
!
350f95af5d9d check before sending selector to class
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    81
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    82
painter:aBuilderView
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
    83
    "set the painter
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
    84
    "
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    85
    |application|
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    86
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    87
    application := self new.
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    88
    application painter:aBuilderView.
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    89
  ^ application open
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    90
! !
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    91
87
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
    92
!UIPainter class methodsFor:'ST-80 queries'!
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
    93
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
    94
preferenceFor:aSymbol
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
    95
    "ST-80 compatible; always returns false
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
    96
    "
87
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
    97
    ^ false
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    98
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    99
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
   100
! !
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
   101
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   102
!UIPainter class methodsFor:'accessing'!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   103
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   104
label
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   105
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   106
    ^'GUI Builder'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   107
! !
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   108
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   109
!UIPainter class methodsFor:'help specs'!
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   110
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   111
helpSpec
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   112
    "return a dictionary filled with helpKey -> helptext associations.
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
   113
     These are used by the activeHelp tool."
114befd1c369 add some help text
ca
parents: 287
diff changeset
   114
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   115
    "
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
   116
    UIHelpTool openOnClass:UIPainter    
114befd1c369 add some help text
ca
parents: 287
diff changeset
   117
    "
114befd1c369 add some help text
ca
parents: 287
diff changeset
   118
358
5df60cd45881 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 351
diff changeset
   119
    <resource: #help>
5df60cd45881 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 351
diff changeset
   120
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   121
  ^ super helpSpec addPairsFrom:#(
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   122
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   123
#moveSelectionLeft
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   124
'move selected widgets left while pressing the button'
194
2b05bd327785 recompute property list when changing view ordering by
ca
parents: 193
diff changeset
   125
2b05bd327785 recompute property list when changing view ordering by
ca
parents: 193
diff changeset
   126
#setToDefaultWidth
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   127
'set selected widgets to their default width'
194
2b05bd327785 recompute property list when changing view ordering by
ca
parents: 193
diff changeset
   128
2b05bd327785 recompute property list when changing view ordering by
ca
parents: 193
diff changeset
   129
#pasteBuffer
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   130
'paste widgets at current mouse position'
194
2b05bd327785 recompute property list when changing view ordering by
ca
parents: 193
diff changeset
   131
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
   132
#moveSelectionUp
114befd1c369 add some help text
ca
parents: 287
diff changeset
   133
'move selected widgets up while pressing the button'
114befd1c369 add some help text
ca
parents: 287
diff changeset
   134
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   135
#galleryShown
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   136
'show or hide gallery view'
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   137
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   138
#moveSelectionDown
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   139
'move selected widgets down while pressing the button'
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   140
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   141
#spreadSelectionVer
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   142
'vertical spacing between selected widgets is made the same'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   143
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   144
#menuChangeHierarchy
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   145
'change hierarchy of the selected widget'
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   146
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   147
#copyExtent
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   148
'copy extent of the selected widget'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   149
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   150
#moveSelectionRight
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   151
'move selected widgets right while pressing the button'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   152
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   153
#cancel
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   154
'reread specification and layout'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   155
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   156
#pasteWithLayout
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   157
'paste widgets without changing their layouts'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   158
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   159
#alignSelectionRight
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   160
'align selected widgets to the right edge of the dominant widget'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   161
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   162
#alignSelectionLeftAndRight
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   163
'align selected widgets to the right and left edge of the dominant widget'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   164
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   165
#pasteWidth
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   166
'change width of all selected widgets to the last copied extent width'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   167
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   168
#alignSelectionTopAndBottom
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   169
'align selected widgets to the top and bottom edge of the dominant widget'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   170
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   171
#copyLayout
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   172
'copy layout of the selected widget'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   173
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   174
#painterShown
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   175
'show or hide painter view'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   176
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   177
#pasteExtent
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   178
'change extent of all selected widgets to the last copied extent'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   179
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   180
#pasteHeight
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   181
'change height of all selected widgets to the last copied extent height'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   182
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   183
#accept
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   184
'write back changes'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   185
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   186
#centerSelectionVer
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   187
'center vertical horizontal in contained view'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   188
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   189
#centerSelectionHor
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   190
'center widgets horizontal to their top widget'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   191
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   192
#menuAlignment
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   193
'provides a set of alignment operation on the current selected widgets'
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   194
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   195
#alignSelectionCenterVer
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   196
'align selected widgets horizontal to the center of the dominant widget'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   197
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   198
#pasteLayout
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   199
'change layout of all selected widgets to the last copied layout'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   200
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   201
#alignSelectionLeft
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   202
'align selected widgets to the left edge of the dominant widget'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   203
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   204
#spreadSelectionHor
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   205
'horizontal spacing between selected widgets is made the same'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   206
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   207
#alignSelectionBottom
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   208
'align selected widgets to the bottom edge of the dominant widget'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   209
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   210
#setToDefaultExtent
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   211
'set selected widgets to their default extent'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   212
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   213
#alignSelectionCenterHor
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   214
'align selected widgets vertical to the center of the dominant widget'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   215
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   216
#alignSelectionTop
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   217
'align selected widgets to the top edge of the dominant widget'
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   218
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   219
#setToDefaultHeight
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   220
'set selected widgets to their default height'
194
2b05bd327785 recompute property list when changing view ordering by
ca
parents: 193
diff changeset
   221
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   222
)
358
5df60cd45881 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 351
diff changeset
   223
5df60cd45881 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 351
diff changeset
   224
    "Modified: / 29.10.1997 / 03:19:58 / cg"
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   225
! !
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   226
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   227
!UIPainter class methodsFor:'helpers'!
14db1276218c change the spec;
ca
parents: 295
diff changeset
   228
368
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   229
convertString:aString maxLineSize:maxCharactersPerLine skipLineFeed:skipLineFeed
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   230
    "converts a string to a string collection with maximum characters
14db1276218c change the spec;
ca
parents: 295
diff changeset
   231
     per line
14db1276218c change the spec;
ca
parents: 295
diff changeset
   232
    "
14db1276218c change the spec;
ca
parents: 295
diff changeset
   233
    |stream
14db1276218c change the spec;
ca
parents: 295
diff changeset
   234
        max     "{ Class:SmallInteger }"
14db1276218c change the spec;
ca
parents: 295
diff changeset
   235
        size    "{ Class:SmallInteger }"
14db1276218c change the spec;
ca
parents: 295
diff changeset
   236
        start   "{ Class:SmallInteger }"
14db1276218c change the spec;
ca
parents: 295
diff changeset
   237
        stop    "{ Class:SmallInteger }"
14db1276218c change the spec;
ca
parents: 295
diff changeset
   238
        cpySz   "{ Class:SmallInteger }"
14db1276218c change the spec;
ca
parents: 295
diff changeset
   239
        lnSz    "{ Class:SmallInteger }"|
14db1276218c change the spec;
ca
parents: 295
diff changeset
   240
14db1276218c change the spec;
ca
parents: 295
diff changeset
   241
    maxCharactersPerLine < 20 ifFalse:[max := maxCharactersPerLine - 1]
14db1276218c change the spec;
ca
parents: 295
diff changeset
   242
                               ifTrue:[max := 20].
14db1276218c change the spec;
ca
parents: 295
diff changeset
   243
14db1276218c change the spec;
ca
parents: 295
diff changeset
   244
    (size := aString size) <= max ifTrue:[
14db1276218c change the spec;
ca
parents: 295
diff changeset
   245
        ^ aString
14db1276218c change the spec;
ca
parents: 295
diff changeset
   246
    ].
14db1276218c change the spec;
ca
parents: 295
diff changeset
   247
    start  := 1.
14db1276218c change the spec;
ca
parents: 295
diff changeset
   248
    lnSz   := 0.
14db1276218c change the spec;
ca
parents: 295
diff changeset
   249
    stream := (String new:size) writeStream.
14db1276218c change the spec;
ca
parents: 295
diff changeset
   250
14db1276218c change the spec;
ca
parents: 295
diff changeset
   251
    [start <= size] whileTrue:[
14db1276218c change the spec;
ca
parents: 295
diff changeset
   252
        (start := aString indexOfNonSeparatorStartingAt:start) == 0 ifTrue:[
14db1276218c change the spec;
ca
parents: 295
diff changeset
   253
            ^ stream contents
14db1276218c change the spec;
ca
parents: 295
diff changeset
   254
        ].
368
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   255
        (aString at:start) == $\ ifTrue:[
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   256
            skipLineFeed ifFalse:[
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   257
                stream nextPut:$\
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   258
            ].
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   259
            start := start + 1.
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   260
            stream cr.
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   261
            start := start + 1.
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   262
            lnSz := 0.
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   263
        ] ifFalse:[
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   264
            (stop := aString indexOfSeparatorStartingAt:start) == 0 ifTrue:[
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   265
                    stop := size + 1
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   266
            ].
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   267
            (aString at:(stop - 1)) == $\ ifTrue:[
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   268
                stop := stop - 1
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   269
            ].
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   270
            cpySz := stop - start.
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   271
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   272
            lnSz == 0 ifFalse:[
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   273
                (lnSz := lnSz + cpySz) >= max ifTrue:[stream cr.    lnSz := cpySz ]
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   274
                                             ifFalse:[stream space. lnSz := lnSz + 1]
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   275
            ] ifTrue:[
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   276
                lnSz := cpySz
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   277
            ].
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   278
            stream nextPutAll:aString startingAt:start to:(stop - 1).
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   279
            start := stop.
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   280
        ]
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   281
    ].
14db1276218c change the spec;
ca
parents: 295
diff changeset
   282
    ^ stream contents
14db1276218c change the spec;
ca
parents: 295
diff changeset
   283
! !
14db1276218c change the spec;
ca
parents: 295
diff changeset
   284
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
   285
!UIPainter class methodsFor:'interface specs'!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
   286
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   287
gridParametersSpec
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   288
    "this window spec was automatically generated by the ST/X UIPainter"
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   289
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   290
    "do not manually edit this - the painter/builder may not be able to
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   291
     handle the specification if its corrupted."
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   292
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   293
    "
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   294
     UIPainter new openOnClass:UIPainter andSelector:#gridParametersSpec
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   295
     UIPainter new openInterface:#gridParametersSpec
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   296
    "
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   297
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   298
    <resource: #canvas>
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   299
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   300
    ^
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   301
     
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   302
       #(#FullSpec
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   303
          #'window:' 
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   304
           #(#WindowSpec
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   305
              #'name:' 'Grid Parameters:'
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   306
              #'layout:' #(#LayoutFrame 229 0 394 0 494 0 543 0)
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   307
              #'label:' 'Grid Parameters:'
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   308
              #'min:' #(#Point 10 10)
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   309
              #'max:' #(#Point 1280 1024)
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   310
              #'bounds:' #(#Rectangle 229 394 495 544)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   311
              #'usePreferredExtent:' false
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   312
          )
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   313
          #'component:' 
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   314
           #(#SpecCollection
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   315
              #'collection:' 
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   316
               #(
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   317
                 #(#CheckBoxSpec
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   318
                    #'name:' 'show'
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   319
                    #'layout:' #(#Point 13 14)
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   320
                    #'model:' #showGrid
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   321
                    #'label:' 'Show grid'
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   322
                )
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   323
                 #(#CheckBoxSpec
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   324
                    #'name:' 'align'
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   325
                    #'layout:' #(#Point 117 14)
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   326
                    #'model:' #alignToGrid
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   327
                    #'label:' 'Align to Grid'
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   328
                )
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   329
                 #(#LabelSpec
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   330
                    #'name:' 'hrzLabel'
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   331
                    #'layout:' #(#AlignmentOrigin 136 0 62 0 1 0.5)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   332
                    #'label:' 'Horizontal Pixels:'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   333
                    #'adjust:' #right
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   334
                    #'resizeForLabel:' true
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   335
                )
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   336
                 #(#InputFieldSpec
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   337
                    #'name:' 'hrzField'
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   338
                    #'layout:' #(#LayoutFrame 141 0 51 0 194 0 73 0)
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   339
                    #'model:' #hspace
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   340
                    #'type:' #numberOrNil
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   341
                )
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   342
                 #(#LabelSpec
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   343
                    #'name:' 'vrtLabel'
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   344
                    #'layout:' #(#AlignmentOrigin 137 0 85 0 1 0.5)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   345
                    #'label:' 'Vertical Pixels:'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   346
                    #'adjust:' #right
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   347
                    #'resizeForLabel:' true
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   348
                )
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   349
                 #(#InputFieldSpec
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   350
                    #'name:' 'vrtField'
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   351
                    #'layout:' #(#LayoutFrame 141 0 74 0 194 0 96 0)
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   352
                    #'model:' #vspace
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   353
                    #'type:' #numberOrNil
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   354
                )
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   355
                 #(#UISubSpecification
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   356
                    #'name:' 'uISubSpecifica1'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   357
                    #'layout:' #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   358
                    #'majorKey:' #ToolApplicationModel
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   359
                    #'minorKey:' #windowSpecForCommitWithoutChannels
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   360
                )
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   361
              )
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   362
          )
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   363
      )
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   364
!
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   365
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   366
nameAndSelectorSpec
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   367
    "this window spec was automatically generated by the ST/X UIPainter"
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   368
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   369
    "do not manually edit this - the painter/builder may not be able to
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   370
     handle the specification if its corrupted."
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   371
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   372
    "
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   373
     UIPainter new openOnClass:UIPainter andSelector:#nameAndSelectorSpec
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   374
     UIPainter new openInterface:#nameAndSelectorSpec
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   375
    "
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   376
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   377
    <resource: #canvas>
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   378
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   379
    ^
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   380
     
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   381
       #(#FullSpec
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   382
          #'window:' 
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   383
           #(#WindowSpec
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   384
              #'name:' 'Painter'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   385
              #'layout:' #(#LayoutFrame 101 0 328 0 491 0 497 0)
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   386
              #'label:' 'Painter'
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   387
              #'min:' #(#Point 10 10)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   388
              #'max:' #(#Point 1152 900)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   389
              #'bounds:' #(#Rectangle 101 328 492 498)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   390
              #'usePreferredExtent:' false
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   391
          )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   392
          #'component:' 
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   393
           #(#SpecCollection
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   394
              #'collection:' 
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   395
               #(
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   396
                 #(#LabelSpec
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   397
                    #'name:' 'classLabel'
265
28478a237d91 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 256
diff changeset
   398
                    #'layout:' #(#AlignmentOrigin 50 0.11 51 0 1 0.5)
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   399
                    #'label:' 'Class:'
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   400
                    #'adjust:' #right
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   401
                    #'resizeForLabel:' true
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   402
                )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   403
                 #(#LabelSpec
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   404
                    #'name:' 'superClassLabel'
265
28478a237d91 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 256
diff changeset
   405
                    #'layout:' #(#AlignmentOrigin 50 0.11 77 0 1 0.5)
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   406
                    #'label:' 'Superclass:'
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   407
                    #'adjust:' #right
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   408
                    #'resizeForLabel:' true
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   409
                )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   410
                 #(#LabelSpec
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   411
                    #'name:' 'selectorLabel'
265
28478a237d91 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 256
diff changeset
   412
                    #'layout:' #(#AlignmentOrigin 50 0.11 105 0 1 0.5)
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   413
                    #'label:' 'Selector:'
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   414
                    #'adjust:' #right
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   415
                    #'resizeForLabel:' true
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   416
                )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   417
                 #(#InputFieldSpec
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   418
                    #'name:' 'methodNameField'
265
28478a237d91 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 256
diff changeset
   419
                    #'layout:' #(#LayoutFrame 51 0.11 95 0 -2 1.0 117 0)
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   420
                    #'tabable:' true
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   421
                    #'model:' #methodNameChannel
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   422
                )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   423
                 #(#LabelSpec
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   424
                    #'name:' 'boxLabel'
265
28478a237d91 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 256
diff changeset
   425
                    #'layout:' #(#Point 2 10)
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   426
                    #'label:' 'Class and selector for interface:'
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   427
                    #'adjust:' #left
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   428
                    #'resizeForLabel:' true
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   429
                )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   430
                 #(#InputFieldSpec
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   431
                    #'name:' 'classNameField'
265
28478a237d91 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 256
diff changeset
   432
                    #'layout:' #(#LayoutFrame 51 0.11 39 0 -2 1.0 61 0)
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   433
                    #'tabable:' true
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   434
                    #'model:' #classNameChannel
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   435
                )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   436
                 #(#ComboBoxSpec
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   437
                    #'name:' 'comboBox1'
265
28478a237d91 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 256
diff changeset
   438
                    #'layout:' #(#LayoutFrame 51 0.11 67 0 0 1.0 89 0)
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   439
                    #'tabable:' true
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   440
                    #'model:' #superclassNameChannel
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   441
                    #'comboList:' #superclassNameDefaults
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   442
                )
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   443
                 #(#UISubSpecification
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   444
                    #'name:' 'uISubSpecifica1'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   445
                    #'layout:' #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   446
                    #'majorKey:' #ToolApplicationModel
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   447
                    #'minorKey:' #windowSpecForCommitWithoutChannels
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   448
                )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   449
              )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   450
          )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   451
      )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   452
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   453
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   454
windowSpec
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   455
    "this window spec was automatically generated by the ST/X UIPainter"
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   456
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   457
    "do not manually edit this - the painter/builder may not be able to
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   458
     handle the specification if its corrupted."
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   459
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   460
    "
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   461
     UIPainter new openOnClass:UIPainter andSelector:#windowSpec
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   462
     UIPainter new openInterface:#windowSpec
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   463
    "
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   464
    "UIPainter open"
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   465
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   466
    <resource: #canvas>
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   467
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   468
    ^
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   469
     
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   470
       #(#FullSpec
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   471
          #'window:' 
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   472
           #(#WindowSpec
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   473
              #'name:' 'Tree-View'
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   474
              #'layout:' #(#LayoutFrame 536 0 334 0 1088 0 794 0)
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   475
              #'label:' 'Tree-View'
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   476
              #'min:' #(#Point 10 10)
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
   477
              #'max:' #(#Point 1160 870)
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   478
              #'bounds:' #(#Rectangle 536 334 1089 795)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   479
              #'menu:' #menu
375
b43507f222ce checkin from browser
Claus Gittinger <cg@exept.de>
parents: 368
diff changeset
   480
              #'usePreferredExtent:' false
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   481
          )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   482
          #'component:' 
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   483
           #(#SpecCollection
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   484
              #'collection:' 
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   485
               #(
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   486
                 #(#MenuPanelSpec
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   487
                    #'name:' 'menuToolbarView'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   488
                    #'layout:' #(#LayoutFrame -1 0.0 0 0 -1 1.0 32 0)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   489
                    #'activeHelpKey:' #menuChangeHierarchy
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   490
                    #'tabable:' true
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   491
                    #'menu:' #menuToolbar
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   492
                    #'showSeparatingLines:' true
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   493
                )
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   494
                 #(#VariableVerticalPanelSpec
14db1276218c change the spec;
ca
parents: 295
diff changeset
   495
                    #'name:' 'vpanel'
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   496
                    #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 0 1.0)
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   497
                    #'component:' 
14db1276218c change the spec;
ca
parents: 295
diff changeset
   498
                     #(#SpecCollection
14db1276218c change the spec;
ca
parents: 295
diff changeset
   499
                        #'collection:' 
14db1276218c change the spec;
ca
parents: 295
diff changeset
   500
                         #(
14db1276218c change the spec;
ca
parents: 295
diff changeset
   501
                           #(#VariableHorizontalPanelSpec
14db1276218c change the spec;
ca
parents: 295
diff changeset
   502
                              #'name:' 'hpanel'
14db1276218c change the spec;
ca
parents: 295
diff changeset
   503
                              #'component:' 
14db1276218c change the spec;
ca
parents: 295
diff changeset
   504
                               #(#SpecCollection
14db1276218c change the spec;
ca
parents: 295
diff changeset
   505
                                  #'collection:' 
14db1276218c change the spec;
ca
parents: 295
diff changeset
   506
                                   #(
14db1276218c change the spec;
ca
parents: 295
diff changeset
   507
                                     #(#ArbitraryComponentSpec
14db1276218c change the spec;
ca
parents: 295
diff changeset
   508
                                        #'name:' 'treeView'
375
b43507f222ce checkin from browser
Claus Gittinger <cg@exept.de>
parents: 368
diff changeset
   509
                                        #'tabable:' true
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   510
                                        #'menu:' #menuEdit
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   511
                                        #'hasHorizontalScrollBar:' true
14db1276218c change the spec;
ca
parents: 295
diff changeset
   512
                                        #'hasVerticalScrollBar:' true
14db1276218c change the spec;
ca
parents: 295
diff changeset
   513
                                        #'miniScrollerHorizontal:' true
14db1276218c change the spec;
ca
parents: 295
diff changeset
   514
                                        #'miniScrollerVertical:' true
14db1276218c change the spec;
ca
parents: 295
diff changeset
   515
                                        #'component:' #treeView
14db1276218c change the spec;
ca
parents: 295
diff changeset
   516
                                        #'hasBorder:' false
14db1276218c change the spec;
ca
parents: 295
diff changeset
   517
                                    )
14db1276218c change the spec;
ca
parents: 295
diff changeset
   518
                                     #(#ViewSpec
14db1276218c change the spec;
ca
parents: 295
diff changeset
   519
                                        #'name:' 'specHolderView'
14db1276218c change the spec;
ca
parents: 295
diff changeset
   520
                                        #'component:' 
14db1276218c change the spec;
ca
parents: 295
diff changeset
   521
                                         #(#SpecCollection
14db1276218c change the spec;
ca
parents: 295
diff changeset
   522
                                            #'collection:' 
14db1276218c change the spec;
ca
parents: 295
diff changeset
   523
                                             #(
14db1276218c change the spec;
ca
parents: 295
diff changeset
   524
                                               #(#NoteBookViewSpec
14db1276218c change the spec;
ca
parents: 295
diff changeset
   525
                                                  #'name:' 'noteBook'
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   526
                                                  #'layout:' #(#LayoutFrame 0 0.0 26 0.0 0 1.0 -30 1.0)
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   527
                                                  #'enableChannel:' #enableChannel
14db1276218c change the spec;
ca
parents: 295
diff changeset
   528
                                                  #'tabable:' true
345
c4d8f4c74c26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 344
diff changeset
   529
                                                  #'model:' #tabModel
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   530
                                                  #'menu:' #tabList
345
c4d8f4c74c26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 344
diff changeset
   531
                                                  #'style:' #(#FontDescription #helvetica #medium #roman 10)
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   532
                                                  #'canvas:' #noteBookView
14db1276218c change the spec;
ca
parents: 295
diff changeset
   533
                                              )
14db1276218c change the spec;
ca
parents: 295
diff changeset
   534
                                               #(#HorizontalPanelViewSpec
14db1276218c change the spec;
ca
parents: 295
diff changeset
   535
                                                  #'name:' 'modifyPanel'
14db1276218c change the spec;
ca
parents: 295
diff changeset
   536
                                                  #'layout:' #(#LayoutFrame 0 0.0 -30 1.0 0 1.0 0 1.0)
14db1276218c change the spec;
ca
parents: 295
diff changeset
   537
                                                  #'component:' 
14db1276218c change the spec;
ca
parents: 295
diff changeset
   538
                                                   #(#SpecCollection
14db1276218c change the spec;
ca
parents: 295
diff changeset
   539
                                                      #'collection:' 
14db1276218c change the spec;
ca
parents: 295
diff changeset
   540
                                                       #(
14db1276218c change the spec;
ca
parents: 295
diff changeset
   541
                                                         #(#ActionButtonSpec
14db1276218c change the spec;
ca
parents: 295
diff changeset
   542
                                                            #'name:' 'cancelButton'
14db1276218c change the spec;
ca
parents: 295
diff changeset
   543
                                                            #'activeHelpKey:' #cancel
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   544
                                                            #'label:' 'Cancel'
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   545
                                                            #'tabable:' true
14db1276218c change the spec;
ca
parents: 295
diff changeset
   546
                                                            #'model:' #cancel
14db1276218c change the spec;
ca
parents: 295
diff changeset
   547
                                                            #'enableChannel:' #modifiedChannel
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   548
                                                            #'extent:' #(#Point 179 24)
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   549
                                                        )
14db1276218c change the spec;
ca
parents: 295
diff changeset
   550
                                                         #(#ActionButtonSpec
14db1276218c change the spec;
ca
parents: 295
diff changeset
   551
                                                            #'name:' 'acceptButton'
14db1276218c change the spec;
ca
parents: 295
diff changeset
   552
                                                            #'activeHelpKey:' #accept
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   553
                                                            #'label:' 'OK'
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   554
                                                            #'tabable:' true
14db1276218c change the spec;
ca
parents: 295
diff changeset
   555
                                                            #'model:' #accept
14db1276218c change the spec;
ca
parents: 295
diff changeset
   556
                                                            #'enableChannel:' #modifiedChannel
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   557
                                                            #'extent:' #(#Point 180 24)
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   558
                                                        )
14db1276218c change the spec;
ca
parents: 295
diff changeset
   559
                                                      )
14db1276218c change the spec;
ca
parents: 295
diff changeset
   560
                                                  )
14db1276218c change the spec;
ca
parents: 295
diff changeset
   561
                                                  #'horizontalLayout:' #fitSpace
14db1276218c change the spec;
ca
parents: 295
diff changeset
   562
                                                  #'verticalLayout:' #fitSpace
14db1276218c change the spec;
ca
parents: 295
diff changeset
   563
                                                  #'horizontalSpace:' 3
14db1276218c change the spec;
ca
parents: 295
diff changeset
   564
                                                  #'verticalSpace:' 3
14db1276218c change the spec;
ca
parents: 295
diff changeset
   565
                                              )
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   566
                                               #(#HorizontalPanelViewSpec
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   567
                                                  #'name:' 'panelViewButtons'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   568
                                                  #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 24 0)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   569
                                                  #'component:' 
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   570
                                                   #(#SpecCollection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   571
                                                      #'collection:' 
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   572
                                                       #(
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   573
                                                         #(#ArrowButtonSpec
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   574
                                                            #'name:' 'moveLeft'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   575
                                                            #'activeHelpKey:' #moveSelectionLeft
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   576
                                                            #'tabable:' true
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   577
                                                            #'model:' #moveSelectionLeft
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   578
                                                            #'enableChannel:' #canMoveOrAlignSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   579
                                                            #'isTriggerOnDown:' true
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   580
                                                            #'direction:' #left
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   581
                                                            #'extent:' #(#Point 22 22)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   582
                                                        )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   583
                                                         #(#ArrowButtonSpec
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   584
                                                            #'name:' 'moveRight'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   585
                                                            #'activeHelpKey:' #moveSelectionRight
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   586
                                                            #'model:' #moveSelectionRight
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   587
                                                            #'enableChannel:' #canMoveOrAlignSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   588
                                                            #'isTriggerOnDown:' true
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   589
                                                            #'direction:' #right
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   590
                                                            #'extent:' #(#Point 22 22)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   591
                                                        )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   592
                                                         #(#ArrowButtonSpec
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   593
                                                            #'name:' 'moveDown'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   594
                                                            #'activeHelpKey:' #moveSelectionDown
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   595
                                                            #'model:' #moveSelectionDown
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   596
                                                            #'enableChannel:' #canMoveOrAlignSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   597
                                                            #'isTriggerOnDown:' true
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   598
                                                            #'direction:' #down
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   599
                                                            #'extent:' #(#Point 22 22)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   600
                                                        )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   601
                                                         #(#ArrowButtonSpec
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   602
                                                            #'name:' 'moveUp'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   603
                                                            #'activeHelpKey:' #moveSelectionUp
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   604
                                                            #'model:' #moveSelectionUp
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   605
                                                            #'enableChannel:' #canMoveOrAlignSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   606
                                                            #'isTriggerOnDown:' true
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   607
                                                            #'direction:' #up
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   608
                                                            #'extent:' #(#Point 22 22)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   609
                                                        )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   610
                                                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   611
                                                  )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   612
                                                  #'level:' 1
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   613
                                                  #'horizontalLayout:' #left
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   614
                                                  #'verticalLayout:' #fit
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   615
                                                  #'horizontalSpace:' 4
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   616
                                                  #'verticalSpace:' 4
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   617
                                              )
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   618
                                            )
14db1276218c change the spec;
ca
parents: 295
diff changeset
   619
                                        )
14db1276218c change the spec;
ca
parents: 295
diff changeset
   620
                                        #'borderWidth:' 1
14db1276218c change the spec;
ca
parents: 295
diff changeset
   621
                                    )
14db1276218c change the spec;
ca
parents: 295
diff changeset
   622
                                  )
14db1276218c change the spec;
ca
parents: 295
diff changeset
   623
                              )
14db1276218c change the spec;
ca
parents: 295
diff changeset
   624
                              #'level:' 1
14db1276218c change the spec;
ca
parents: 295
diff changeset
   625
                              #'handles:' #(#Any 0.329435 1.0)
14db1276218c change the spec;
ca
parents: 295
diff changeset
   626
                          )
14db1276218c change the spec;
ca
parents: 295
diff changeset
   627
                           #(#TextEditorSpec
14db1276218c change the spec;
ca
parents: 295
diff changeset
   628
                              #'name:' 'Transcript'
14db1276218c change the spec;
ca
parents: 295
diff changeset
   629
                              #'hasHorizontalScrollBar:' true
14db1276218c change the spec;
ca
parents: 295
diff changeset
   630
                              #'hasVerticalScrollBar:' true
14db1276218c change the spec;
ca
parents: 295
diff changeset
   631
                              #'miniScrollerHorizontal:' true
14db1276218c change the spec;
ca
parents: 295
diff changeset
   632
                              #'miniScrollerVertical:' true
14db1276218c change the spec;
ca
parents: 295
diff changeset
   633
                          )
14db1276218c change the spec;
ca
parents: 295
diff changeset
   634
                        )
14db1276218c change the spec;
ca
parents: 295
diff changeset
   635
                    )
14db1276218c change the spec;
ca
parents: 295
diff changeset
   636
                    #'handles:' #(#Any 0.880597 1.0)
14db1276218c change the spec;
ca
parents: 295
diff changeset
   637
                )
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   638
              )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   639
          )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   640
      )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   641
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   642
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   643
!UIPainter class methodsFor:'menu specs'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   644
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   645
menu
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   646
    "this window spec was automatically generated by the ST/X MenuEditor"
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   647
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   648
    "do not manually edit this - the builder may not be able to
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   649
     handle the specification if its corrupted."
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   650
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   651
    "
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   652
     MenuEditor new openOnClass:UIPainter andSelector:#menu
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   653
     (Menu new fromLiteralArrayEncoding:(UIPainter menu)) startUp
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   654
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   655
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   656
    <resource: #menu>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   657
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   658
    ^
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   659
     
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   660
       #(#Menu
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   661
          
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   662
           #(
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   663
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   664
                #'label:' 'About'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   665
                #'labelImage:' #(#ResourceRetriever nil #icon)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   666
                #'submenuChannel:' #menuAbout
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   667
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   668
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   669
                #'label:' 'File'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   670
                #'value:' #file
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   671
                #'enabled:' #enableChannel
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   672
                #'submenu:' 
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   673
                 #(#Menu
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   674
                    
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   675
                     #(
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   676
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   677
                          #'label:' 'New'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   678
                          #'value:' #doNew
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   679
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   680
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   681
                          #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   682
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   683
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   684
                          #'label:' 'Load From Class...'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   685
                          #'value:' #doFromClass
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   686
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   687
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   688
                          #'label:' 'Load From Class With Superclass...'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   689
                          #'value:' #loadFromClassWithSuperclass
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   690
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   691
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   692
                          #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   693
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   694
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   695
                          #'label:' 'Define Class And Selector...'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   696
                          #'value:' #defineClassAndSelector
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   697
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   698
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   699
                          #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   700
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   701
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   702
                          #'label:' 'Save Window Spec'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   703
                          #'value:' #doInstallSpec
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   704
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   705
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   706
                          #'label:' 'Save Help Spec'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   707
                          #'value:' #doInstallHelp
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   708
                          #'enabled:' #hasSpecClass
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   709
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   710
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   711
                          #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   712
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   713
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   714
                          #'label:' 'Create Aspect Methods'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   715
                          #'value:' #doInstallAspects
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   716
                          #'enabled:' #hasSpecClass
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   717
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   718
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   719
                          #'label:' 'Create Hook Methods'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   720
                          #'value:' #doInstallHooks
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   721
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   722
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   723
                          #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   724
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   725
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   726
                          #'label:' 'Show Window Spec'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   727
                          #'value:' #doWindowSpec
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   728
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   729
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   730
                          #'label:' 'Browse Application'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   731
                          #'value:' #doBrowseAppClass
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   732
                          #'enabled:' #hasSpecClass
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   733
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   734
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   735
                          #'label:' 'Browse Aspect Methods'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   736
                          #'value:' #doBrowseAspectMethods
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   737
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   738
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   739
                          #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   740
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   741
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   742
                          #'label:' 'Pick a View '
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   743
                          #'value:' #doPickAView
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   744
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   745
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   746
                          #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   747
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   748
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   749
                          #'label:' 'Exit'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   750
                          #'value:' #closeRequest
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   751
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   752
                    ) nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   753
                    nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   754
                )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   755
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   756
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   757
                #'label:' 'Edit'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   758
                #'submenuChannel:' #menuEdit
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   759
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   760
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   761
                #'label:' 'Align'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   762
                #'submenuChannel:' #menuAlign
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   763
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   764
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   765
                #'label:' 'Test'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   766
                #'submenu:' 
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   767
                 #(#Menu
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   768
                    
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   769
                     #(
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   770
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   771
                          #'label:' 'Geometry Test Mode'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   772
                          #'indication:' #'testMode:'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   773
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   774
                    ) nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   775
                    nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   776
                )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   777
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   778
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   779
                #'label:' 'Settings'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   780
                #'submenu:' 
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   781
                 #(#Menu
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   782
                    
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   783
                     #(
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   784
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   785
                          #'label:' 'Undo Manager'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   786
                          #'value:' #openUndoMenu
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   787
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   788
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   789
                          #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   790
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   791
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   792
                          #'label:' 'Grid Manager'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   793
                          #'value:' #gridMenu
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   794
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   795
                    ) nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   796
                    nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   797
                )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   798
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   799
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   800
                #'label:' 'History'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   801
                #'submenuChannel:' #menuHistory
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   802
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   803
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   804
                #'label:' ''
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   805
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   806
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   807
                #'label:' 'Gallery'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   808
                #'indication:' #galleryShown
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   809
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   810
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   811
                #'label:' 'Canvas'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   812
                #'indication:' #painterShown
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   813
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   814
          ) nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   815
          nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   816
      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   817
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   818
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   819
menuAlign
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   820
    "this window spec was automatically generated by the ST/X MenuEditor"
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   821
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   822
    "do not manually edit this - the builder may not be able to
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   823
     handle the specification if its corrupted."
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   824
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   825
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   826
     MenuEditor new openOnClass:UIPainter andSelector:#menuAlign
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   827
     (Menu new fromLiteralArrayEncoding:(UIPainter menuAlign)) startUp
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   828
    "
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   829
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   830
    <resource: #menu>
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   831
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   832
    ^
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   833
     
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   834
       #(#Menu
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   835
          
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   836
           #(
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
   837
             #(#MenuItem
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   838
                #'label:' 'Align Left'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   839
                #'value:' #alignSelectionLeft
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   840
                #'activeHelpKey:' #alignSelectionLeft
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   841
                #'labelImage:' #(#ResourceRetriever #UIPainter #iconAlignL 'Align Left')
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   842
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   843
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   844
                #'label:' 'Align Right'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   845
                #'value:' #alignSelectionRight
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   846
                #'activeHelpKey:' #alignSelectionRight
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   847
                #'labelImage:' #(#ResourceRetriever #UIPainter #iconAlignR 'Align Right')
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   848
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   849
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   850
                #'label:' 'Align Left & Right'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   851
                #'value:' #alignSelectionLeftAndRight
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   852
                #'activeHelpKey:' #alignSelectionLeftAndRight
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   853
                #'labelImage:' #(#ResourceRetriever #UIPainter #iconAlignLR 'Align Left & Right')
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   854
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   855
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   856
                #'label:' 'Align top'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   857
                #'value:' #alignSelectionTop
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   858
                #'activeHelpKey:' #alignSelectionTop
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   859
                #'labelImage:' #(#ResourceRetriever #UIPainter #iconAlignT 'Align top')
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   860
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   861
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   862
                #'label:' 'Align Bottom'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   863
                #'value:' #alignSelectionBottom
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   864
                #'activeHelpKey:' #alignSelectionBottom
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   865
                #'labelImage:' #(#ResourceRetriever #UIPainter #iconAlignB 'Align Bottom')
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   866
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   867
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   868
                #'label:' 'Align Top & Bottom'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   869
                #'value:' #alignSelectionTopAndBottom
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   870
                #'activeHelpKey:' #alignSelectionTopAndBottom
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   871
                #'labelImage:' #(#ResourceRetriever #UIPainter #iconAlignTB 'Align Top & Bottom')
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   872
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   873
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   874
                #'label:' 'Align Centered Horizontal'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   875
                #'value:' #alignSelectionCenterHor
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   876
                #'activeHelpKey:' #alignSelectionCenterHor
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   877
                #'labelImage:' #(#ResourceRetriever #UIPainter #iconAlignCenterH 'Align Centered Horizontal')
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   878
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   879
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   880
                #'label:' 'Align Centered Vertical'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   881
                #'value:' #alignSelectionCenterVer
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   882
                #'activeHelpKey:' #alignSelectionCenterVer
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   883
                #'labelImage:' #(#ResourceRetriever #UIPainter #iconAlignCenterV 'Align Centered Vertical')
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   884
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   885
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   886
                #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   887
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   888
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   889
                #'label:' 'Spread Horizontal'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   890
                #'value:' #spreadSelectionHor
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   891
                #'activeHelpKey:' #spreadSelectionHor
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   892
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   893
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   894
                #'label:' 'Spread Vertical'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   895
                #'value:' #spreadSelectionVer
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   896
                #'activeHelpKey:' #spreadSelectionVer
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   897
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   898
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   899
                #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   900
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   901
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   902
                #'label:' 'Center Horizontal In Frame'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   903
                #'value:' #centerSelectionHor
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   904
                #'activeHelpKey:' #centerSelectionHor
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   905
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   906
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   907
                #'label:' 'Center Vertical In Frame'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   908
                #'value:' #centerSelectionVer
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   909
                #'activeHelpKey:' #centerSelectionVer
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   910
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   911
          ) nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   912
          nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   913
      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   914
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   915
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   916
menuEdit
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   917
    "this window spec was automatically generated by the ST/X MenuEditor"
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   918
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   919
    "do not manually edit this - the builder may not be able to
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   920
     handle the specification if its corrupted."
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   921
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   922
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   923
     MenuEditor new openOnClass:UIPainter andSelector:#menuEdit
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   924
     (Menu new fromLiteralArrayEncoding:(UIPainter menuEdit)) startUp
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   925
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   926
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   927
    <resource: #menu>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   928
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   929
    ^
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   930
     
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   931
       #(#Menu
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   932
          
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   933
           #(
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   934
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   935
                #'label:' 'Cut'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   936
                #'value:' #deleteSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   937
                #'enabled:' #hasSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   938
                #'shortcutKeyCharacter:' #Cut
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   939
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   940
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   941
                #'label:' 'Copy'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   942
                #'value:' #copySelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   943
                #'enabled:' #hasSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   944
                #'shortcutKeyCharacter:' #Copy
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   945
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   946
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   947
                #'label:' 'Paste'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   948
                #'nameKey:' #paste
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   949
                #'value:' #paste
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   950
                #'enabled:' #canPaste
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   951
                #'submenu:' 
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   952
                 #(#Menu
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   953
                    
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   954
                     #(
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   955
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   956
                          #'label:' 'Paste'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   957
                          #'value:' #pasteBuffer
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   958
                          #'activeHelpKey:' #pasteBuffer
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   959
                          #'shortcutKeyCharacter:' #Paste
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   960
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   961
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   962
                          #'label:' 'Keep Layout'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   963
                          #'value:' #pasteWithLayout
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   964
                          #'activeHelpKey:' #pasteWithLayout
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   965
                          #'enabled:' #canKeepLayoutInSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   966
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   967
                    ) nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   968
                    nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   969
                )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   970
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   971
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   972
                #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   973
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   974
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   975
                #'label:' 'Undo'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   976
                #'nameKey:' #undo
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   977
                #'value:' #undoLast
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   978
                #'enabled:' #hasUndoHistory
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   979
                #'shortcutKeyCharacter:' #Cmdu
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   980
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   981
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   982
                #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   983
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   984
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   985
                #'label:' 'Dimension'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   986
                #'value:' #dimension
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   987
                #'enabled:' #hasSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   988
                #'submenu:' 
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   989
                 #(#Menu
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   990
                    
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   991
                     #(
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   992
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   993
                          #'label:' 'Default Extent'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   994
                          #'value:' #setToDefaultExtent
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   995
                          #'activeHelpKey:' #setToDefaultExtent
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   996
                          #'enabled:' #canMoveOrAlignSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   997
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   998
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   999
                          #'label:' 'Default Width'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1000
                          #'value:' #setToDefaultWidth
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1001
                          #'activeHelpKey:' #setToDefaultWidth
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1002
                          #'enabled:' #canMoveOrAlignSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1003
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1004
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1005
                          #'label:' 'Default Height'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1006
                          #'value:' #setToDefaultHeight
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1007
                          #'activeHelpKey:' #setToDefaultHeight
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1008
                          #'enabled:' #canMoveOrAlignSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1009
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1010
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1011
                          #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1012
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1013
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1014
                          #'label:' 'Copy Extent'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1015
                          #'value:' #copyExtent
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1016
                          #'activeHelpKey:' #copyExtent
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1017
                          #'enabled:' #hasSingleSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1018
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1019
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1020
                          #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1021
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1022
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1023
                          #'label:' 'Paste Extent'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1024
                          #'value:' #pasteExtent
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1025
                          #'activeHelpKey:' #pasteExtent
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1026
                          #'enabled:' #canMoveOrAlignSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1027
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1028
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1029
                          #'label:' 'Paste Width'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1030
                          #'value:' #pasteWidth
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1031
                          #'activeHelpKey:' #pasteWidth
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1032
                          #'enabled:' #canMoveOrAlignSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1033
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1034
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1035
                          #'label:' 'Paste Height'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1036
                          #'value:' #pasteHeight
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1037
                          #'activeHelpKey:' #pasteHeight
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1038
                          #'enabled:' #canMoveOrAlignSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1039
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1040
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1041
                          #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1042
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1043
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1044
                          #'label:' 'Copy Layout'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1045
                          #'value:' #copyLayout
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1046
                          #'activeHelpKey:' #copyLayout
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1047
                          #'enabled:' #hasSingleSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1048
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1049
                       #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1050
                          #'label:' 'Paste Layout'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1051
                          #'value:' #pasteLayout
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1052
                          #'activeHelpKey:' #pasteLayout
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1053
                          #'enabled:' #canMoveOrAlignSelection
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1054
                      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1055
                    ) nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1056
                    nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1057
                )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1058
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1059
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1060
                #'label:' 'Align'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1061
                #'submenuChannel:' #menuAlign
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1062
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1063
          ) nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1064
          nil
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1065
      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1066
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1067
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1068
menuToolbar
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1069
    "this window spec was automatically generated by the ST/X MenuEditor"
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1070
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1071
    "do not manually edit this - the builder may not be able to
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1072
     handle the specification if its corrupted."
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1073
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1074
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1075
     MenuEditor new openOnClass:UIPainter andSelector:#menuToolbar
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1076
     (Menu new fromLiteralArrayEncoding:(UIPainter menuToolbar)) startUp
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1077
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1078
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1079
    <resource: #menu>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1080
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1081
    ^
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1082
     
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1083
       #(#Menu
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1084
          
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1085
           #(
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1086
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1087
                #'label:' 'Run'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1088
                #'isButton:' true
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1089
                #'value:' #doStartApplication
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1090
                #'labelImage:' #(#ResourceRetriever nil #runIcon)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1091
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1092
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1093
                #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1094
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1095
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1096
                #'label:' 'New'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1097
                #'isButton:' true
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1098
                #'value:' #doNew
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1099
                #'labelImage:' #(#ResourceRetriever nil #newIcon)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1100
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1101
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1102
                #'label:' 'Load'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1103
                #'isButton:' true
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1104
                #'value:' #doFromClass
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1105
                #'labelImage:' #(#ResourceRetriever nil #loadIcon)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1106
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1107
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1108
                #'label:' 'Save'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1109
                #'isButton:' true
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1110
                #'value:' #doInstallSpec
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1111
                #'labelImage:' #(#ResourceRetriever nil #saveIcon)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1112
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1113
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1114
                #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1115
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1116
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1117
                #'label:' 'stepUp'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1118
                #'isButton:' true
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1119
                #'value:' #doStepUp
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1120
                #'enabled:' #enabledStepOver
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1121
                #'labelImage:' #(#ResourceRetriever nil #upIcon)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1122
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1123
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1124
                #'label:' 'stepDown'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1125
                #'isButton:' true
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1126
                #'value:' #doStepDown
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1127
                #'enabled:' #enabledStepOver
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1128
                #'labelImage:' #(#ResourceRetriever nil #downIcon)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1129
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1130
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1131
                #'label:' 'stepIn'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1132
                #'isButton:' true
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1133
                #'value:' #doStepIn
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1134
                #'enabled:' #enabledStepIn
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1135
                #'labelImage:' #(#ResourceRetriever nil #downRightIcon)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1136
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1137
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1138
                #'label:' 'stepOut'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1139
                #'isButton:' true
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1140
                #'value:' #doStepOut
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1141
                #'enabled:' #enabledStepOut
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1142
                #'labelImage:' #(#ResourceRetriever nil #leftDownIcon)
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1143
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1144
             #(#MenuItem
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1145
                #'label:' '-'
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1146
            )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1147
             #(#MenuItem
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1148
                #'label:' 'align left'
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1149
                #'isButton:' true
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1150
                #'value:' #alignSelectionLeft
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1151
                #'activeHelpKey:' #alignSelectionLeft
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1152
                #'labelImage:' #(#ResourceRetriever nil #iconAlignL)
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1153
            )
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1154
             #(#MenuItem
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1155
                #'label:' 'align right'
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1156
                #'isButton:' true
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1157
                #'value:' #alignSelectionRight
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1158
                #'activeHelpKey:' #alignSelectionRight
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1159
                #'labelImage:' #(#ResourceRetriever nil #iconAlignR)
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1160
            )
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1161
             #(#MenuItem
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1162
                #'label:' 'align left & right'
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1163
                #'isButton:' true
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1164
                #'value:' #alignSelectionLeftAndRight
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1165
                #'activeHelpKey:' #alignSelectionLeftAndRight
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1166
                #'labelImage:' #(#ResourceRetriever nil #iconAlignLR)
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1167
            )
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1168
             #(#MenuItem
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1169
                #'label:' 'align top'
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1170
                #'isButton:' true
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1171
                #'value:' #alignSelectionTop
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1172
                #'activeHelpKey:' #alignSelectionTop
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1173
                #'labelImage:' #(#ResourceRetriever nil #iconAlignT)
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1174
            )
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1175
             #(#MenuItem
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1176
                #'label:' 'align bottom'
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1177
                #'isButton:' true
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1178
                #'value:' #alignSelectionBottom
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1179
                #'activeHelpKey:' #alignSelectionBottom
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1180
                #'labelImage:' #(#ResourceRetriever nil #iconAlignB)
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1181
            )
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1182
             #(#MenuItem
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1183
                #'label:' 'align top & bottom'
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1184
                #'isButton:' true
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1185
                #'value:' #alignSelectionTopAndBottom
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1186
                #'activeHelpKey:' #alignSelectionTopAndBottom
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1187
                #'labelImage:' #(#ResourceRetriever nil #iconAlignTB)
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1188
            )
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1189
             #(#MenuItem
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1190
                #'label:' '-'
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1191
            )
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1192
             #(#MenuItem
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1193
                #'label:' 'align centered horizontal'
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1194
                #'isButton:' true
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1195
                #'value:' #alignSelectionCenterHor
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1196
                #'activeHelpKey:' #alignSelectionCenterHor
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1197
                #'labelImage:' #(#ResourceRetriever nil #iconAlignCenterH)
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1198
            )
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1199
             #(#MenuItem
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1200
                #'label:' 'align centered vertical'
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1201
                #'isButton:' true
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1202
                #'value:' #alignSelectionCenterVer
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1203
                #'activeHelpKey:' #alignSelectionCenterVer
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1204
                #'labelImage:' #(#ResourceRetriever nil #iconAlignCenterV)
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1205
            )
437
6317d2f08662 button style added
tz
parents: 394
diff changeset
  1206
          ) nil
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1207
          nil
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1208
      )
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1209
! !
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1210
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1211
!UIPainter class methodsFor:'resources'!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1212
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1213
icon
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1214
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1215
    ^self startGUIBuilderIcon subImageIn: (0@0 extent: (24@16))
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1216
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1217
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1218
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1219
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1220
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1221
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1222
iconAlignB
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1223
    "ImageEditor openOnClass:self andSelector:#iconAlignB"
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1224
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1225
    <resource: #image>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1226
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0 0 0 0 0 7 0 0 0 0 0 7 0 80 0 0 0 7 0 112 0 0 0 7 0 112 0 0 0 7 0 112 0 0 80 7 0 112 0 0 112 7 0 112 11 0 112 7 0 112 0 0 112 7 0 112 1 0 112 7 0 112 0 0 112 7 0 112 11 0 0 0 0 0 0 10 170 170 170 170 0 10 170 170 170 170 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]) ; colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color red:0.0 green:0.0 blue:49.9977)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 0 120 3 0 120 0 0 121 224 0 121 224 0 121 224 0 121 224 30 121 224 30 121 224 30 121 224 30 121 225 30 121 224 30 121 224 30 121 224 30 121 224 63 255 240 63 255 240 0 0 0 0 0 3 0 0 0]) ; yourself); yourself!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1227
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1228
iconAlignCenterH
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1229
    "ImageEditor openOnClass:self andSelector:#iconAlignCenterH"
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1230
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1231
    <resource: #image>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1232
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 84 0 0 0 5 80 84 170 170 170 165 80 85 85 89 85 85 80 85 85 42 21 85 90 85 84 170 133 85 88 85 82 170 161 85 80 85 74 170 168 85 80 85 69 85 85 85 80 85 85 85 85 85 88 84 0 0 0 5 80 84 170 170 170 165 80 85 85 89 85 85 88 85 85 42 21 85 80 85 84 170 133 85 80 85 82 170 161 85 80 85 74 170 168 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 88]) ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9977 blue:49.9977); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 31 255 192 31 255 224 15 255 224 0 248 0 1 252 0 3 254 0 7 255 0 7 255 0 0 0 0 31 255 192 31 255 224 15 255 224 0 248 0 1 252 0 3 254 0 7 255 0 3 255 0 0 0 0 0 0 0]) ; yourself); yourself!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1233
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1234
iconAlignCenterV
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1235
    "ImageEditor openOnClass:self andSelector:#iconAlignCenterV"
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1236
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1237
    <resource: #image>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1238
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 84 21 85 5 80 85 84 149 85 37 80 80 84 148 21 37 80 82 20 148 133 37 80 82 132 148 161 37 80 82 160 148 168 37 82 82 168 148 170 37 80 82 170 148 170 165 80 82 169 148 170 101 80 82 164 148 169 37 80 82 148 148 165 37 80 82 84 148 149 37 80 85 84 149 85 37 88 85 84 149 85 37 80 85 84 149 85 37 80 85 85 85 85 85 80 85 85 85 85 85 88 85 85 85 85 85 80 85 85 85 85 85 80]) ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9992 blue:49.9992); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 1 1 128 192 1 192 224 49 216 224 57 220 224 61 222 224 63 223 224 63 223 224 63 223 224 63 223 224 63 223 224 61 222 224 57 220 224 17 200 227 1 192 224 1 192 224 0 192 96 0 0 0 0 0 3 0 0 0]) ; yourself); yourself!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1239
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1240
iconAlignL
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1241
    "ImageEditor openOnClass:self andSelector:#iconAlignL"
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1242
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1243
    <resource: #image>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1244
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 0 0 0 2 128 0 0 0 0 2 128 0 0 0 0 2 133 85 85 0 9 2 135 255 255 0 0 2 128 0 0 0 0 2 128 0 0 0 0 2 128 0 0 0 0 2 128 0 0 0 0 2 133 85 85 80 0 2 135 255 255 240 0 2 128 0 0 0 5 2 128 0 0 0 0 2 128 0 0 0 0 2 128 0 0 0 0 2 133 85 0 0 0 2 135 255 0 0 0 2 128 0 0 0 0 2 128 0 0 0 0 0 0 0 0 0 5 0 0 0 0 0 0]) ; colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color red:0.0 green:0.0 blue:49.9992)); at:4 put:((Color grey:66.9993)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 24 0 0 31 255 128 31 255 128 31 255 128 31 255 128 24 0 0 24 0 0 31 255 224 31 255 224 31 255 224 31 255 224 24 0 0 24 0 0 31 248 0 31 248 0 31 248 0 31 248 0 24 0 0 0 0 0 0 0 0]) ; yourself); yourself!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1245
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1246
iconAlignLR
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1247
    "ImageEditor openOnClass:self andSelector:#iconAlignLR"
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1248
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1249
    <resource: #image>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1250
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 0 0 0 2 128 0 0 40 0 2 128 0 0 40 0 2 133 85 85 40 9 2 135 255 255 40 0 2 128 0 0 40 0 2 128 0 0 40 0 2 128 0 0 40 0 2 128 0 0 40 0 2 133 85 85 40 0 2 135 255 255 40 0 2 128 0 0 40 5 2 128 0 0 40 0 2 128 0 0 40 0 2 128 0 0 40 0 2 133 85 85 40 0 2 135 255 252 40 0 2 128 0 0 40 0 2 128 0 0 40 0 0 0 0 0 0 5 0 0 0 0 0 0]) ; colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color red:0.0 green:0.0 blue:49.9992)); at:4 put:((Color grey:66.9993)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 24 0 96 31 255 224 31 255 224 31 255 224 31 255 224 24 0 96 24 0 96 31 255 224 31 255 224 31 255 224 31 255 224 24 0 96 24 0 96 31 255 224 31 255 224 31 254 224 31 255 224 24 0 96 0 0 0 0 0 0]) ; yourself); yourself!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1251
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1252
iconAlignR
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1253
    "ImageEditor openOnClass:self andSelector:#iconAlignR"
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1254
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1255
    <resource: #image>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1256
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 40 0 0 0 0 0 40 0 0 5 85 85 40 9 0 7 255 255 40 0 0 0 0 0 40 0 0 0 0 0 40 0 0 0 0 0 40 0 0 0 0 0 40 0 0 85 85 85 40 0 0 127 255 255 40 0 0 0 0 0 40 5 0 0 0 0 40 0 0 0 0 0 40 0 0 0 0 0 40 0 0 0 5 85 40 0 0 0 7 255 40 0 0 0 0 0 40 0 0 0 0 0 40 0 0 0 0 0 0 5 0 0 0 0 0 0]) ; colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color red:0.0 green:0.0 blue:49.9992)); at:4 put:((Color grey:66.9993)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 96 7 255 224 7 255 224 7 255 224 7 255 224 0 0 96 0 0 96 31 255 224 31 255 224 31 255 224 31 255 224 0 0 96 0 0 96 0 127 224 0 127 224 0 127 224 0 127 224 0 0 96 0 0 0 0 0 0]) ; yourself); yourself!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1257
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1258
iconAlignT
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1259
    "ImageEditor openOnClass:self andSelector:#iconAlignT"
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1260
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1261
    <resource: #image>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1262
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 10 170 170 170 170 0 10 170 170 170 170 0 0 0 0 0 0 0 0 80 5 0 80 11 0 112 7 0 112 0 0 112 7 0 112 1 0 112 7 0 112 0 0 112 7 0 112 11 0 112 7 0 112 0 0 0 7 0 112 0 0 0 7 0 112 0 0 0 7 0 112 0 0 0 7 0 112 0 0 0 7 0 0 0 0 0 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]) ; colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color red:0.0 green:0.0 blue:49.9977)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 3 0 0 0 63 255 240 63 255 240 30 121 224 30 121 224 30 121 224 30 121 224 30 121 225 30 121 224 30 121 224 30 121 224 0 121 224 0 121 224 0 121 224 0 121 224 0 120 0 0 120 3 0 0 0 0 0 0 0 0 0]) ; yourself); yourself!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1263
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1264
iconAlignTB
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1265
    "ImageEditor openOnClass:self andSelector:#iconAlignTB"
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1266
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1267
    <resource: #image>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1268
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 10 170 170 170 170 0 10 170 170 170 170 0 0 0 0 0 0 0 0 80 5 0 80 7 0 112 7 0 112 0 0 112 7 0 112 0 0 112 7 0 112 0 0 112 7 0 112 8 0 112 7 0 112 0 0 112 7 0 112 1 0 112 7 0 112 0 0 112 7 0 112 0 0 112 7 0 64 0 0 0 0 0 0 0 10 170 170 170 170 0 10 170 170 170 170 0 0 0 0 0 0 0 0 0 0 0 0 8 0 0 0 0 0 0]) ; colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color red:0.0 green:0.0 blue:49.9977)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 3 0 0 0 63 255 240 63 255 240 30 121 224 30 121 225 30 121 224 30 121 224 30 121 224 30 121 224 30 121 224 30 121 224 30 121 225 30 121 225 30 121 160 30 121 224 63 255 240 63 255 242 0 0 0 0 0 0 0 0 0]) ; yourself); yourself! !
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1269
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  1270
!UIPainter methodsFor:'actions'!
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  1271
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  1272
accept
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1273
    "accept changes done to the specification. The component assigned to the
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1274
     specification will change immediately dependant on the attributes derived
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1275
     from the specification.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1276
    "
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1277
    |layout spec prop key layoutTool|
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  1278
166
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  1279
    self isLayoutToolSelected ifTrue:[
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1280
        layoutTool := self layoutTool.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1281
144
bca8b1953ee8 checkin from browser
ca
parents: 142
diff changeset
  1282
        (layout := layoutTool layout) notNil ifTrue:[
bca8b1953ee8 checkin from browser
ca
parents: 142
diff changeset
  1283
            layoutTool layoutType == #Extent ifTrue:[
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1284
                layoutTool layoutView == self painter topView ifTrue:[
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1285
                    layoutTool layoutView extent:layout
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1286
                ] ifFalse:[
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1287
                    self painter setExtent:layout
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1288
                ]
144
bca8b1953ee8 checkin from browser
ca
parents: 142
diff changeset
  1289
            ] ifFalse:[
149
e652608690b1 help ...
ca
parents: 144
diff changeset
  1290
                self painter setLayout:layout
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  1291
            ]
144
bca8b1953ee8 checkin from browser
ca
parents: 142
diff changeset
  1292
        ]
bca8b1953ee8 checkin from browser
ca
parents: 142
diff changeset
  1293
    ] ifFalse:[
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1294
        spec := self specTool specification.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1295
166
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  1296
        self isHelpToolSelected ifTrue:[
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1297
            self helpTool accept.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1298
            key  := self helpTool helpKey.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1299
            prop := treeView propertySelected.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1300
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1301
            prop notNil ifTrue:[
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1302
                prop spec activeHelpKey:key
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1303
            ].
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1304
            spec activeHelpKey:key.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1305
        ] ifFalse:[
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1306
            self painter updateFromSpec:spec.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1307
        ]
144
bca8b1953ee8 checkin from browser
ca
parents: 142
diff changeset
  1308
    ].
166
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  1309
    self modifiedChannel value:false.
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  1310
!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  1311
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  1312
cancel
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1313
    "cancel all changes done to the specification; reread attributes from the
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1314
     assigned component
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  1315
    "
328
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1316
    |spec key view|
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1317
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  1318
    self isModified ifTrue:[
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1319
        (spec := self painter specForSelection) notNil ifTrue:[
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1320
            key := spec activeHelpKey.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1321
        ].
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1322
        self helpTool helpKey:key.
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1323
        self specTool specification:spec.
328
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1324
        view := self layoutTool layoutView.
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1325
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1326
        self setViewInLayoutTool:view.
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1327
        spec class == DataSetSpec ifTrue:[
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1328
            view columnDescriptors:(spec columns)
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1329
        ].        
166
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  1330
        self modifiedChannel value:false.
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  1331
    ]
137
ca
parents: 136
diff changeset
  1332
!
ca
parents: 136
diff changeset
  1333
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1334
moveSelectionDown
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1335
    "move selected components down
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1336
    "
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1337
    self painter moveSelectionDown
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1338
!
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1339
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1340
moveSelectionLeft
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1341
    "move selected components left
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1342
    "
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1343
    self painter moveSelectionLeft
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1344
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1345
!
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1346
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1347
moveSelectionRight
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1348
    "move selected components right
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1349
    "
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1350
    self painter moveSelectionRight
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1351
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1352
!
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1353
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1354
moveSelectionUp
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1355
    "move selected components up
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1356
    "
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1357
    self painter moveSelectionUp
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1358
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1359
!
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  1360
328
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1361
openDataSetColumnEditor
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1362
    "opens a column editor
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1363
    "
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1364
    |cls aspect editor columns|
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1365
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1366
    cls := self resolveName:specClass.
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1367
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1368
    cls isNil ifTrue:[
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1369
        ^ self information:'no application class defined yet'
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1370
    ].
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1371
    aspect := self specTool specification columns.
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1372
    editor := DataSetBuilder new.
341
0f297824bcf6 set masterApplication for DataSetBuilder
ca
parents: 333
diff changeset
  1373
    editor masterApplication:self.
328
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1374
    editor columns:aspect fromView:(self layoutTool layoutView).
333
a2e23dea36bf change className to rowClassName
ca
parents: 328
diff changeset
  1375
    editor rowClassName:(self specTool specification rowClassName).
328
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1376
    editor openModal.
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1377
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1378
    editor hasChanged ifTrue:[
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1379
        self specTool specification columns:(editor columns).
333
a2e23dea36bf change className to rowClassName
ca
parents: 328
diff changeset
  1380
        self specTool specification rowClassName:(editor rowClassName).
328
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1381
        self modifiedChannel value:true.
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1382
    ].
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1383
!
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1384
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1385
openEditMenu
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1386
    "opens a menu editor on current widget
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1387
    "
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1388
    |cls aspect editor|
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1389
328
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1390
    cls := self resolveName:specClass.
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1391
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1392
    cls isNil ifTrue:[
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  1393
        ^ self information:'no application class defined yet'
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1394
    ].
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1395
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1396
    cls notNil ifTrue:[
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
  1397
        (aspect := self specTool specification menuSelector) notNil ifTrue:[
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1398
            aspect := aspect asSymbol
229
cabe3bd6fd74 openEditMenu changed
ca
parents: 222
diff changeset
  1399
        ] ifFalse:[
267
6feed486f1f1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 265
diff changeset
  1400
            "/ cg: q&d hack ...
6feed486f1f1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 265
diff changeset
  1401
229
cabe3bd6fd74 openEditMenu changed
ca
parents: 222
diff changeset
  1402
            aspect := treeView propertySelected.
cabe3bd6fd74 openEditMenu changed
ca
parents: 222
diff changeset
  1403
            aspect notNil ifTrue:[
245
d48281345935 better warning message
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
  1404
                Object errorSignal handle:[:ex |
271
ca85216907a4 better menu editing
Claus Gittinger <cg@exept.de>
parents: 268
diff changeset
  1405
                    aspect := nil.
245
d48281345935 better warning message
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
  1406
                ] do:[
d48281345935 better warning message
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
  1407
                    aspect := aspect view asMenu.
d48281345935 better warning message
Claus Gittinger <cg@exept.de>
parents: 233
diff changeset
  1408
                ]
271
ca85216907a4 better menu editing
Claus Gittinger <cg@exept.de>
parents: 268
diff changeset
  1409
            ].
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1410
        ].
229
cabe3bd6fd74 openEditMenu changed
ca
parents: 222
diff changeset
  1411
        
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1412
        editor := MenuEditor new.
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1413
        editor masterApplication:self.
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1414
        editor useHelpDictionary:(self helpTool dictionary).
271
ca85216907a4 better menu editing
Claus Gittinger <cg@exept.de>
parents: 268
diff changeset
  1415
        editor openModalOnClass:cls andSelector:aspect.
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  1416
        self helpTool updateList.
271
ca85216907a4 better menu editing
Claus Gittinger <cg@exept.de>
parents: 268
diff changeset
  1417
ca85216907a4 better menu editing
Claus Gittinger <cg@exept.de>
parents: 268
diff changeset
  1418
        editor selectorName ~= aspect ifTrue:[
ca85216907a4 better menu editing