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