UIPainter.st
author Claus Gittinger <cg@exept.de>
Sat, 21 Jul 2012 18:58:03 +0200
changeset 2898 c7f6c498df6a
parent 2883 bee1a24df6e4
child 2901 4c010c4a4166
permissions -rw-r--r--
category of:15 methods
cg@156
     1
"
tz@765
     2
 COPYRIGHT (c) 1995-1998 by eXept Software AG
sv@2217
     3
              All Rights Reserved
cg@156
     4
cg@156
     5
 This software is furnished under a license and may be used
cg@156
     6
 only in accordance with the terms of that license and with the
cg@156
     7
 inclusion of the above copyright notice.   This software may not
cg@156
     8
 be provided or otherwise made available to, or used by, any
cg@156
     9
 other person.  No title to or ownership of the software is
cg@156
    10
 hereby transferred.
cg@156
    11
"
cg@2023
    12
"{ Package: 'stx:libtool2' }"
ca@1391
    13
cg@2007
    14
ResourceSpecEditor subclass:#UIPainter
sv@2218
    15
	instanceVariableNames:'specSuperclassName treeView selectionPanel specTool layoutTool
cg@2243
    16
		helpTool painterView painter lastPort lastPage'
cg@2500
    17
	classVariableNames:'SelectionPanelClass UseViewScroller LastPort LastPage
cg@2500
    18
		DefaultEditToolBarVisible DefaultToolBarVisible'
sv@2218
    19
	poolDictionaries:''
sv@2218
    20
	category:'Interface-UIPainter'
cg@60
    21
!
cg@60
    22
ca@222
    23
SelectionInTreeView subclass:#TreeView
cg@2541
    24
	instanceVariableNames:'lastDrawnMaster canvasEventsDisabled windowSpec windowSpecClass
cg@2541
    25
		painter'
sv@2218
    26
	classVariableNames:''
sv@2218
    27
	poolDictionaries:''
sv@2218
    28
	privateIn:UIPainter
ca@222
    29
!
ca@222
    30
cg@60
    31
!UIPainter class methodsFor:'documentation'!
cg@60
    32
cg@156
    33
copyright
cg@156
    34
"
tz@765
    35
 COPYRIGHT (c) 1995-1998 by eXept Software AG
sv@2217
    36
              All Rights Reserved
cg@156
    37
cg@156
    38
 This software is furnished under a license and may be used
cg@156
    39
 only in accordance with the terms of that license and with the
cg@156
    40
 inclusion of the above copyright notice.   This software may not
cg@156
    41
 be provided or otherwise made available to, or used by, any
cg@156
    42
 other person.  No title to or ownership of the software is
cg@156
    43
 hereby transferred.
cg@156
    44
"
cg@156
    45
cg@156
    46
!
cg@156
    47
cg@60
    48
documentation
cg@60
    49
"
tz@765
    50
    The GUI Painter provides the user with a graphical user interface for building own 
tz@765
    51
    interfaces by interactively assembling widgets and defining the behavior of the widgets.
tz@765
    52
    The resulting interface specifications can be saved as methods on the application
tz@765
    53
    classes, typically subclasses of the class ApplicationModel. These specifications
tz@765
    54
    are used by the UIBuilder to generate the application window and its widgets when 
tz@765
    55
    opening the application.
cg@60
    56
cg@60
    57
    [start with:]
sv@2217
    58
        UIPainter open
ca@127
    59
cg@156
    60
    [author:]
sv@2217
    61
        Claus Gittinger, eXept Software AG
sv@2217
    62
        Claus Atzkern, eXept Software AG
sv@2217
    63
        Thomas Zwick, eXept Software AG
cg@156
    64
ca@127
    65
    [see also:]
sv@2217
    66
        UIBuilder
sv@2217
    67
        ApplicationModel
sv@2217
    68
        UISpecification
cg@2277
    69
cg@2277
    70
    [instance variables:]                                                  
cg@2277
    71
        isSpecOnlyPainter       true if this painter is for a spec only (as used by expecco),
cg@2277
    72
                                as opposed to a regular painter, which stores the spec in a class.
cg@2277
    73
                                A spec-only painter has no class to store additional specs (esp.
cg@2277
    74
                                menu- and tabSpecs) and should not offer postBuild and other
cg@2277
    75
                                callback functions.
cg@60
    76
"
ca@109
    77
! !
ca@109
    78
cg@2399
    79
!UIPainter class methodsFor:'initialization'!
cg@2399
    80
cg@2399
    81
initialize
cg@2399
    82
    SelectionPanelClass isNil ifTrue:[
cg@2399
    83
        SelectionPanelClass := UISelectionPanel
cg@2399
    84
    ].
cg@2399
    85
! !
cg@2399
    86
ca@109
    87
!UIPainter class methodsFor:'instance creation'!
ca@109
    88
ca@282
    89
openOnClass:aClass andSelector:aSelector
cg@1976
    90
    "open a GUI Painter on aClass and (windowSpec) aSelector"
cg@1976
    91
cg@1976
    92
    ^ self new openOnClass:aClass theNonMetaclass andSelector:aSelector
cg@60
    93
! !
cg@60
    94
ca@87
    95
!UIPainter class methodsFor:'ST-80 queries'!
ca@87
    96
ca@87
    97
preferenceFor:aSymbol
ca@282
    98
    "ST-80 compatible; always returns false
ca@282
    99
    "
ca@87
   100
    ^ false
ca@109
   101
ca@109
   102
ca@109
   103
! !
ca@109
   104
cg@2541
   105
!UIPainter class methodsFor:'defaults'!
cg@2541
   106
cg@2541
   107
defaultEditToolbarVisible
cg@2541
   108
    ^ DefaultEditToolBarVisible ? true
cg@2541
   109
!
tz@713
   110
tz@713
   111
defaultNameOfCanvas
tz@765
   112
    "returns the default name of the application"
tz@765
   113
cg@2208
   114
    ^ 'NewApplication'
sv@2217
   115
!
sv@2217
   116
cg@2541
   117
defaultToolbarVisible
cg@2541
   118
    ^ DefaultToolBarVisible ? true
cg@2541
   119
!
cg@2541
   120
sv@2218
   121
selectionPanelClass
sv@2218
   122
    ^ SelectionPanelClass
cg@2225
   123
cg@2225
   124
    "
cg@2225
   125
     UIPainter selectionPanelClass.
cg@2225
   126
     UIPainter selectionPanelClass:UISelectionPanel
cg@2225
   127
    "
sv@2218
   128
!
sv@2218
   129
sv@2217
   130
selectionPanelClass:something
sv@2217
   131
    "set the class used as selection panel.
sv@2217
   132
     this is UISelectionPanel as default"
sv@2217
   133
sv@2217
   134
    SelectionPanelClass := something.
cg@2225
   135
cg@2225
   136
    "
cg@2225
   137
     UIPainter selectionPanelClass:UISelectionPanel
cg@2225
   138
    "
tz@713
   139
! !
tz@713
   140
ca@193
   141
!UIPainter class methodsFor:'help specs'!
ca@193
   142
cg@1545
   143
flyByHelpSpec
cg@1545
   144
    <resource: #help>
cg@1545
   145
cg@2361
   146
    ^super flyByHelpSpec 
cg@2361
   147
        addPairsFrom:#(
cg@1545
   148
cg@1545
   149
#fileSave
cg@2198
   150
'Save Spec'
cg@2198
   151
cg@2336
   152
shadesOfRed
cg@2336
   153
'Red color tones'
cg@2336
   154
cg@2336
   155
shadesOfGreen
cg@2336
   156
'Green color tones'
cg@2336
   157
cg@2336
   158
shadesOfBlue
cg@2336
   159
'Blue color tones'
cg@2336
   160
cg@2336
   161
shadesOfCyan
cg@2336
   162
'Cyan color tones'
cg@2336
   163
cg@2336
   164
shadesOfMagenta
cg@2336
   165
'Magenta color tones'
cg@2336
   166
cg@2336
   167
shadesOfYellow
cg@2336
   168
'Yellow color tones'
cg@2336
   169
cg@2336
   170
shadesOfGray
cg@2336
   171
'Gray color tones'
cg@2336
   172
cg@2336
   173
openColorEditor
cg@2336
   174
'Open a color editor'
cg@2336
   175
cg@2336
   176
pickColorFromScreen
cg@2336
   177
'Pick a color from the screen'
cg@2336
   178
cg@2336
   179
recentlyUsedColors
cg@2336
   180
'Pick a recently used color'
cg@2336
   181
cg@2336
   182
useDefaultColorToggle
cg@2336
   183
'Toggle between default and explicit color'
cg@1545
   184
cg@2361
   185
);
cg@2361
   186
    declareAllFrom:self helpSpec
cg@1545
   187
!
cg@1545
   188
ca@193
   189
helpSpec
tz@743
   190
    "This resource specification was automatically generated
tz@743
   191
     by the UIHelpTool of ST/X."
tz@743
   192
tz@743
   193
    "Do not manually edit this!! If it is corrupted,
tz@743
   194
     the UIHelpTool may not be able to read the specification."
ca@295
   195
ca@193
   196
    "
tz@743
   197
     UIHelpTool openOnClass:UIPainter    
ca@295
   198
    "
ca@295
   199
tz@743
   200
    <resource: #help>
tz@743
   201
werner@1827
   202
    ^ super helpSpec addPairsFrom:#(
ca@193
   203
cg@934
   204
#align
cg@934
   205
'Widget alignment functions.'
cg@934
   206
tz@466
   207
#alignSelectionBottom
cg@2690
   208
'Aligns the selected widgets'' bottom edges with the bottom of the dominant widget.'
tz@466
   209
cg@2361
   210
#alignResizeSelectionBottom
cg@2690
   211
'Resize the selected widgets'' bottom edges to align them with the bottom of the dominant widget.'
cg@2361
   212
tz@466
   213
#alignSelectionCenterHor
cg@2690
   214
'Aligns the selected widgets'' centers vertically with the center of the dominant widget.'
tz@466
   215
tz@466
   216
#alignSelectionCenterVer
cg@2690
   217
'Aligns the selected widgets'' centers horizontally with the center of the dominant widget.'
tz@466
   218
tz@466
   219
#alignSelectionLeft
cg@2690
   220
'Aligns the selected widgets'' left edges with the left edge of the dominant widget.'
tz@466
   221
cg@2361
   222
#alignResizeSelectionLeft
cg@2690
   223
'Resize the selected widgets'' left edges to align them with the left edge of the dominant widget.'
cg@2361
   224
tz@466
   225
#alignSelectionLeftAndRight
cg@2690
   226
'Aligns the selected widgets'' left & right edges with the dominant widget.'
tz@466
   227
tz@466
   228
#alignSelectionRight
cg@2690
   229
'Aligns the selected widgets'' right edges with the right edge of the dominant widget.'
tz@466
   230
cg@2361
   231
#alignResizeSelectionRight
cg@2690
   232
'Resize the selected widgets'' right edges to align them with the right edge of the dominant widget.'
cg@2361
   233
tz@466
   234
#alignSelectionTop
cg@2690
   235
'Aligns the selected widgets'' top edges with the top edge of the dominant widget.'
tz@466
   236
cg@2361
   237
#alignResizeSelectionTop
cg@2690
   238
'Resize the selected widgets'' top edges to align them with the top edge of the dominant widget.'
cg@2361
   239
tz@466
   240
#alignSelectionTopAndBottom
cg@2690
   241
'Aligns the selected widgets'' top and bottom edges with the dominant widget.'
tz@466
   242
tz@466
   243
#centerSelectionHor
cg@2795
   244
'Centers the selected widgets horizontally within their containing widget.'
tz@466
   245
tz@466
   246
#centerSelectionVer
cg@2795
   247
'Centers the selected widgets vertically within their containing widget.'
tz@713
   248
tz@713
   249
#changePositionDown
cg@838
   250
'Moves the selected widget(s) towards the bottom.'
tz@713
   251
tz@713
   252
#changePositionLeft
cg@838
   253
'Moves the selected widget(s) towards the left.'
tz@713
   254
tz@713
   255
#changePositionRight
cg@838
   256
'Moves the selected widget(s) towards the right.'
tz@713
   257
tz@713
   258
#changePositionUp
cg@838
   259
'Moves the selected widget(s) towards the top.'
tz@713
   260
werner@1827
   261
#drawEdit
werner@1827
   262
''
werner@1827
   263
werner@1827
   264
#editBrowseViewClass
werner@1827
   265
'Opens a browser on the class of the selected widget.'
werner@1827
   266
tz@713
   267
#editDimensionCopyExtent
cg@924
   268
'Copies the extent of the selected widget.'
tz@713
   269
tz@713
   270
#editDimensionCopyLayout
cg@924
   271
'Copies the layout of the selected widget.'
tz@713
   272
tz@713
   273
#editDimensionDefaultExtent
cg@924
   274
'Sets the selected widget(s) extent to their default.'
tz@713
   275
tz@713
   276
#editDimensionDefaultHeight
cg@924
   277
'Sets the selected widget(s) height to their default.'
tz@713
   278
tz@713
   279
#editDimensionDefaultWidth
cg@924
   280
'Sets the selected widget(s) width to their default.'
tz@713
   281
tz@713
   282
#editDimensionPasteExtent
cg@924
   283
'Sets the extent of the selected widget(s) to the last copied extent.'
tz@713
   284
tz@713
   285
#editDimensionPasteHeight
cg@924
   286
'Sets the height of the selected widget(s) to the height of the last copied layout/extent.'
tz@713
   287
tz@713
   288
#editDimensionPasteLayout
cg@924
   289
'Sets the layout of the selected widget(s) to the last copied layout.'
tz@713
   290
tz@713
   291
#editDimensionPasteWidth
cg@924
   292
'Sets the width of the selected widget(s) to the width of the last copied layout/extent.'
tz@713
   293
tz@724
   294
#editInspectSpec
tz@724
   295
'Opens an inspector on the spec of the selected widget.'
tz@724
   296
tz@755
   297
#editInspectView
cg@1742
   298
'Opens an inspector on the selected widget.'
tz@755
   299
tz@743
   300
#editOpenSpecDocumentation
tz@743
   301
'Opens the documentation of the selected widget.'
tz@743
   302
werner@1827
   303
#fileBrowseAspectMethods
cg@2540
   304
'Opens a System Browser on the application''s aspect methods.'
werner@1827
   305
cg@1742
   306
#fileBrowseClass
cg@2540
   307
'Open a System Browser on the application''s class.'
cg@1742
   308
tz@498
   309
#fileLoad
cg@1032
   310
'Opens a dialog to load a window specification from a classes spec method.'
tz@498
   311
tz@533
   312
#fileLoadSubspec
cg@924
   313
'Opens a dialog to load a sub specification from a classes windowSpec method.'
tz@533
   314
tz@498
   315
#fileNew
tz@713
   316
'Creates a new window spec.'
tz@498
   317
tz@498
   318
#filePickAnInterface
cg@924
   319
'Select a view on the screen, generate a window spec for it and edit this spec.'
tz@498
   320
tz@498
   321
#fileSave
cg@924
   322
'Saves the window spec in the current class (as spec method).'
tz@713
   323
tz@713
   324
#fileSaveAs
cg@838
   325
'Opens a dialog to select class and selector for saving the window spec.'
tz@713
   326
tz@713
   327
#fileShowWindowSpec
tz@713
   328
'Opens a Workspace showing the current window spec.'
tz@713
   329
tz@713
   330
#generateAspectMethods
tz@713
   331
'Generates aspect methods for defined aspect selectors of the widgets.'
tz@713
   332
tz@713
   333
#generateHookMethods
tz@713
   334
'Generates startup/release methods. (#closeRequest, #postBuildWith:, #postOpenWith:)'
tz@713
   335
sv@2310
   336
#group
sv@2310
   337
''
sv@2310
   338
tz@755
   339
#helpExamples
cg@935
   340
'Show some examples uses of the GUI Painter.'
tz@755
   341
tz@755
   342
#helpFunctions
cg@935
   343
'Show the documentation on the GUI Painters menu and button functions.'
tz@755
   344
tz@755
   345
#helpLayoutTool
cg@935
   346
'Show the Layout Tools documentation.'
tz@755
   347
tz@755
   348
#helpSelectedWidget
cg@935
   349
'Show the documentation of the selected widget.'
cg@935
   350
cg@935
   351
#helpTutorial
cg@935
   352
'Show the GUI Painters documentation.'
tz@755
   353
cg@924
   354
#historyMenuItem
cg@924
   355
'Edit this windowSpec.'
cg@924
   356
tz@713
   357
#moveWidgetDown
cg@2500
   358
'Moves the selected widget down in the list (brings it to the front).'
tz@713
   359
tz@713
   360
#moveWidgetInto
tz@713
   361
'Moves the selected widget into next widget as child widget.'
tz@713
   362
tz@713
   363
#moveWidgetOut
tz@713
   364
'Moves the selected widget out of its parent widget.'
tz@713
   365
tz@713
   366
#moveWidgetUp
cg@2500
   367
'Moves the selected widget up in the list (brings it to the back).'
tz@466
   368
tz@466
   369
#pasteBuffer
cg@838
   370
'Pastes the widgets of the clipboard at the current mouse position.'
tz@466
   371
tz@466
   372
#pasteWithLayout
cg@2370
   373
'Pastes the widgets of the clipboard without changing their layouts.'
tz@713
   374
werner@1827
   375
#referToCOnfigDatabase
werner@1827
   376
''
werner@1827
   377
werner@1827
   378
#settingsAspectsAsInstances
werner@1827
   379
'Generate aspects as instance variables (or bindings, if off).'
werner@1827
   380
tz@713
   381
#settingsCanvas
tz@713
   382
'Shows or hides the canvas window.'
tz@713
   383
tz@713
   384
#settingsGallery
tz@713
   385
'Shows or hides the gallery window.'
tz@713
   386
sv@2294
   387
#settingsGenerateCommentedCode
sv@2294
   388
''
sv@2294
   389
tz@713
   390
#settingsGridManager
cg@1032
   391
'Opens a dialog to toggle grid display or to change the grids spacing.'
tz@713
   392
tz@713
   393
#settingsRedefineAspectMethods
cg@924
   394
'Toggles the permission to overwrite existing aspect methods.'
cg@924
   395
tz@743
   396
#settingsTranscriptHelp
cg@924
   397
'Toggles display of help texts (after opening a new GUI Painter).'
tz@743
   398
tz@713
   399
#settingsUndoManager
cg@838
   400
'Opens a dialog to undo modifications.'
ca@287
   401
cg@2690
   402
#showGrid
cg@2690
   403
'Raster zeigen'
cg@2690
   404
cg@2692
   405
#alignToGrid
cg@2690
   406
'Am Raster ausrichten'
cg@2690
   407
sv@2310
   408
#sortItems
sv@2310
   409
'Sort the selected items by position (left to right, top to bottom)'
sv@2310
   410
tz@466
   411
#spreadSelectionHor
cg@1862
   412
'Sets the horizontal spaces between the selected widgets to the same value.'
ca@287
   413
ca@194
   414
#spreadSelectionVer
cg@1862
   415
'Sets the vertical spaces between the selected widgets to the same value.'
tz@713
   416
tz@713
   417
#testGeometryTestMode
cg@924
   418
'Toggles geometry test mode (to define ratios of variable panels and top-window dimension).'
tz@498
   419
tz@498
   420
#testStartApplication
cg@838
   421
'Starts the application with the current window spec.'
ca@194
   422
cg@2336
   423
shadesOfRed
cg@2336
   424
'Red color tones'
cg@2336
   425
cg@2336
   426
shadesOfGreen
cg@2336
   427
'Green color tones'
cg@2336
   428
cg@2336
   429
shadesOfBlue
cg@2336
   430
'Blue color tones'
cg@2336
   431
cg@2336
   432
shadesOfCyan
cg@2336
   433
'Cyan color tones'
cg@2336
   434
cg@2336
   435
shadesOfMagenta
cg@2336
   436
'Magenta color tones'
cg@2336
   437
cg@2336
   438
shadesOfYellow
cg@2336
   439
'Yellow color tones'
cg@2336
   440
cg@2336
   441
shadesOfGray
cg@2336
   442
'Gray color tones'
cg@2336
   443
cg@2336
   444
openColorEditor
cg@2336
   445
'Open a color editor'
cg@2336
   446
cg@2336
   447
pickColorFromScreen
cg@2336
   448
'Pick a color from the screen'
cg@2336
   449
cg@2336
   450
recentlyUsedColors
cg@2336
   451
'Pick a recently used color'
cg@2336
   452
cg@2336
   453
useDefaultColorToggle
cg@2336
   454
'Toggle between default and explicit color'
cg@2336
   455
ca@193
   456
)
cg@2795
   457
cg@2795
   458
    "Modified: / 28-07-2010 / 10:02:50 / cg"
ca@193
   459
! !
ca@193
   460
ca@297
   461
!UIPainter class methodsFor:'helpers'!
ca@297
   462
ca@368
   463
convertString:aString maxLineSize:maxCharactersPerLine skipLineFeed:skipLineFeed
ca@297
   464
    "converts a string to a string collection with maximum characters
ca@297
   465
     per line
ca@297
   466
    "
ca@297
   467
    |stream
sv@2217
   468
        max     "{ Class:SmallInteger }"
sv@2217
   469
        size    "{ Class:SmallInteger }"
sv@2217
   470
        start   "{ Class:SmallInteger }"
sv@2217
   471
        stop    "{ Class:SmallInteger }"
sv@2217
   472
        cpySz   "{ Class:SmallInteger }"
sv@2217
   473
        lnSz    "{ Class:SmallInteger }"
sv@2217
   474
        atBeginOfLine|
ca@297
   475
ca@297
   476
    maxCharactersPerLine < 20 ifFalse:[max := maxCharactersPerLine - 1]
sv@2217
   477
                               ifTrue:[max := 20].
ca@297
   478
ca@297
   479
    (size := aString size) <= max ifTrue:[
sv@2217
   480
        ^ aString
ca@297
   481
    ].
ca@297
   482
    start  := 1.
ca@297
   483
    lnSz   := 0.
ca@297
   484
    stream := (String new:size) writeStream.
ca@297
   485
cg@542
   486
    atBeginOfLine := true.
cg@542
   487
ca@297
   488
    [start <= size] whileTrue:[
sv@2217
   489
        (start := aString indexOfNonSeparatorStartingAt:start) == 0 ifTrue:[
sv@2217
   490
            ^ stream contents
sv@2217
   491
        ].
sv@2217
   492
        (aString at:start) == $\ ifTrue:[
sv@2217
   493
            skipLineFeed ifFalse:[
sv@2217
   494
                stream nextPut:$\
sv@2217
   495
            ].
sv@2217
   496
            start := start + 1.
sv@2217
   497
            stream cr.
sv@2217
   498
            start := start + 1.
sv@2217
   499
            lnSz := 0.
sv@2217
   500
        ] ifFalse:[
sv@2217
   501
            (stop := aString indexOfSeparatorStartingAt:start) == 0 ifTrue:[
sv@2217
   502
                stop := size + 1
sv@2217
   503
            ].
sv@2217
   504
            (aString at:(stop - 1)) == $\ ifTrue:[
sv@2217
   505
                stop := stop - 1
sv@2217
   506
            ].
sv@2217
   507
            cpySz := stop - start.
sv@2217
   508
sv@2217
   509
            lnSz == 0 ifFalse:[
sv@2217
   510
                (lnSz := lnSz + cpySz) >= max ifTrue:[stream cr.    lnSz := cpySz. atBeginOfLine := true. ]
sv@2217
   511
                                             ifFalse:[stream space. lnSz := lnSz + 1]
sv@2217
   512
            ] ifTrue:[
sv@2217
   513
                lnSz := cpySz
sv@2217
   514
            ].
sv@2217
   515
            stream nextPutAll:aString startingAt:start to:(stop - 1).
sv@2217
   516
            start := stop.
sv@2217
   517
        ]
ca@297
   518
    ].
ca@297
   519
    ^ stream contents
cg@542
   520
cg@542
   521
    "Modified: / 1.2.1998 / 14:42:56 / cg"
ca@297
   522
! !
ca@297
   523
tz@735
   524
!UIPainter class methodsFor:'image specs'!
tz@735
   525
cg@1883
   526
arrowDown
cg@1883
   527
    "This resource specification was automatically generated
cg@1883
   528
     by the ImageEditor of ST/X."
cg@1883
   529
cg@1883
   530
    "Do not manually edit this!! If it is corrupted,
cg@1883
   531
     the ImageEditor may not be able to read the specification."
cg@1883
   532
cg@1883
   533
    "
cg@1883
   534
     self arrowDown inspect
cg@1883
   535
     ImageEditor openOnClass:self andSelector:#arrowDown
cg@1883
   536
     Icon flushCachedIcons
cg@1883
   537
    "
cg@1883
   538
cg@1883
   539
    <resource: #image>
cg@1883
   540
cg@1883
   541
    ^Icon
cg@2268
   542
        constantNamed:'UIPainter class arrowDown'
cg@1883
   543
        ifAbsentPut:[(Depth1Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O? ?>C@XNC <^C;8O? ?>C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@1883
   544
@@@@@@@@@@@? A<@C @D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
cg@1883
   545
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
cg@1883
   546
!
cg@1883
   547
cg@1883
   548
arrowLeft
cg@1883
   549
    "This resource specification was automatically generated
cg@1883
   550
     by the ImageEditor of ST/X."
cg@1883
   551
cg@1883
   552
    "Do not manually edit this!! If it is corrupted,
cg@1883
   553
     the ImageEditor may not be able to read the specification."
cg@1883
   554
cg@1883
   555
    "
cg@1883
   556
     self arrowLeft inspect
cg@1883
   557
     ImageEditor openOnClass:self andSelector:#arrowLeft
cg@1883
   558
     Icon flushCachedIcons
cg@1883
   559
    "
cg@1883
   560
cg@1883
   561
    <resource: #image>
cg@1883
   562
cg@1883
   563
    ^Icon
cg@2268
   564
        constantNamed:'UIPainter class arrowLeft'
cg@1883
   565
        ifAbsentPut:[(Depth1Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O7 >^C18NG <^C98O7 ?>C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@H@A @N@A8@C PF@@H@@@@@@@@a') ; yourself); yourself]
cg@1883
   566
!
cg@1883
   567
cg@1883
   568
arrowRight
cg@1883
   569
    "This resource specification was automatically generated
cg@1883
   570
     by the ImageEditor of ST/X."
cg@1883
   571
cg@1883
   572
    "Do not manually edit this!! If it is corrupted,
cg@1883
   573
     the ImageEditor may not be able to read the specification."
cg@1883
   574
cg@1883
   575
    "
cg@1883
   576
     self arrowRight inspect
cg@1883
   577
     ImageEditor openOnClass:self andSelector:#arrowRight
cg@1883
   578
     Icon flushCachedIcons
cg@1883
   579
    "
cg@1883
   580
cg@1883
   581
    <resource: #image>
cg@1883
   582
cg@1883
   583
    ^Icon
cg@2268
   584
        constantNamed:'UIPainter class arrowRight'
cg@1883
   585
        ifAbsentPut:[(Depth1Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O_ <>C18OC <^C38O_ ?>C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@ @C@@NA@<@C @L@@ @@@@@@@@a') ; yourself); yourself]
cg@1883
   586
!
cg@1883
   587
cg@1883
   588
arrowUp
cg@1883
   589
    "This resource specification was automatically generated
cg@1883
   590
     by the ImageEditor of ST/X."
cg@1883
   591
cg@1883
   592
    "Do not manually edit this!! If it is corrupted,
cg@1883
   593
     the ImageEditor may not be able to read the specification."
cg@1883
   594
cg@1883
   595
    "
cg@1883
   596
     self arrowUp inspect
cg@1883
   597
     ImageEditor openOnClass:self andSelector:#arrowUp
cg@1883
   598
     Icon flushCachedIcons
cg@1883
   599
    "
cg@1883
   600
cg@1883
   601
    <resource: #image>
cg@1883
   602
cg@1883
   603
    ^Icon
cg@2268
   604
        constantNamed:'UIPainter class arrowUp'
cg@1883
   605
        ifAbsentPut:[(Depth1Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O? >>C18NC 0FC?8O? ?>C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A@@NG1<@O8@@@@@@@@@@AP@a') ; yourself); yourself]
cg@1883
   606
!
cg@1883
   607
cg@2210
   608
browseActionImage
cg@2210
   609
    "This resource specification was automatically generated
cg@2210
   610
     by the ImageEditor of ST/X."
cg@2210
   611
cg@2210
   612
    "Do not manually edit this!! If it is corrupted,
cg@2210
   613
     the ImageEditor may not be able to read the specification."
cg@2210
   614
cg@2210
   615
    "
cg@2210
   616
     self browseActionImage inspect
cg@2210
   617
     ImageEditor openOnClass:self andSelector:#browseActionImage
cg@2210
   618
     Icon flushCachedIcons
cg@2210
   619
    "
cg@2210
   620
cg@2210
   621
    <resource: #image>
cg@2210
   622
cg@2210
   623
    ^Icon
cg@2268
   624
        constantNamed:'UIPainter class browseActionImage'
cg@2210
   625
        ifAbsentPut:[(Depth8Image new) width: 11; height: 12; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@2210
   626
R@@@RT%RST1LTD9H@D%IT%MRSD1PS$!!RT$5RUEILT%INT%UVT%YWU%IVUUIHT%!!YV%-ZVU!!RWD!!MT%Y[@E-VT%5\RD1RU%,@V5YRWU1HT%!!YV%-ZVU!!RWEIU
cg@2210
   627
U%IVU5YRU%URZ%IR@EITT ART&,@@@@@T%MR@@@@@@@@@@@@T @@@@@@') ; colorMapFromArray:#[255 248 248 63 144 224 64 152 232 79 160 232 64 152 224 64 144 224 63 136 224 48 128 216 48 120 216 47 112 216 47 112 208 32 104 208 32 96 208 31 88 200 16 88 200 16 80 200 15 72 192 15 64 192 0 64 192 0 56 184 0 56 176 0 48 160 143 200 248 128 200 248 127 192 248 112 184 248 111 176 248 96 168 248 95 160 248 80 152 248 79 144 248 64 128 248 63 120 248 48 112 248 32 104 248 31 96 248 16 88 248 15 80 248 0 72 248 0 64 240 0 48 168 112 176 248 111 168 248 96 160 248 95 152 248 80 144 248 79 136 248 63 128 248 48 120 248 47 112 248 15 72 248 0 48 176 95 168 232 191 224 248 191 216 248 176 208 248 175 208 248 175 200 248 160 200 248 160 192 248 159 192 248 159 184 248 144 184 248 144 176 248 143 168 248 128 168 248 128 160 248 127 160 248 127 152 240 31 72 176 111 168 232 127 160 216 207 216 240 240 240 248 240 232 240 63 88 176 239 232 240 240 240 240 48 88 176 96 168 224 224 224 232 96 160 224 240 144 24 255 248 48 255 248 96 255 248 24 240 208 24 255 248 152 255 248 88 255 248 136 255 248 176 255 248 200 48 80 176 223 216 224 96 152 224 96 152 216 95 152 216 48 120 208 80 144 208 80 136 208 79 128 200 79 120 200 79 120 192 64 112 192 64 104 184 63 104 184 63 96 184 15 56 160]; mask:((Depth1Image new) width: 11; height: 12; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A@@N@F;@?>A?0G>@O8A?0O? [,@N@@P@') ; yourself); yourself]
cg@2210
   628
!
cg@2210
   629
cg@2157
   630
defaultIcon
cg@2175
   631
    <resource: #programImage>
cg@2175
   632
cg@2157
   633
    ^ ToolbarIconLibrary startUIPainterIcon
cg@2157
   634
cg@2157
   635
    "Created: / 10-02-2007 / 14:45:56 / cg"
cg@2175
   636
    "Modified: / 17-09-2007 / 11:36:33 / cg"
cg@2157
   637
!
cg@2157
   638
sv@2284
   639
editTableIcon
sv@2284
   640
    <resource: #programImage>
sv@2284
   641
sv@2284
   642
    ^ SystemBrowser tableColumnsIcon
sv@2284
   643
!
sv@2284
   644
sv@2284
   645
helpIcon
sv@2284
   646
    <resource: #programImage>
sv@2284
   647
sv@2284
   648
    ^ Icon helpIcon
sv@2284
   649
!
sv@2284
   650
cg@2500
   651
hideToolBarIcon
cg@2500
   652
    <resource: #programImage>
cg@2500
   653
cg@2500
   654
    ^ ToolbarIconLibrary hideToolBarIcon
cg@2500
   655
!
cg@2500
   656
tz@735
   657
iconAlignB
tz@743
   658
    "This resource specification was automatically generated
tz@743
   659
     by the ImageEditor of ST/X."
tz@743
   660
tz@778
   661
    "Do not manually edit this!! If it is corrupted,
tz@743
   662
     the ImageEditor may not be able to read the specification."
tz@743
   663
tz@735
   664
    "
cg@2268
   665
     self iconAlignB inspect
tz@743
   666
     ImageEditor openOnClass:self andSelector:#iconAlignB
cg@2268
   667
     Icon flushCachedIcons
tz@735
   668
    "
tz@735
   669
tz@735
   670
    <resource: #image>
tz@735
   671
tz@735
   672
    ^Icon
cg@2268
   673
        constantNamed:'UIPainter class iconAlignB'
cg@2268
   674
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@2268
   675
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@G@@@@@@@G@E@@@@@G@G@@@@@G@G@@@@@G@G@@@E@G@G@@@G@G@G@K@G@G@G@@@G@G@G@A@G@G@G@@
cg@2268
   676
@G@G@G@K@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@G C@G @@G'' @G'' @G'' @G'' G'''' G'''' G'''' G''''!!G'''' G'''' G'''' G'''' O??0O??0@@@@@@@C@@@@') ; yourself); yourself]
tz@778
   677
!
tz@735
   678
tz@735
   679
iconAlignL
tz@743
   680
    "This resource specification was automatically generated
tz@743
   681
     by the ImageEditor of ST/X."
tz@743
   682
tz@778
   683
    "Do not manually edit this!! If it is corrupted,
tz@743
   684
     the ImageEditor may not be able to read the specification."
tz@743
   685
tz@735
   686
    "
cg@2268
   687
     self iconAlignL inspect
tz@743
   688
     ImageEditor openOnClass:self andSelector:#iconAlignL
cg@2268
   689
     Icon flushCachedIcons
tz@735
   690
    "
tz@735
   691
tz@735
   692
    <resource: #image>
tz@735
   693
tz@735
   694
    ^Icon
cg@2268
   695
        constantNamed:'UIPainter class iconAlignL'
cg@2268
   696
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@2268
   697
@@@@@@@@@@@@@@@@@(@@@@@@@(@@@@@@@(UUUP@I@(_??0@@@(@@@@@@@(@@@@@@@(@@@@@@@(@@@@@@@(UUUU@@@(_???@@@(@@@@@E@(@@@@@@@(@@@@@@
cg@2268
   698
@(@@@@@@@(UU@@@@@(_?@@@@@(@@@@@@@(@@@@@@@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@F@@@G?>@G?>@G?>@G?>@F@@@F@@@G?? G?? G?? G?? F@@@F@@@G? @G? @G? @G? @F@@@@@@@@@@@') ; yourself); yourself]
tz@778
   699
!
tz@735
   700
tz@735
   701
iconAlignLR
tz@743
   702
    "This resource specification was automatically generated
tz@743
   703
     by the ImageEditor of ST/X."
tz@743
   704
tz@785
   705
    "Do not manually edit this!! If it is corrupted,
tz@743
   706
     the ImageEditor may not be able to read the specification."
tz@743
   707
tz@735
   708
    "
cg@2268
   709
     self iconAlignLR inspect
tz@743
   710
     ImageEditor openOnClass:self andSelector:#iconAlignLR
cg@2268
   711
     Icon flushCachedIcons
tz@735
   712
    "
tz@735
   713
tz@735
   714
    <resource: #image>
tz@735
   715
tz@735
   716
    ^Icon
cg@2268
   717
        constantNamed:'UIPainter class iconAlignLR'
cg@2268
   718
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@2268
   719
@@@@@@@@@@@@@@@@@(@@@B @@(@@@B @@(UUUR I@(_??2 @@(@@@B @@(@@@B @@(@@@B @@(@@@B @@(UUUR @@(_??2 @@(@@@B E@(@@@B @@(@@@B @
cg@2268
   720
@(@@@B @@(UUUR @@(_??B @@(@@@B @@(@@@B @@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@F@A G?? G?? G?? G?? F@A F@A G?? G?? G?? G?? F@A F@A G?? G?? G?; G?? F@A @@@@@@@@') ; yourself); yourself]
tz@785
   721
!
tz@735
   722
tz@735
   723
iconAlignR
tz@743
   724
    "This resource specification was automatically generated
tz@743
   725
     by the ImageEditor of ST/X."
tz@743
   726
tz@778
   727
    "Do not manually edit this!! If it is corrupted,
tz@743
   728
     the ImageEditor may not be able to read the specification."
tz@743
   729
tz@735
   730
    "
cg@2268
   731
     self iconAlignR inspect
tz@743
   732
     ImageEditor openOnClass:self andSelector:#iconAlignR
cg@2268
   733
     Icon flushCachedIcons
tz@735
   734
    "
tz@735
   735
tz@735
   736
    <resource: #image>
tz@735
   737
tz@735
   738
    ^Icon
cg@2268
   739
        constantNamed:'UIPainter class iconAlignR'
cg@2268
   740
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@2268
   741
@@@@@@@@@@@@@@@@@@@@@B @@@@@@B @@@UUUR I@@_??2 @@@@@@B @@@@@@B @@@@@@B @@@@@@B @@EUUUR @@G???2 @@@@@@B E@@@@@B @@@@@@B @
cg@2268
   742
@@@@@B @@@@EUR @@@@G?2 @@@@@@B @@@@@@B @@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@A A?? A?? A?? A?? @@A @@A G?? G?? G?? G?? @@A @@A @G? @G? @G? @G? @@A @@@@@@@@') ; yourself); yourself]
ca@1432
   743
!
tz@735
   744
tz@735
   745
iconAlignT
tz@743
   746
    "This resource specification was automatically generated
tz@743
   747
     by the ImageEditor of ST/X."
tz@743
   748
tz@778
   749
    "Do not manually edit this!! If it is corrupted,
tz@743
   750
     the ImageEditor may not be able to read the specification."
tz@743
   751
tz@735
   752
    "
cg@2268
   753
     self iconAlignT inspect
tz@743
   754
     ImageEditor openOnClass:self andSelector:#iconAlignT
cg@2268
   755
     Icon flushCachedIcons
tz@735
   756
    "
tz@735
   757
tz@735
   758
    <resource: #image>
tz@735
   759
tz@735
   760
    ^Icon
cg@2268
   761
        constantNamed:'UIPainter class iconAlignT'
cg@2268
   762
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@2268
   763
@@@@@@@@@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@E@E@E@K@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@K@G@G@G@@@@@G@G@@@@@G@G@@@@@G@G@@
cg@2268
   764
@@@G@G@@@@@G@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@C@@@@O??0O??0G'''' G'''' G'''' G'''' G''''!!G'''' G'''' G'''' @G'' @G'' @G'' @G'' @G @@G C@@@@@@@@@@@@') ; yourself); yourself]
tz@778
   765
!
tz@735
   766
tz@735
   767
iconAlignTB
tz@743
   768
    "This resource specification was automatically generated
tz@743
   769
     by the ImageEditor of ST/X."
tz@743
   770
tz@778
   771
    "Do not manually edit this!! If it is corrupted,
tz@743
   772
     the ImageEditor may not be able to read the specification."
tz@743
   773
tz@735
   774
    "
cg@2268
   775
     self iconAlignTB inspect
tz@743
   776
     ImageEditor openOnClass:self andSelector:#iconAlignTB
cg@2268
   777
     Icon flushCachedIcons
tz@735
   778
    "
tz@735
   779
tz@735
   780
    <resource: #image>
tz@735
   781
tz@735
   782
    ^Icon
cg@2268
   783
        constantNamed:'UIPainter class iconAlignTB'
cg@2268
   784
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@2268
   785
@@@@@@@A@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@E@E@E@G@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@H@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@@
cg@2268
   786
@G@G@D@@@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@H@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@C@@@@O??0O??0G'''' G''''!!G'''' G'''' G'''' G'''' G'''' G'''' G''''!!G''''!!G''& G'''' O??0O??2@@@@@@@@@@@@') ; yourself); yourself]
cg@1862
   787
!
cg@1862
   788
cg@1862
   789
iconCenterH
cg@1862
   790
    "This resource specification was automatically generated
cg@1862
   791
     by the ImageEditor of ST/X."
cg@1862
   792
cg@1862
   793
    "Do not manually edit this!! If it is corrupted,
cg@1862
   794
     the ImageEditor may not be able to read the specification."
cg@1862
   795
cg@1862
   796
    "
cg@1862
   797
     self iconCenterH inspect
cg@1862
   798
     ImageEditor openOnClass:self andSelector:#iconCenterH
cg@1862
   799
     Icon flushCachedIcons
cg@1862
   800
    "
cg@1862
   801
cg@1862
   802
    <resource: #image>
cg@1862
   803
cg@1862
   804
    ^Icon
cg@2268
   805
        constantNamed:'UIPainter class iconCenterH'
cg@1862
   806
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@1862
   807
@@@@@@@@@@@@@@@@@(@J@B @@(@J@B @@(UZUR @@(?:?R @@(@J@B @@(@J@B @@(@J@B @@@@J@@@@@EUZUU@@@O?:?=@@@@@J@@@@@(@J@B @@(@J@B @
cg@1862
   808
@(@J@B @@(EZUB@@@(O:=B @@(@J@B @@(@J@B @@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@C@@A?>@A?>@A?>@A?>@@C@@@C@@G?? G?? G?? G??#@C@@@C@C@?<@@?<A@?<@@?<@@C@@@@@A@@@@') ; yourself); yourself]
cg@1862
   809
!
cg@1862
   810
cg@1862
   811
iconCenterHInFrame
cg@1862
   812
    "This resource specification was automatically generated
cg@1862
   813
     by the ImageEditor of ST/X."
cg@1862
   814
cg@1862
   815
    "Do not manually edit this!! If it is corrupted,
cg@1862
   816
     the ImageEditor may not be able to read the specification."
cg@1862
   817
cg@1862
   818
    "
cg@1862
   819
     self iconCenterHInFrame inspect
cg@1862
   820
     ImageEditor openOnClass:self andSelector:#iconCenterHInFrame
cg@1862
   821
     Icon flushCachedIcons
cg@1862
   822
    "
cg@1862
   823
cg@1862
   824
    <resource: #image>
cg@1862
   825
cg@1862
   826
    ^Icon
cg@2268
   827
        constantNamed:'UIPainter class iconCenterHInFrame'
cg@1862
   828
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@1862
   829
@@@@@@@@J******@H@@@@@B@HL@@@CB@H8UUUR2@HH???RB@H8@@@B2@HH@@@BB@H8@@@B2@H@@@@@B@HEUUUUB@HO???=B@H@@@@@B@H8@@@@2@HH@@@@B@
cg@1862
   830
H8@@@@2@HHEUUBB@H8O?=B2@HL@@@CB@H@@@@@B@J******@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@_??8P@@HW??(U?>(U?>(U?>(T@@(T@@(W??(W??(W??(W??+T@@(T@@+T?<(T?<)T?<(W??(P@@H_??9@@@@') ; yourself); yourself]
cg@1862
   831
!
cg@1862
   832
cg@1862
   833
iconCenterV
cg@1862
   834
    "This resource specification was automatically generated
cg@1862
   835
     by the ImageEditor of ST/X."
cg@1862
   836
cg@1862
   837
    "Do not manually edit this!! If it is corrupted,
cg@1862
   838
     the ImageEditor may not be able to read the specification."
cg@1862
   839
cg@1862
   840
    "
cg@1862
   841
     self iconCenterV inspect
cg@1862
   842
     ImageEditor openOnClass:self andSelector:#iconCenterV
cg@1862
   843
     Icon flushCachedIcons
cg@1862
   844
    "
cg@1862
   845
cg@1862
   846
    <resource: #image>
cg@1862
   847
cg@1862
   848
    ^Icon
cg@2268
   849
        constantNamed:'UIPainter class iconCenterV'
cg@1862
   850
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@1862
   851
@@@@@@@@@@@@@@@@@@@@@@@@B**@J*(@B**MJ*(@@@@M@@@@@@@M@M@@@M@M@M@@@M@M@M@@@M@M@M@@B*****(@B*****(@@M@M@M@@@M@M@M@@@E@M@M@@
cg@1862
   852
@@@M@E@@@@@M@@@@B**EJ*(@B(*@J*(@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@G @@G @@G'' G''''!!G'''' G'''' G'''' O??0O??0G'''' G'''' G'''' G'''' @G''#@G @@G C@@@@@@@@@@@@') ; yourself); yourself]
cg@1862
   853
!
cg@1862
   854
cg@1862
   855
iconCenterVInFrame
cg@1862
   856
    "This resource specification was automatically generated
cg@1862
   857
     by the ImageEditor of ST/X."
cg@1862
   858
cg@1862
   859
    "Do not manually edit this!! If it is corrupted,
cg@1862
   860
     the ImageEditor may not be able to read the specification."
cg@1862
   861
cg@1862
   862
    "
cg@1862
   863
     self iconCenterVInFrame inspect
cg@1862
   864
     ImageEditor openOnClass:self andSelector:#iconCenterVInFrame
cg@1862
   865
     Icon flushCachedIcons
cg@1862
   866
    "
cg@1862
   867
cg@1862
   868
    <resource: #image>
cg@1862
   869
cg@1862
   870
    ^Icon
cg@2268
   871
        constantNamed:'UIPainter class iconCenterVInFrame'
cg@1862
   872
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@1862
   873
@@@@@@@@J******@H@@@@@B@HL3@L3B@H:*GJ*2@H@@G@@B@HG@G@@B@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@EB@
cg@1862
   874
HE@G@@B@H@@G@@B@H:*E@J2@HL3@L3B@H@@@@@B@J******@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@B_??9P@@HW??(TG (W'' (W''''*W''''(W''''*W'''')W''''(W'''')W''''+W''''*W''''*W''''(W'' )TG (W??(P@@H_??8@@@@') ; yourself); yourself]
cg@1862
   875
!
cg@1862
   876
cg@1862
   877
iconDistributeH
cg@1862
   878
    "This resource specification was automatically generated
cg@1862
   879
     by the ImageEditor of ST/X."
cg@1862
   880
cg@1862
   881
    "Do not manually edit this!! If it is corrupted,
cg@1862
   882
     the ImageEditor may not be able to read the specification."
cg@1862
   883
cg@1862
   884
    "
cg@1862
   885
     self iconDistributeH inspect
cg@1862
   886
     ImageEditor openOnClass:self andSelector:#iconDistributeH
cg@1862
   887
     Icon flushCachedIcons
cg@1862
   888
    "
cg@1862
   889
cg@1862
   890
    <resource: #image>
cg@1862
   891
cg@1862
   892
    ^Icon
cg@2268
   893
        constantNamed:'UIPainter class iconDistributeH'
cg@1862
   894
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@1863
   895
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@E@@E@G@@G@@G@G@@G@@G@GHBGHBG@GHBGHBG@GJ*GJ*G@GHBGHBG@GHBGHBG@GB*GJ G@GB*GJ G@
cg@1863
   896
G@@G@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@<G <<G <<G ?<G =>O1?>O1????<>O1<>O1><G <<G ><G <<G ?@@@A@@@@@@@@@@@@@@@A') ; yourself); yourself]
cg@1862
   897
!
cg@1862
   898
cg@1862
   899
iconDistributeV
cg@1862
   900
    "This resource specification was automatically generated
cg@1862
   901
     by the ImageEditor of ST/X."
cg@1862
   902
cg@1862
   903
    "Do not manually edit this!! If it is corrupted,
cg@1862
   904
     the ImageEditor may not be able to read the specification."
cg@1862
   905
cg@1862
   906
    "
cg@1862
   907
     self iconDistributeV inspect
cg@1862
   908
     ImageEditor openOnClass:self andSelector:#iconDistributeV
cg@1862
   909
     Icon flushCachedIcons
cg@1862
   910
    "
cg@1862
   911
cg@1862
   912
    <resource: #image>
cg@1862
   913
cg@1862
   914
    ^Icon
cg@2268
   915
        constantNamed:'UIPainter class iconDistributeV'
cg@1862
   916
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@1863
   917
@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@@@@*(@@@@@JB@@@@@@JB@@@@@@JB@@@@@@J*(@@@@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@@@J*(@@@@@JB@@@@
cg@1863
   918
@@JB@@@@@@@B@@@@@@@*(@@@@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A??@A??@A??CA??@@G0@@A@@@A@@@A@@@G0CA??@A??@A??@A??@@G0C@A@@@A@@@A@@@G0AA??AA??@A??@A??B') ; yourself); yourself]
cg@2361
   919
!
cg@2361
   920
cg@2361
   921
iconResizeB
cg@2361
   922
    "This resource specification was automatically generated
cg@2361
   923
     by the ImageEditor of ST/X."
cg@2361
   924
cg@2361
   925
    "Do not manually edit this!! If it is corrupted,
cg@2361
   926
     the ImageEditor may not be able to read the specification."
cg@2361
   927
cg@2361
   928
    "
cg@2361
   929
     self iconResizeB inspect
cg@2361
   930
     ImageEditor openOnClass:self andSelector:#iconResizeB
cg@2361
   931
     Icon flushCachedIcons
cg@2361
   932
    "
cg@2361
   933
cg@2361
   934
    <resource: #image>
cg@2361
   935
cg@2361
   936
    ^Icon
cg@2361
   937
        constantNamed:'UIPainter class iconResizeB'
cg@2361
   938
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@2361
   939
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M@@@@@@@M@@@@@@@M@M@@@@@M@M@@@@@M@M@@@@@M@M@@@M@M@M@@@M@M@M@@@M@M@M@@@M@M@M@@@@@@@M@@
cg@2361
   940
@@@@@E@@@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@G A@G @@G'' @G'' @G''#@G'' G''''"G'''' G''''!!G'''' G'''' O?7 G'''' CCG O??0O??0@@@A@@@@@@@@') ; yourself); yourself]
cg@2361
   941
!
cg@2361
   942
cg@2361
   943
iconResizeL
cg@2361
   944
    "This resource specification was automatically generated
cg@2361
   945
     by the ImageEditor of ST/X."
cg@2361
   946
cg@2361
   947
    "Do not manually edit this!! If it is corrupted,
cg@2361
   948
     the ImageEditor may not be able to read the specification."
cg@2361
   949
cg@2361
   950
    "
cg@2361
   951
     self iconResizeL inspect
cg@2361
   952
     ImageEditor openOnClass:self andSelector:#iconResizeL
cg@2361
   953
     Icon flushCachedIcons
cg@2361
   954
    "
cg@2361
   955
cg@2361
   956
    <resource: #image>
cg@2361
   957
cg@2361
   958
    ^Icon
cg@2361
   959
        constantNamed:'UIPainter class iconResizeL'
cg@2361
   960
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@2361
   961
@@@@@@@@@@@@@@@@@(@@@@@@@(@@@@@@@(UUUP@I@(_??0@@@(@@@@@@@(@@@@@@@(@@@@@@@(@@@@@@@(AUUU@@@(C???@@@(@@@@@E@(@@@@@@@(@@@@@@
cg@2361
   962
@(@@@@@@@(AU@@@@@(C?@@@@@(@@@@@@@(@@@@@@@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@F@@@G?>@G?>@G?>@G?>@F@@@FP@@F?? G?? G?? F?? FP@@FP@@F? @G? @G? @F? @FP@@@@@@@@@@') ; yourself); yourself]
cg@2361
   963
!
cg@2361
   964
cg@2361
   965
iconResizeLR
cg@2361
   966
    "This resource specification was automatically generated
cg@2361
   967
     by the ImageEditor of ST/X."
cg@2361
   968
cg@2361
   969
    "Do not manually edit this!! If it is corrupted,
cg@2361
   970
     the ImageEditor may not be able to read the specification."
cg@2361
   971
cg@2361
   972
    "
cg@2361
   973
     self iconResizeLR inspect
cg@2361
   974
     ImageEditor openOnClass:self andSelector:#iconResizeLR
cg@2361
   975
     Icon flushCachedIcons
cg@2361
   976
    "
cg@2361
   977
cg@2361
   978
    <resource: #image>
cg@2361
   979
cg@2361
   980
    ^Icon
cg@2361
   981
        constantNamed:'UIPainter class iconResizeLR'
cg@2361
   982
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@2361
   983
@@@@@@@@@@@@@@@@@(@@@B @@(@@@B @@(UUUR I@(???2 @@(@@@B @@(@@@B @@(@@@B @@(@@@B @@(AUTB @@(C?<B @@(@@@B E@(@@@B @@(@@@B @
cg@2361
   984
@(@@@B @@(AUTB @@(C?<B @@(@@@B @@(@@@B @@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@F@A G?? G?? G?? G?? F@A FPI F?= G?? G?? F?= FPI FPI F?= G?? G?? F?= FPI @@@@@@@@') ; yourself); yourself]
cg@2361
   985
!
cg@2361
   986
cg@2361
   987
iconResizeR
cg@2361
   988
    "This resource specification was automatically generated
cg@2361
   989
     by the ImageEditor of ST/X."
cg@2361
   990
cg@2361
   991
    "Do not manually edit this!! If it is corrupted,
cg@2361
   992
     the ImageEditor may not be able to read the specification."
cg@2361
   993
cg@2361
   994
    "
cg@2361
   995
     self iconResizeR inspect
cg@2361
   996
     ImageEditor openOnClass:self andSelector:#iconResizeR
cg@2361
   997
     Icon flushCachedIcons
cg@2361
   998
    "
cg@2361
   999
cg@2361
  1000
    <resource: #image>
cg@2361
  1001
cg@2361
  1002
    ^Icon
cg@2361
  1003
        constantNamed:'UIPainter class iconResizeR'
cg@2361
  1004
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@2361
  1005
@@@@@@@@@@@@@@@@@@@@@B @@@@@@B @@@UUUR I@@???R @@@@@@B @@@@@@B @@@@@@B @@@@@@B @@EUUTB @@O??<B @@@@@@B E@@@@@B @@@@@@B @
cg@2361
  1006
@@@@@B @@@@ETB @@@@O<B @@@@@@B @@@@@@B @@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@A A?? A?? A?? A?? @@A @@I G?= G?? G?? G?= @@I @@I @G= @G? @G? @G= @@I @@@@@@@@') ; yourself); yourself]
cg@2361
  1007
!
cg@2361
  1008
cg@2361
  1009
iconResizeT
cg@2361
  1010
    "This resource specification was automatically generated
cg@2361
  1011
     by the ImageEditor of ST/X."
cg@2361
  1012
cg@2361
  1013
    "Do not manually edit this!! If it is corrupted,
cg@2361
  1014
     the ImageEditor may not be able to read the specification."
cg@2361
  1015
cg@2361
  1016
    "
cg@2361
  1017
     self iconResizeT inspect
cg@2361
  1018
     ImageEditor openOnClass:self andSelector:#iconResizeT
cg@2361
  1019
     Icon flushCachedIcons
cg@2361
  1020
    "
cg@2361
  1021
cg@2361
  1022
    <resource: #image>
cg@2361
  1023
cg@2361
  1024
    ^Icon
cg@2361
  1025
        constantNamed:'UIPainter class iconResizeT'
cg@2361
  1026
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@2361
  1027
@@@@@@@@@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@E@@@@@@@M@@@M@M@M@@@M@M@M@@@M@M@M@@@M@M@M@@@@@M@M@@@@@M@M@@@@@M@M@@
cg@2361
  1028
@@@M@M@@@@@M@@@@@@@M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@AO??0O??0CCG G'''' O?7 G'''' G'''' G''''!!G'''' G''''"@G'' @G''#@G'' @G'' @G @@G A@@@@@@@@@@@@') ; yourself); yourself]
cg@2361
  1029
!
cg@2361
  1030
cg@2361
  1031
iconResizeTB
cg@2361
  1032
    "This resource specification was automatically generated
cg@2361
  1033
     by the ImageEditor of ST/X."
cg@2361
  1034
cg@2361
  1035
    "Do not manually edit this!! If it is corrupted,
cg@2361
  1036
     the ImageEditor may not be able to read the specification."
cg@2361
  1037
cg@2361
  1038
    "
cg@2361
  1039
     self iconResizeTB inspect
cg@2361
  1040
     ImageEditor openOnClass:self andSelector:#iconResizeTB
cg@2361
  1041
     Icon flushCachedIcons
cg@2361
  1042
    "
cg@2361
  1043
cg@2361
  1044
    <resource: #image>
cg@2361
  1045
cg@2361
  1046
    ^Icon
cg@2361
  1047
        constantNamed:'UIPainter class iconResizeTB'
cg@2361
  1048
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@2361
  1049
@@@@@@@@@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@G@@@@@@@G@@@@@@@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@@@G@@@@@@
cg@2361
  1050
@G@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@B@@@@@@@BO??0O??2G#C@G'''' G/?0G''''#G'''' G'''' G'''' G'''' G''''"G/?0G'''' G#C@O??1O??0@@@A@@@B@@@@') ; yourself); yourself]
tz@778
  1051
! !
tz@735
  1052
cg@60
  1053
!UIPainter class methodsFor:'interface specs'!
cg@60
  1054
tz@743
  1055
dialogSpecForDefiningClassAndSelector
tz@743
  1056
    "This resource specification was automatically generated
tz@743
  1057
     by the UIPainter of ST/X."
tz@743
  1058
tz@765
  1059
    "Do not manually edit this!! If it is corrupted,
tz@743
  1060
     the UIPainter may not be able to read the specification."
cg@366
  1061
cg@366
  1062
    "
tz@743
  1063
     UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningClassAndSelector
tz@743
  1064
     UIPainter new openInterface:#dialogSpecForDefiningClassAndSelector
cg@366
  1065
    "
cg@366
  1066
cg@366
  1067
    <resource: #canvas>
cg@366
  1068
cg@366
  1069
    ^
tz@446
  1070
     
cg@366
  1071
       #(#FullSpec
sv@2217
  1072
          #window: 
sv@2217
  1073
           #(#WindowSpec
sv@2217
  1074
              #name: 'GUI Painter'
sv@2217
  1075
              #layout: #(#LayoutFrame 291 0 130 0 637 0 289 0)
sv@2217
  1076
              #label: 'GUI Painter'
sv@2217
  1077
              #min: #(#Point 350 160)
sv@2217
  1078
              #max: #(#Point 500 160)
sv@2217
  1079
              #bounds: #(#Rectangle 291 130 638 290)
sv@2217
  1080
              #usePreferredExtent: false
sv@2217
  1081
          )
sv@2217
  1082
          #component: 
sv@2217
  1083
           #(#SpecCollection
sv@2217
  1084
              #collection: 
sv@2217
  1085
               #(
sv@2217
  1086
                 #(#FramedBoxSpec
sv@2217
  1087
                    #name: 'FramedBox'
sv@2217
  1088
                    #layout: #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0)
sv@2217
  1089
                    #component: 
sv@2217
  1090
                     #(#SpecCollection
sv@2217
  1091
                        #collection: 
sv@2217
  1092
                         #(
sv@2217
  1093
                           #(#LabelSpec
sv@2217
  1094
                              #name: 'selectorLabel'
sv@2217
  1095
                              #layout: #(#AlignmentOrigin 67 0.11 29 0 1 0.5)
sv@2217
  1096
                              #label: 'Selector:'
sv@2217
  1097
                              #translateLabel: true
sv@2217
  1098
                              #adjust: #right
sv@2217
  1099
                              #resizeForLabel: true
sv@2217
  1100
                          )
sv@2217
  1101
                           #(#InputFieldSpec
sv@2217
  1102
                              #name: 'methodNameField'
sv@2217
  1103
                              #layout: #(#LayoutFrame 70 0.11 18 0 4 1.0 40 0)
sv@2217
  1104
                              #tabable: true
sv@2217
  1105
                              #model: #methodNameChannel
sv@2217
  1106
                              #group: #inputGroup
sv@2217
  1107
                          )
sv@2217
  1108
                           #(#LabelSpec
sv@2217
  1109
                              #name: 'classLabel'
sv@2217
  1110
                              #layout: #(#AlignmentOrigin 67 0.11 54 0 1 0.5)
sv@2217
  1111
                              #label: 'Class:'
sv@2217
  1112
                              #translateLabel: true
sv@2217
  1113
                              #adjust: #right
sv@2217
  1114
                              #resizeForLabel: true
sv@2217
  1115
                          )
sv@2217
  1116
                           #(#InputFieldSpec
sv@2217
  1117
                              #name: 'classNameField'
sv@2217
  1118
                              #layout: #(#LayoutFrame 70 0.11 43 0 4 1.0 65 0)
sv@2217
  1119
                              #tabable: true
sv@2217
  1120
                              #model: #classNameChannel
sv@2217
  1121
                              #group: #inputGroup
sv@2217
  1122
                          )
sv@2217
  1123
                           #(#LabelSpec
sv@2217
  1124
                              #name: 'superClassLabel'
sv@2217
  1125
                              #layout: #(#AlignmentOrigin 67 0.11 79 0 1 0.5)
sv@2217
  1126
                              #label: 'Superclass:'
sv@2217
  1127
                              #translateLabel: true
sv@2217
  1128
                              #adjust: #right
sv@2217
  1129
                              #resizeForLabel: true
sv@2217
  1130
                          )
sv@2217
  1131
                           #(#ComboBoxSpec
sv@2217
  1132
                              #name: 'superclassNameComboBox'
sv@2217
  1133
                              #layout: #(#LayoutFrame 70 0.11 68 0 4 1.0 90 0)
sv@2217
  1134
                              #tabable: true
sv@2217
  1135
                              #model: #superclassNameChannel
sv@2217
  1136
                              #comboList: #superclassNameDefaults
sv@2217
  1137
                          )
sv@2217
  1138
                        )
sv@2217
  1139
                    )
sv@2217
  1140
                    #label: 'Define Class And Selector'
sv@2217
  1141
                    #labelPosition: #topLeft
sv@2217
  1142
                    #translateLabel: true
sv@2217
  1143
                )
sv@2217
  1144
                 #(#UISubSpecification
sv@2217
  1145
                    #name: 'subSpec'
sv@2217
  1146
                    #layout: #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
sv@2217
  1147
                    #majorKey: #ToolApplicationModel
sv@2217
  1148
                    #minorKey: #windowSpecForCommitWithoutChannels
sv@2217
  1149
                )
sv@2217
  1150
              )
sv@2217
  1151
          )
tz@743
  1152
      )
cg@838
  1153
cg@950
  1154
    "Modified: / 13.8.1998 / 19:59:44 / cg"
tz@743
  1155
!
tz@743
  1156
tz@743
  1157
dialogSpecForDefiningGridParameters
tz@743
  1158
    "This resource specification was automatically generated
tz@743
  1159
     by the UIPainter of ST/X."
tz@743
  1160
tz@765
  1161
    "Do not manually edit this!! If it is corrupted,
tz@743
  1162
     the UIPainter may not be able to read the specification."
tz@743
  1163
tz@743
  1164
    "
tz@743
  1165
     UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningGridParameters
tz@743
  1166
     UIPainter new openInterface:#dialogSpecForDefiningGridParameters
tz@743
  1167
    "
tz@743
  1168
tz@743
  1169
    <resource: #canvas>
tz@743
  1170
cg@1782
  1171
    ^ 
cg@1782
  1172
     #(FullSpec
cg@1782
  1173
        name: dialogSpecForDefiningGridParameters
cg@1782
  1174
        window: 
cg@1782
  1175
       (WindowSpec
cg@1782
  1176
          label: 'GUI Painter'
cg@1782
  1177
          name: 'GUI Painter'
cg@1782
  1178
          min: (Point 300 200)
cg@1782
  1179
          max: (Point 300 200)
cg@1782
  1180
          bounds: (Rectangle 16 46 298 244)
cg@1782
  1181
        )
cg@1782
  1182
        component: 
cg@1782
  1183
       (SpecCollection
cg@1782
  1184
          collection: (
cg@1782
  1185
           (FramedBoxSpec
cg@1782
  1186
              label: 'Grid Parameter'
cg@1782
  1187
              name: 'FramedBox'
cg@1782
  1188
              layout: (LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0)
cg@1782
  1189
              labelPosition: topLeft
cg@1782
  1190
              translateLabel: true
cg@1782
  1191
              component: 
cg@1782
  1192
             (SpecCollection
cg@1782
  1193
                collection: (
cg@1782
  1194
                 (CheckBoxSpec
cg@1782
  1195
                    label: 'Show Grid'
cg@1782
  1196
                    name: 'ShowGridCheckBox'
cg@1782
  1197
                    layout: (Point 13 14)
cg@1782
  1198
                    model: showGrid
cg@1782
  1199
                    translateLabel: true
cg@2692
  1200
            activeHelpKey: showGrid
cg@1782
  1201
                  )
cg@1782
  1202
                 (CheckBoxSpec
cg@1782
  1203
                    label: 'Align To Grid'
cg@1782
  1204
                    name: 'AlignCheckBox'
cg@1782
  1205
                    layout: (Point 13 42)
cg@1782
  1206
                    model: alignToGrid
cg@1782
  1207
                    translateLabel: true
cg@2692
  1208
            activeHelpKey: alignToGrid
cg@1782
  1209
                  )
cg@1782
  1210
                 (LabelSpec
cg@1782
  1211
                    label: 'Horizontal Pixels:'
cg@1782
  1212
                    name: 'HorizontalPixelsLabel'
cg@1782
  1213
                    layout: (AlignmentOrigin 138 0 89 0 1 0.5)
cg@1782
  1214
                    translateLabel: true
cg@1782
  1215
                    resizeForLabel: true
cg@1782
  1216
                    adjust: right
cg@1782
  1217
                  )
cg@1782
  1218
                 (InputFieldSpec
cg@1782
  1219
                    name: 'HorizontalPixelsField'
cg@1782
  1220
                    layout: (LayoutFrame 144 0 77 0 197 0 99 0)
cg@1782
  1221
                    model: hspace
cg@1782
  1222
                    group: inputGroup
cg@1782
  1223
                    type: numberOrNil
cg@1782
  1224
                    acceptOnPointerLeave: false
cg@1782
  1225
                  )
cg@1782
  1226
                 (LabelSpec
cg@1782
  1227
                    label: 'Vertical Pixels:'
cg@1782
  1228
                    name: 'VerticalPixelsLabel'
cg@1782
  1229
                    layout: (AlignmentOrigin 139 0 114 0 1 0.5)
cg@1782
  1230
                    translateLabel: true
cg@1782
  1231
                    resizeForLabel: true
cg@1782
  1232
                    adjust: right
cg@1782
  1233
                  )
cg@1782
  1234
                 (InputFieldSpec
cg@1782
  1235
                    name: 'VerticalPixelsField'
cg@1782
  1236
                    layout: (LayoutFrame 144 0 102 0 197 0 124 0)
cg@1782
  1237
                    model: vspace
cg@1782
  1238
                    group: inputGroup
cg@1782
  1239
                    type: numberOrNil
cg@1782
  1240
                    acceptOnPointerLeave: false
cg@1782
  1241
                  )
cg@1782
  1242
                 )
cg@1782
  1243
               
cg@1782
  1244
              )
cg@1782
  1245
            )
cg@1782
  1246
           (UISubSpecification
cg@1782
  1247
              name: 'subSpec'
cg@1782
  1248
              layout: (LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
cg@1782
  1249
              majorKey: ToolApplicationModel
cg@1782
  1250
              minorKey: windowSpecForCommitWithoutChannels
cg@1782
  1251
            )
cg@1782
  1252
           )
cg@1782
  1253
         
cg@1782
  1254
        )
cg@366
  1255
      )
cg@366
  1256
!
cg@366
  1257
cg@2243
  1258
dialogSpecForDefiningPortAndPageName
cg@2243
  1259
    "This resource specification was automatically generated
cg@2243
  1260
     by the UIPainter of ST/X."
cg@2243
  1261
cg@2243
  1262
    "Do not manually edit this!! If it is corrupted,
cg@2243
  1263
     the UIPainter may not be able to read the specification."
cg@2243
  1264
cg@2243
  1265
    "
cg@2258
  1266
     UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningPortAndPageName
cg@2258
  1267
     UIPainter new openInterface:#dialogSpecForDefiningPortAndPageName
cg@2243
  1268
    "
cg@2243
  1269
cg@2243
  1270
    <resource: #canvas>
cg@2243
  1271
cg@2243
  1272
    ^ 
cg@2243
  1273
     #(FullSpec
cg@2258
  1274
        name: dialogSpecForDefiningPortAndPageName
cg@2243
  1275
        window: 
cg@2243
  1276
       (WindowSpec
cg@2243
  1277
          label: 'GUI Painter'
cg@2243
  1278
          name: 'GUI Painter'
cg@2243
  1279
          min: (Point 350 140)
cg@2243
  1280
          max: (Point 500 140)
cg@2243
  1281
          bounds: (Rectangle 0 0 346 138)
cg@2243
  1282
        )
cg@2243
  1283
        component: 
cg@2243
  1284
       (SpecCollection
cg@2243
  1285
          collection: (
cg@2243
  1286
           (FramedBoxSpec
cg@2261
  1287
              label: 'Define Service and Pagename'
cg@2243
  1288
              name: 'FramedBox'
cg@2243
  1289
              layout: (LayoutFrame 0 0.0 3 0.0 0 1.0 -34 1.0)
cg@2243
  1290
              labelPosition: topLeft
cg@2243
  1291
              translateLabel: true
cg@2243
  1292
              component: 
cg@2243
  1293
             (SpecCollection
cg@2243
  1294
                collection: (
cg@2243
  1295
                 (LabelSpec
cg@2243
  1296
                    label: 'Service (or Port):'
cg@2243
  1297
                    name: 'portLabel'
cg@2243
  1298
                    layout: (AlignmentOrigin 67 0.11 29 0 1 0.5)
cg@2243
  1299
                    translateLabel: true
cg@2243
  1300
                    resizeForLabel: true
cg@2243
  1301
                    adjust: right
cg@2243
  1302
                  )
cg@2258
  1303
                 (ComboBoxSpec
cg@2258
  1304
                    name: 'ComboBox1'
cg@2243
  1305
                    layout: (LayoutFrame 70 0.11 18 0 4 1.0 40 0)
cg@2243
  1306
                    model: serviceOrPortNameChannel
cg@2243
  1307
                    acceptOnPointerLeave: false
cg@2258
  1308
                    comboList: runningServerPorts
cg@2243
  1309
                  )
cg@2243
  1310
                 (LabelSpec
cg@2243
  1311
                    label: 'Pagename:'
cg@2243
  1312
                    name: 'pageNameLabel'
cg@2243
  1313
                    layout: (AlignmentOrigin 67 0.11 54 0 1 0.5)
cg@2243
  1314
                    translateLabel: true
cg@2243
  1315
                    resizeForLabel: true
cg@2243
  1316
                    adjust: right
cg@2243
  1317
                  )
cg@2243
  1318
                 (InputFieldSpec
cg@2243
  1319
                    name: 'pageNameNameField'
cg@2243
  1320
                    layout: (LayoutFrame 70 0.11 43 0 4 1.0 65 0)
cg@2243
  1321
                    tabable: true
cg@2243
  1322
                    model: pageNameNameChannel
cg@2243
  1323
                    group: inputGroup
cg@2243
  1324
                    acceptOnPointerLeave: false
cg@2243
  1325
                  )
cg@2243
  1326
                 )
cg@2243
  1327
               
cg@2243
  1328
              )
cg@2243
  1329
            )
cg@2243
  1330
           (UISubSpecification
cg@2243
  1331
              name: 'subSpec'
cg@2243
  1332
              layout: (LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
cg@2243
  1333
              majorKey: ToolApplicationModel
cg@2243
  1334
              minorKey: windowSpecForCommitWithoutChannels
cg@2243
  1335
            )
cg@2243
  1336
           )
cg@2243
  1337
         
cg@2243
  1338
        )
cg@2243
  1339
      )
cg@2243
  1340
!
cg@2243
  1341
tz@743
  1342
windowSpec
tz@743
  1343
    "This resource specification was automatically generated
tz@743
  1344
     by the UIPainter of ST/X."
tz@743
  1345
tz@743
  1346
    "Do not manually edit this!! If it is corrupted,
tz@743
  1347
     the UIPainter may not be able to read the specification."
ca@222
  1348
ca@222
  1349
    "
tz@743
  1350
     UIPainter new openOnClass:UIPainter andSelector:#windowSpec
tz@743
  1351
     UIPainter new openInterface:#windowSpec
tz@743
  1352
     UIPainter open
ca@222
  1353
    "
ca@222
  1354
ca@222
  1355
    <resource: #canvas>
ca@222
  1356
cg@1115
  1357
    ^ 
sv@1739
  1358
     #(FullSpec
sv@1739
  1359
        name: windowSpec
sv@1739
  1360
        window: 
sv@1739
  1361
       (WindowSpec
sv@1739
  1362
          label: 'GUI Painter'
sv@1739
  1363
          name: 'GUI Painter'
sv@1739
  1364
          min: (Point 560 460)
cg@2655
  1365
          bounds: (Rectangle 0 0 683 568)
cg@2500
  1366
          menu: menu
cg@2157
  1367
          icon: defaultIcon
ca@1317
  1368
        )
sv@1739
  1369
        component: 
sv@1739
  1370
       (SpecCollection
sv@1739
  1371
          collection: (
cg@2531
  1372
           (ViewSpec
cg@2531
  1373
              name: 'mainPanel'
cg@2531
  1374
              layout: (LayoutFrame 0 0 0 0 0 1 -24 1)
cg@2500
  1375
              component: 
cg@2500
  1376
             (SpecCollection
cg@2500
  1377
                collection: (
cg@2531
  1378
                 (ViewSpec
cg@2531
  1379
                    name: 'ToolBar'
cg@2531
  1380
                    layout: (LayoutFrame 0 0 0 0 0 1 32 0)
cg@2500
  1381
                    visibilityChannel: toolBarVisibleHolder
sv@1739
  1382
                    component: 
sv@1739
  1383
                   (SpecCollection
sv@1739
  1384
                      collection: (
cg@2531
  1385
                       (ActionButtonSpec
cg@2531
  1386
                          label: 'hideToolBarIcon'
cg@2531
  1387
                          name: 'HideToolBarButton'
cg@2531
  1388
                          layout: (LayoutFrame 0 0 0 0 13 0 0 1)
cg@2531
  1389
                          activeHelpKey: hideToolBar
cg@2531
  1390
                          hasCharacterOrientedLabel: false
cg@2531
  1391
                          translateLabel: true
cg@2531
  1392
                          model: hideToolbar
cg@2531
  1393
                          postBuildCallback: hideToolBarButtonCreated:
cg@2531
  1394
                        )
sv@1739
  1395
                       (MenuPanelSpec
cg@2531
  1396
                          name: 'menuToolbarView'
cg@2531
  1397
                          layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
cg@2531
  1398
                          visibilityChannel: toolBarVisibleHolder
cg@2531
  1399
                          menu: menuToolbar
cg@2531
  1400
                          textDefault: true
cg@2531
  1401
                        )
cg@2531
  1402
                       )
cg@2531
  1403
                     
cg@2531
  1404
                    )
cg@2531
  1405
                  )
cg@2531
  1406
                 (ViewSpec
cg@2531
  1407
                    name: 'EditToolBar'
cg@2531
  1408
                    layout: (LayoutFrame 0 0 30 0 0 1 62 0)
cg@2531
  1409
                    visibilityChannel: editToolBarVisibleHolder
cg@2531
  1410
                    component: 
cg@2531
  1411
                   (SpecCollection
cg@2531
  1412
                      collection: (
cg@2531
  1413
                       (ActionButtonSpec
cg@2531
  1414
                          label: 'hideToolBarIcon'
cg@2531
  1415
                          name: 'HideEditToolBarButton'
cg@2531
  1416
                          layout: (LayoutFrame 0 0 0 0 13 0 0 1)
cg@2531
  1417
                          activeHelpKey: hideToolBar
cg@2531
  1418
                          hasCharacterOrientedLabel: false
cg@2531
  1419
                          translateLabel: true
cg@2531
  1420
                          model: hideEditToolbar
cg@2531
  1421
                          postBuildCallback: hideToolBarButtonCreated:
cg@2531
  1422
                        )
cg@2531
  1423
                       (MenuPanelSpec
cg@2531
  1424
                          name: 'EditToolBar1'
cg@2531
  1425
                          layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
cg@2531
  1426
                          visibilityChannel: editToolBarVisibleHolder
cg@2531
  1427
                          menu: editToolbar
cg@2531
  1428
                          textDefault: true
cg@2531
  1429
                        )
cg@2531
  1430
                       )
cg@2531
  1431
                     
cg@2531
  1432
                    )
cg@2531
  1433
                  )
cg@2531
  1434
                 (VariableHorizontalPanelSpec
cg@2531
  1435
                    name: 'Painter'
cg@2531
  1436
                    layout: (LayoutFrame 0 0.0 60 0.0 0 1.0 0 1.0)
cg@2531
  1437
                    level: 1
cg@2531
  1438
                    component: 
cg@2531
  1439
                   (SpecCollection
cg@2531
  1440
                      collection: (
cg@2531
  1441
                       (ArbitraryComponentSpec
cg@2531
  1442
                          name: 'treeView'
cg@2531
  1443
                          tabable: true
cg@2531
  1444
                          menu: menuEdit
cg@2531
  1445
                          hasHorizontalScrollBar: true
cg@2531
  1446
                          hasVerticalScrollBar: true
cg@2531
  1447
                          miniScrollerHorizontal: true
cg@2531
  1448
                          miniScrollerVertical: true
cg@2531
  1449
                          hasBorder: false
cg@2531
  1450
                          component: treeView
cg@2531
  1451
                        )
cg@2531
  1452
                       (ViewSpec
cg@2531
  1453
                          name: 'specHolderView'
sv@1739
  1454
                          level: 0
sv@1739
  1455
                          component: 
sv@1739
  1456
                         (SpecCollection
sv@1739
  1457
                            collection: (
cg@2531
  1458
                             (MenuPanelSpec
cg@2531
  1459
                                name: 'menuToolbar2View'
cg@2531
  1460
                                layout: (LayoutFrame 2 0.0 2 0 -2 1.0 32 0)
cg@2531
  1461
                                level: 0
cg@2531
  1462
                                tabable: true
cg@2531
  1463
                                menu: menuToolbar2
cg@2531
  1464
                              )
cg@2531
  1465
                             (NoteBookViewSpec
cg@2531
  1466
                                name: 'noteBook'
cg@2531
  1467
                                layout: (LayoutFrame 2 0.0 32 0.0 -2 1.0 -28 1.0)
cg@2531
  1468
                                level: 0
cg@2531
  1469
                                enableChannel: enableChannel
cg@2531
  1470
                                tabable: true
cg@2531
  1471
                                model: tabModel
cg@2531
  1472
                                menu: tabList
cg@1782
  1473
                                translateLabel: true
cg@2531
  1474
                                canvas: noteBookView
cg@1457
  1475
                              )
cg@2531
  1476
                             (HorizontalPanelViewSpec
cg@2531
  1477
                                name: 'HorizontalPanel1'
cg@2531
  1478
                                layout: (LayoutFrame 2 0 -26 1 -2 1 -2 1)
cg@2531
  1479
                                horizontalLayout: fit
cg@2531
  1480
                                verticalLayout: fit
cg@2531
  1481
                                horizontalSpace: 3
cg@2531
  1482
                                verticalSpace: 3
cg@2531
  1483
                                reverseOrderIfOKAtLeft: true
cg@2531
  1484
                                component: 
cg@2531
  1485
                               (SpecCollection
cg@2531
  1486
                                  collection: (
cg@2531
  1487
                                   (ActionButtonSpec
cg@2531
  1488
                                      label: 'Cancel'
cg@2531
  1489
                                      name: 'cancelButton'
cg@2531
  1490
                                      activeHelpKey: commitCancel
cg@2531
  1491
                                      translateLabel: true
cg@2531
  1492
                                      tabable: true
cg@2531
  1493
                                      model: cancel
cg@2531
  1494
                                      enableChannel: modifiedChannel
cg@2655
  1495
                                      extent: (Point 231 24)
cg@2531
  1496
                                    )
cg@2531
  1497
                                   (ActionButtonSpec
cg@2531
  1498
                                      label: 'OK'
cg@2531
  1499
                                      name: 'acceptButton'
cg@2531
  1500
                                      activeHelpKey: commitOK
cg@2531
  1501
                                      translateLabel: true
cg@2531
  1502
                                      tabable: true
cg@2531
  1503
                                      model: accept
cg@2531
  1504
                                      enableChannel: modifiedChannel
cg@2655
  1505
                                      extent: (Point 231 24)
cg@2531
  1506
                                    )
cg@2531
  1507
                                   )
cg@2531
  1508
                                 
cg@2531
  1509
                                )
cg@1457
  1510
                              )
cg@1457
  1511
                             )
cg@1457
  1512
                           
ca@1317
  1513
                          )
ca@1317
  1514
                        )
ca@1317
  1515
                       )
cg@1115
  1516
                     
ca@1317
  1517
                    )
cg@2655
  1518
                    handles: (Any 0.30592105263158 1.0)
ca@1317
  1519
                  )
ca@1317
  1520
                 )
cg@1115
  1521
               
ca@1317
  1522
              )
ca@1317
  1523
            )
sv@1739
  1524
           (UISubSpecification
sv@1739
  1525
              name: 'infoBarSubSpec'
sv@1739
  1526
              layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
sv@1739
  1527
              level: 1
sv@1739
  1528
              majorKey: ToolApplicationModel
sv@1739
  1529
              minorKey: windowSpecForInfoBar
ca@1317
  1530
            )
ca@1317
  1531
           )
cg@1115
  1532
         
cg@2531
  1533
        )
cg@2500
  1534
      )
ca@222
  1535
! !
ca@222
  1536
ca@222
  1537
!UIPainter class methodsFor:'menu specs'!
ca@222
  1538
cg@2500
  1539
cutCopyPasteMenuSlice
cg@2500
  1540
    "This resource specification was automatically generated
cg@2500
  1541
     by the MenuEditor of ST/X."
cg@2500
  1542
cg@2500
  1543
    "Do not manually edit this!! If it is corrupted,
cg@2500
  1544
     the MenuEditor may not be able to read the specification."
cg@2500
  1545
cg@2500
  1546
    "
cg@2500
  1547
     MenuEditor new openOnClass:UIPainter andSelector:#menuToolbar
cg@2500
  1548
     (Menu new fromLiteralArrayEncoding:(UIPainter menuToolbar)) startUp
cg@2500
  1549
    "
cg@2500
  1550
cg@2500
  1551
    <resource: #menu>
cg@2500
  1552
cg@2500
  1553
    ^ 
cg@2500
  1554
     #(Menu
cg@2500
  1555
        (
cg@2500
  1556
         (MenuItem
cg@2500
  1557
            activeHelpKey: editCut
cg@2500
  1558
            enabled: canCutHolder
cg@2500
  1559
            label: 'Cut'
cg@2500
  1560
            itemValue: deleteSelection
cg@2500
  1561
            translateLabel: true
cg@2500
  1562
            isButton: true
cg@2500
  1563
            labelImage: (ResourceRetriever ToolbarIconLibrary cutWidgetIcon)
cg@2500
  1564
          )
cg@2500
  1565
         (MenuItem
cg@2500
  1566
            activeHelpKey: editCopy
cg@2500
  1567
            enabled: canCopyHolder
cg@2500
  1568
            label: 'Copy'
cg@2500
  1569
            itemValue: copySelection
cg@2500
  1570
            translateLabel: true
cg@2500
  1571
            isButton: true
cg@2500
  1572
            labelImage: (ResourceRetriever ToolbarIconLibrary copyWidgetIcon)
cg@2500
  1573
          )
cg@2500
  1574
         (MenuItem
cg@2500
  1575
            activeHelpKey: editPaste
cg@2500
  1576
            enabled: canPasteKeepingLayoutHolder
cg@2500
  1577
            label: 'Paste with Layout'
cg@2500
  1578
            itemValue: pasteWithLayout
cg@2500
  1579
            translateLabel: true
cg@2500
  1580
            isButton: true
cg@2500
  1581
            labelImage: (ResourceRetriever ToolbarIconLibrary pasteWidgetIcon)
cg@2500
  1582
          )
cg@2500
  1583
         (MenuItem
cg@2500
  1584
            activeHelpKey: editDelete
cg@2500
  1585
            enabled: canCutHolder
cg@2500
  1586
            label: 'Delete'
cg@2500
  1587
            itemValue: deleteTotalSelection
cg@2500
  1588
            translateLabel: true
cg@2500
  1589
            isButton: true
cg@2500
  1590
            isVisible: false
cg@2500
  1591
            labelImage: (ResourceRetriever ToolbarIconLibrary deleteWidgetIcon)
cg@2500
  1592
          )
cg@2500
  1593
         (MenuItem
cg@2500
  1594
            label: '-'
cg@2500
  1595
          )
cg@2500
  1596
         (MenuItem
cg@2500
  1597
            activeHelpKey: editUndo
cg@2500
  1598
            enabled: hasUndoHistoryHolder
cg@2500
  1599
            label: 'Undo'
cg@2500
  1600
            itemValue: undoLast
cg@2500
  1601
            translateLabel: true
cg@2500
  1602
            isButton: true
cg@2500
  1603
            labelImage: (ResourceRetriever ToolbarIconLibrary undoIcon)
cg@2500
  1604
          )
cg@2500
  1605
         )
cg@2500
  1606
        nil
cg@2500
  1607
        nil
cg@2500
  1608
      )
cg@2500
  1609
!
cg@2500
  1610
cg@2500
  1611
editToolbar
cg@2500
  1612
    "This resource specification was automatically generated
cg@2500
  1613
     by the MenuEditor of ST/X."
cg@2500
  1614
cg@2500
  1615
    "Do not manually edit this!! If it is corrupted,
cg@2500
  1616
     the MenuEditor may not be able to read the specification."
cg@2500
  1617
cg@2500
  1618
    "
cg@2500
  1619
     MenuEditor new openOnClass:UIPainter andSelector:#editToolbar
cg@2500
  1620
     (Menu new fromLiteralArrayEncoding:(UIPainter editToolbar)) startUp
cg@2500
  1621
    "
cg@2500
  1622
cg@2500
  1623
    <resource: #menu>
cg@2500
  1624
cg@2500
  1625
    ^ 
cg@2500
  1626
     #(Menu
cg@2500
  1627
        (
cg@2500
  1628
         (MenuItem
cg@2500
  1629
            label: 'moveItems'
cg@2500
  1630
            translateLabel: true
cg@2500
  1631
            submenuChannel: moveInListMenuSlice
cg@2500
  1632
            isMenuSlice: true
cg@2500
  1633
          )
cg@2500
  1634
         (MenuItem
cg@2500
  1635
            label: '-'
cg@2500
  1636
          )
cg@2500
  1637
         (MenuItem
cg@2500
  1638
            label: 'gridItems'
cg@2500
  1639
            translateLabel: true
cg@2500
  1640
            submenuChannel: gridMenuSlice
cg@2500
  1641
            isMenuSlice: true
cg@2500
  1642
          )
cg@2500
  1643
         )
cg@2500
  1644
        nil
cg@2500
  1645
        nil
cg@2500
  1646
      )
cg@2500
  1647
!
cg@2500
  1648
cg@2500
  1649
gridMenuSlice
cg@2500
  1650
    "This resource specification was automatically generated
cg@2500
  1651
     by the MenuEditor of ST/X."
cg@2500
  1652
cg@2500
  1653
    "Do not manually edit this!! If it is corrupted,
cg@2500
  1654
     the MenuEditor may not be able to read the specification."
cg@2500
  1655
cg@2500
  1656
    "
cg@2500
  1657
     MenuEditor new openOnClass:Workflow::WorksheetEditor andSelector:#zoomMenuSlice
cg@2500
  1658
     (Menu new fromLiteralArrayEncoding:(Workflow::WorksheetEditor zoomMenuSlice)) startUp
cg@2500
  1659
    "
cg@2500
  1660
cg@2500
  1661
    <resource: #menu>
cg@2500
  1662
cg@2500
  1663
    ^ 
cg@2500
  1664
     #(Menu
cg@2500
  1665
        (
cg@2500
  1666
         (MenuItem
cg@2500
  1667
            label: 'ShowGrid'
cg@2500
  1668
            translateLabel: true
cg@2500
  1669
            isButton: true
cg@2500
  1670
            indication: gridShownHolder
cg@2522
  1671
            labelImage: (ResourceRetriever ToolbarIconLibrary gridIcon)
cg@2692
  1672
            activeHelpKey: showGrid
cg@2500
  1673
          )
cg@2500
  1674
         (MenuItem
cg@2500
  1675
            label: 'AlignToGrid'
cg@2500
  1676
            translateLabel: true
cg@2500
  1677
            isButton: true
cg@2500
  1678
            indication: alignToGridHolder
cg@2522
  1679
            labelImage: (ResourceRetriever ToolbarIconLibrary gridAlignIcon)
cg@2692
  1680
            activeHelpKey: alignToGrid
cg@2500
  1681
          )
cg@2500
  1682
         )
cg@2500
  1683
        nil
cg@2500
  1684
        nil
cg@2500
  1685
      )
cg@2500
  1686
!
cg@2500
  1687
tz@446
  1688
menu
tz@743
  1689
    "This resource specification was automatically generated
tz@743
  1690
     by the MenuEditor of ST/X."
tz@743
  1691
tz@743
  1692
    "Do not manually edit this!! If it is corrupted,
tz@743
  1693
     the MenuEditor may not be able to read the specification."
ca@217
  1694
cg@2883
  1695
ca@217
  1696
    "
tz@446
  1697
     MenuEditor new openOnClass:UIPainter andSelector:#menu
tz@446
  1698
     (Menu new fromLiteralArrayEncoding:(UIPainter menu)) startUp
ca@217
  1699
    "
ca@217
  1700
ca@217
  1701
    <resource: #menu>
ca@217
  1702
cg@1710
  1703
    ^ 
ca@1775
  1704
     #(Menu
ca@1775
  1705
        (
ca@1775
  1706
         (MenuItem
ca@1775
  1707
            label: '&File'
ca@1775
  1708
            translateLabel: true
cg@2277
  1709
            submenuChannel: menuFile
cg@2277
  1710
            keepLinkedMenu: true
cg@1710
  1711
          )
ca@1775
  1712
         (MenuItem
ca@1775
  1713
            label: 'Edit'
ca@1775
  1714
            translateLabel: true
ca@1775
  1715
            submenuChannel: menuEdit
cg@1710
  1716
          )
ca@1775
  1717
         (MenuItem
cg@2500
  1718
            label: 'View'
cg@2500
  1719
            translateLabel: true
cg@2500
  1720
            submenu: 
cg@2500
  1721
           (Menu
cg@2500
  1722
              (
cg@2500
  1723
               (MenuItem
cg@2500
  1724
                  activeHelpKey: settingsCanvas
cg@2500
  1725
                  label: 'Canvas'
cg@2500
  1726
                  translateLabel: true
cg@2500
  1727
                  indication: painterShown
cg@2500
  1728
                )
cg@2500
  1729
               (MenuItem
cg@2500
  1730
                  activeHelpKey: settingsGallery
cg@2500
  1731
                  label: 'Gallery'
cg@2500
  1732
                  translateLabel: true
cg@2500
  1733
                  indication: galleryShown
cg@2500
  1734
                )
cg@2500
  1735
               (MenuItem
cg@2500
  1736
                  label: '-'
cg@2500
  1737
                )
cg@2500
  1738
               (MenuItem
cg@2500
  1739
                  label: 'Toolbar'
cg@2500
  1740
                  translateLabel: true
cg@2500
  1741
                  hideMenuOnActivated: false
cg@2500
  1742
                  indication: toolBarVisibleHolder
cg@2500
  1743
                )
cg@2500
  1744
               (MenuItem
cg@2500
  1745
                  label: 'Editor Toolbar'
cg@2500
  1746
                  translateLabel: true
cg@2500
  1747
                  hideMenuOnActivated: false
cg@2500
  1748
                  indication: editToolBarVisibleHolder
cg@2500
  1749
                )
cg@2500
  1750
               (MenuItem
cg@2500
  1751
                  label: '-'
cg@2500
  1752
                )
cg@2500
  1753
               (MenuItem
cg@2500
  1754
                  label: 'Load Sketch as Background...'
cg@2500
  1755
                  itemValue: useSketch
cg@2500
  1756
                  translateLabel: true
cg@2500
  1757
                )
cg@2500
  1758
               (MenuItem
cg@2500
  1759
                  label: 'Load Image as Background...'
cg@2500
  1760
                  itemValue: useBackgroundImage
cg@2500
  1761
                  translateLabel: true
cg@2500
  1762
                )
cg@2500
  1763
               )
cg@2500
  1764
              nil
cg@2500
  1765
              nil
cg@2500
  1766
            )
cg@2500
  1767
          )
cg@2500
  1768
         (MenuItem
ca@1775
  1769
            label: 'Align'
ca@1775
  1770
            translateLabel: true
ca@1775
  1771
            submenuChannel: menuAlign
cg@1710
  1772
          )
ca@1775
  1773
         (MenuItem
ca@1775
  1774
            label: 'Generate'
ca@1775
  1775
            translateLabel: true
cg@2198
  1776
            isVisible: isNotEditingSpecOnly
ca@1775
  1777
            submenu: 
ca@1775
  1778
           (Menu
ca@1775
  1779
              (
ca@1775
  1780
               (MenuItem
ca@1775
  1781
                  activeHelpKey: generateAspectMethods
ca@1775
  1782
                  enabled: hasSpecClass
ca@1775
  1783
                  label: 'Aspect Methods'
ca@1775
  1784
                  itemValue: doGenerateAspectMethods
ca@1775
  1785
                  translateLabel: true
cg@1710
  1786
                )
ca@1775
  1787
               (MenuItem
ca@1775
  1788
                  activeHelpKey: generateAspectMethodFor
ca@1775
  1789
                  enabled: hasSpecClass
ca@1775
  1790
                  label: 'Aspect Method For...'
ca@1775
  1791
                  itemValue: doGenerateAspectMethodFor
ca@1775
  1792
                  translateLabel: true
cg@1710
  1793
                )
ca@1775
  1794
               (MenuItem
ca@1775
  1795
                  enabled: hasSpecClass
ca@1775
  1796
                  label: 'Menu Stub Methods'
ca@1775
  1797
                  itemValue: doGenerateMenuMethods
ca@1775
  1798
                  translateLabel: true
cg@1710
  1799
                )
ca@1775
  1800
               (MenuItem
ca@1775
  1801
                  label: '-'
cg@1710
  1802
                )
ca@1775
  1803
               (MenuItem
ca@1775
  1804
                  activeHelpKey: generateHookMethods
ca@1775
  1805
                  enabled: hasSpecClass
ca@1775
  1806
                  label: 'Hook Methods'
ca@1775
  1807
                  itemValue: doGenerateHookMethods
ca@1775
  1808
                  translateLabel: true
cg@1710
  1809
                )
cg@1710
  1810
               )
cg@1710
  1811
              nil
cg@1710
  1812
              nil
cg@1498
  1813
            )
cg@1710
  1814
          )
ca@1775
  1815
         (MenuItem
ca@1775
  1816
            label: 'Test'
ca@1775
  1817
            translateLabel: true
ca@1775
  1818
            submenu: 
ca@1775
  1819
           (Menu
ca@1775
  1820
              (
ca@1775
  1821
               (MenuItem
ca@1775
  1822
                  activeHelpKey: testStartApplication
ca@1775
  1823
                  label: 'Start Application'
ca@1775
  1824
                  itemValue: doStartApplication
ca@1775
  1825
                  translateLabel: true
cg@2198
  1826
                  isVisible: isNotEditingSpecOnly
cg@1710
  1827
                )
ca@1775
  1828
               (MenuItem
ca@1775
  1829
                  label: '-'
cg@2198
  1830
                  isVisible: isNotEditingSpecOnly
cg@1710
  1831
                )
ca@1775
  1832
               (MenuItem
ca@1775
  1833
                  activeHelpKey: testGeometryTestMode
cg@2883
  1834
                  label: 'Geometry Test/Set Mode'
ca@1775
  1835
                  translateLabel: true
ca@1775
  1836
                  indication: testMode:
cg@1710
  1837
                )
cg@1710
  1838
               )
cg@1710
  1839
              nil
cg@1710
  1840
              nil
cg@1498
  1841
            )
cg@1710
  1842
          )
ca@1775
  1843
         (MenuItem
ca@1775
  1844
            label: 'Settings'
ca@1775
  1845
            translateLabel: true
ca@1775
  1846
            submenu: 
ca@1775
  1847
           (Menu
ca@1775
  1848
              (
ca@1775
  1849
               (MenuItem
cg@2243
  1850
                  activeHelpKey: settingsAspectsAsInstances
cg@2243
  1851
                  label: 'Aspects as InstanceVariables'
cg@2243
  1852
                  translateLabel: true
cg@2243
  1853
                  isVisible: isNotEditingSpecOnly
cg@2243
  1854
                  indication: generateAspectsAsInstanceVariables:
cg@2243
  1855
                )
cg@2243
  1856
               (MenuItem
ca@1775
  1857
                  activeHelpKey: settingsRedefineAspectMethods
ca@1775
  1858
                  label: 'Redefine Aspect Methods'
ca@1775
  1859
                  translateLabel: true
cg@2243
  1860
                  isVisible: isNotEditingSpecOnly
ca@1775
  1861
                  indication: redefineAspectMethods:
cg@1710
  1862
                )
ca@1775
  1863
               (MenuItem
cg@2243
  1864
                  activeHelpKey: settingsGenerateCommentedCode
cg@2243
  1865
                  label: 'Generate Commented Code'
ca@1775
  1866
                  translateLabel: true
cg@2198
  1867
                  isVisible: isNotEditingSpecOnly
cg@2243
  1868
                  indication: generateCommentedCode:
cg@1710
  1869
                )
ca@1775
  1870
               (MenuItem
ca@1775
  1871
                  label: 'AutoAccept on Selection-Change '
ca@1775
  1872
                  translateLabel: true
ca@1775
  1873
                  indication: autoAcceptOnSelectionChange
cg@1710
  1874
                )
ca@1775
  1875
               (MenuItem
ca@1775
  1876
                  label: '-'
cg@1710
  1877
                )
ca@1775
  1878
               (MenuItem
ca@1775
  1879
                  activeHelpKey: settingsUndoManager
ca@1775
  1880
                  enabled: hasUndoHistory
ca@1775
  1881
                  label: 'Undo Manager...'
ca@1775
  1882
                  itemValue: openUndoMenu
ca@1775
  1883
                  translateLabel: true
cg@1710
  1884
                )
ca@1775
  1885
               (MenuItem
ca@1775
  1886
                  activeHelpKey: settingsGridManager
ca@1775
  1887
                  label: 'Grid Manager...'
ca@1775
  1888
                  itemValue: doDefineGrid
ca@1775
  1889
                  translateLabel: true
cg@1710
  1890
                )
cg@1710
  1891
               )
cg@1710
  1892
              nil
cg@1710
  1893
              nil
cg@1498
  1894
            )
cg@1710
  1895
          )
ca@1775
  1896
         (MenuItem
ca@1775
  1897
            label: 'History'
ca@1775
  1898
            translateLabel: true
cg@2023
  1899
            isVisible: isStandAlone
ca@1775
  1900
            submenuChannel: menuHistory
cg@1710
  1901
          )
ca@1775
  1902
         (MenuItem
cg@2138
  1903
            label: 'MENU_Help'
ca@1775
  1904
            translateLabel: true
cg@2124
  1905
            startGroup: conditionalRight
ca@1775
  1906
            submenu: 
ca@1775
  1907
           (Menu
ca@1775
  1908
              (
ca@1775
  1909
               (MenuItem
ca@1775
  1910
                  activeHelpKey: helpTutorial
ca@1775
  1911
                  label: 'Tutorial'
ca@1775
  1912
                  itemValue: openHTMLDocument:
ca@1775
  1913
                  translateLabel: true
ca@1775
  1914
                  argument: 'tools/uipainter/TOP.html'
cg@1498
  1915
                )
ca@1775
  1916
               (MenuItem
ca@1775
  1917
                  label: '-'
cg@1710
  1918
                )
ca@1775
  1919
               (MenuItem
ca@1775
  1920
                  activeHelpKey: helpFunctions
ca@1775
  1921
                  label: 'Functions'
ca@1775
  1922
                  itemValue: openHTMLDocument:
ca@1775
  1923
                  translateLabel: true
ca@1775
  1924
                  argument: 'tools/uipainter/Functions.html'
cg@1710
  1925
                )
ca@1775
  1926
               (MenuItem
ca@1775
  1927
                  activeHelpKey: helpExamples
ca@1775
  1928
                  label: 'Examples'
ca@1775
  1929
                  itemValue: openHTMLDocument:
ca@1775
  1930
                  translateLabel: true
ca@1775
  1931
                  argument: 'tools/uipainter/Examples.html'
cg@1710
  1932
                )
ca@1775
  1933
               (MenuItem
ca@1775
  1934
                  label: '-'
cg@1710
  1935
                )
ca@1775
  1936
               (MenuItem
ca@1775
  1937
                  activeHelpKey: helpHelpTool
ca@1775
  1938
                  label: 'Help Tool'
ca@1775
  1939
                  itemValue: openHTMLDocument:
ca@1775
  1940
                  translateLabel: true
ca@1775
  1941
                  argument: 'tools/uipainter/HelpTool.html'
cg@1710
  1942
                )
ca@1775
  1943
               (MenuItem
ca@1775
  1944
                  activeHelpKey: helpLayoutTool
ca@1775
  1945
                  label: 'Layout Tool'
ca@1775
  1946
                  itemValue: openHTMLDocument:
ca@1775
  1947
                  translateLabel: true
ca@1775
  1948
                  argument: 'tools/uipainter/LayoutTool.html'
cg@1710
  1949
                )
ca@1775
  1950
               (MenuItem
ca@1775
  1951
                  label: '-'
cg@1710
  1952
                )
ca@1775
  1953
               (MenuItem
ca@1775
  1954
                  activeHelpKey: helpSelectedWidget
ca@1775
  1955
                  label: 'Selected Widget'
ca@1775
  1956
                  itemValue: doOpenWidgetDocumentation
ca@1775
  1957
                  translateLabel: true
cg@1710
  1958
                )
ca@1775
  1959
               (MenuItem
ca@1775
  1960
                  label: '-'
cg@1710
  1961
                )
ca@1775
  1962
               (MenuItem
ca@1775
  1963
                  activeHelpKey: helpShowHelp
ca@1775
  1964
                  label: 'Show Help Texts'
ca@1775
  1965
                  translateLabel: true
ca@1775
  1966
                  indication: showingHelp:
cg@1710
  1967
                )
ca@1775
  1968
               (MenuItem
ca@1775
  1969
                  label: '-'
cg@1710
  1970
                )
ca@1775
  1971
               (MenuItem
ca@1775
  1972
                  activeHelpKey: aboutThisAppliaction
ca@1775
  1973
                  label: 'About this Application...'
ca@1775
  1974
                  itemValue: openAboutThisApplication
ca@1775
  1975
                  translateLabel: true
cg@1710
  1976
                )
cg@1710
  1977
               )
cg@1710
  1978
              nil
cg@1710
  1979
              nil
cg@1498
  1980
            )
cg@1710
  1981
          )
cg@1710
  1982
         )
cg@1710
  1983
        nil
cg@1710
  1984
        nil
tz@564
  1985
      )
tz@564
  1986
!
tz@564
  1987
tz@446
  1988
menuAlign
tz@743
  1989
    "This resource specification was automatically generated
tz@743
  1990
     by the MenuEditor of ST/X."
tz@743
  1991
tz@778
  1992
    "Do not manually edit this!! If it is corrupted,
tz@743
  1993
     the MenuEditor may not be able to read the specification."
tz@446
  1994
tz@446
  1995
    "
tz@446
  1996
     MenuEditor new openOnClass:UIPainter andSelector:#menuAlign
tz@446
  1997
     (Menu new fromLiteralArrayEncoding:(UIPainter menuAlign)) startUp
tz@446
  1998
    "
tz@446
  1999
tz@446
  2000
    <resource: #menu>
tz@446
  2001
cg@1862
  2002
    ^ 
cg@1862
  2003
     #(Menu
cg@1862
  2004
        (
cg@1862
  2005
         (MenuItem
cg@1862
  2006
            activeHelpKey: alignSelectionLeft
cg@1862
  2007
            enabled: canMoveOrAlignSelection
cg@1862
  2008
            label: 'Left'
cg@1862
  2009
            itemValue: alignSelectionLeft
cg@1862
  2010
            translateLabel: true
cg@1862
  2011
            labelImage: (ResourceRetriever UIPainter iconAlignL 'Left')
cg@1862
  2012
          )
cg@1862
  2013
         (MenuItem
cg@1862
  2014
            activeHelpKey: alignSelectionRight
cg@1862
  2015
            enabled: canMoveOrAlignSelection
cg@1862
  2016
            label: 'Right'
cg@1862
  2017
            itemValue: alignSelectionRight
cg@1862
  2018
            translateLabel: true
cg@1862
  2019
            labelImage: (ResourceRetriever UIPainter iconAlignR 'Right')
cg@1862
  2020
          )
cg@1862
  2021
         (MenuItem
cg@1862
  2022
            activeHelpKey: alignSelectionTop
cg@1862
  2023
            enabled: canMoveOrAlignSelection
cg@1862
  2024
            label: 'Top'
cg@1862
  2025
            itemValue: alignSelectionTop
cg@1862
  2026
            translateLabel: true
cg@1862
  2027
            labelImage: (ResourceRetriever UIPainter iconAlignT 'Top')
cg@1862
  2028
          )
cg@1862
  2029
         (MenuItem
cg@1862
  2030
            activeHelpKey: alignSelectionBottom
cg@1862
  2031
            enabled: canMoveOrAlignSelection
cg@1862
  2032
            label: 'Bottom'
cg@1862
  2033
            itemValue: alignSelectionBottom
cg@1862
  2034
            translateLabel: true
cg@1862
  2035
            labelImage: (ResourceRetriever UIPainter iconAlignB 'Bottom')
cg@1862
  2036
          )
cg@1862
  2037
         (MenuItem
cg@2361
  2038
            label: '-'
cg@2361
  2039
          )
cg@2361
  2040
         (MenuItem
cg@2361
  2041
            activeHelpKey: alignResizeSelectionLeft
cg@2361
  2042
            enabled: canMoveOrAlignSelection
cg@2361
  2043
            label: 'Resize Left'
cg@2361
  2044
            itemValue: alignResizeSelectionLeft
cg@2361
  2045
            translateLabel: true
cg@2361
  2046
            labelImage: (ResourceRetriever UIPainter iconResizeL 'Resize Left')
cg@2361
  2047
          )
cg@2361
  2048
         (MenuItem
cg@2361
  2049
            activeHelpKey: alignResizeSelectionRight
cg@2361
  2050
            enabled: canMoveOrAlignSelection
cg@2361
  2051
            label: 'Resize Right'
cg@2361
  2052
            itemValue: alignResizeSelectionRight
cg@2361
  2053
            translateLabel: true
cg@2361
  2054
            labelImage: (ResourceRetriever UIPainter iconResizeR 'Resize Right')
cg@2361
  2055
          )
cg@2361
  2056
         (MenuItem
cg@2361
  2057
            activeHelpKey: alignResizeSelectionTop
cg@2361
  2058
            enabled: canMoveOrAlignSelection
cg@2361
  2059
            label: 'Resize Top'
cg@2361
  2060
            itemValue: alignResizeSelectionTop
cg@2361
  2061
            translateLabel: true
cg@2361
  2062
            labelImage: (ResourceRetriever UIPainter iconResizeT 'Resize Top')
cg@2361
  2063
          )
cg@2361
  2064
         (MenuItem
cg@2361
  2065
            activeHelpKey: alignResizeSelectionBottom
cg@2361
  2066
            enabled: canMoveOrAlignSelection
cg@2361
  2067
            label: 'Resize Bottom'
cg@2361
  2068
            itemValue: alignResizeSelectionBottom
cg@2361
  2069
            translateLabel: true
cg@2361
  2070
            labelImage: (ResourceRetriever UIPainter iconResizeB 'Resize Bottom')
cg@2361
  2071
          )
cg@2361
  2072
         (MenuItem
cg@2361
  2073
            activeHelpKey: alignSelectionLeftAndRight
sv@2479
  2074
            enabled: canResizeSelection
cg@2361
  2075
            label: 'Left && Right'
cg@2361
  2076
            itemValue: alignSelectionLeftAndRight
cg@2361
  2077
            translateLabel: true
cg@2361
  2078
            labelImage: (ResourceRetriever UIPainter iconResizeLR 'Left && Right')
cg@2361
  2079
          )
cg@2361
  2080
         (MenuItem
cg@1862
  2081
            activeHelpKey: alignSelectionTopAndBottom
sv@2479
  2082
            enabled: canResizeSelection
cg@1862
  2083
            label: 'Top && Bottom'
cg@1862
  2084
            itemValue: alignSelectionTopAndBottom
cg@1862
  2085
            translateLabel: true
cg@2361
  2086
            labelImage: (ResourceRetriever UIPainter iconResizeTB 'Top && Bottom')
cg@1862
  2087
          )
cg@1862
  2088
         (MenuItem
cg@1862
  2089
            label: '-'
cg@1862
  2090
          )
cg@1862
  2091
         (MenuItem
cg@1862
  2092
            activeHelpKey: alignSelectionCenterHor
cg@1862
  2093
            enabled: canMoveOrAlignSelection
cg@1862
  2094
            label: 'Center Horizontal'
cg@1862
  2095
            itemValue: alignSelectionCenterHor
cg@1862
  2096
            translateLabel: true
cg@2361
  2097
            labelImage: (ResourceRetriever UIPainter iconCenterH 'Center Horizontal')
cg@1862
  2098
          )
cg@1862
  2099
         (MenuItem
cg@1862
  2100
            activeHelpKey: centerSelectionHor
cg@1862
  2101
            enabled: canMoveOrAlignSelection
cg@1862
  2102
            label: 'Center Horizontal in Frame'
cg@1862
  2103
            itemValue: centerSelectionHor
cg@1862
  2104
            translateLabel: true
cg@2361
  2105
            labelImage: (ResourceRetriever UIPainter iconCenterHInFrame 'Center Horizontal in Frame')
cg@1862
  2106
          )
cg@1862
  2107
         (MenuItem
cg@1862
  2108
            activeHelpKey: alignSelectionCenterVer
cg@1862
  2109
            enabled: canMoveOrAlignSelection
cg@1862
  2110
            label: 'Center Vertical'
cg@1862
  2111
            itemValue: alignSelectionCenterVer
cg@1862
  2112
            translateLabel: true
cg@2361
  2113
            labelImage: (ResourceRetriever UIPainter iconCenterV 'Center Vertical')
cg@1862
  2114
          )
cg@1862
  2115
         (MenuItem
cg@1862
  2116
            activeHelpKey: centerSelectionVer
cg@1862
  2117
            enabled: canMoveOrAlignSelection
cg@1862
  2118
            label: 'Center Vertical in Frame'
cg@1862
  2119
            itemValue: centerSelectionVer
cg@1862
  2120
            translateLabel: true
cg@2361
  2121
            labelImage: (ResourceRetriever UIPainter iconCenterVInFrame 'Center Vertical in Frame')
cg@1862
  2122
          )
cg@1862
  2123
         (MenuItem
cg@1862
  2124
            label: '-'
cg@1862
  2125
          )
cg@1862
  2126
         (MenuItem
cg@1862
  2127
            activeHelpKey: spreadSelectionHor
cg@1862
  2128
            enabled: canMoveOrAlignSelection
cg@1862
  2129
            label: 'Distribute Horizontal'
cg@1862
  2130
            itemValue: spreadSelectionHor
cg@1862
  2131
            translateLabel: true
cg@2361
  2132
            labelImage: (ResourceRetriever UIPainter iconDistributeH 'Distribute Horizontal')
cg@1862
  2133
          )
cg@1862
  2134
         (MenuItem
cg@1862
  2135
            activeHelpKey: spreadSelectionVer
cg@1862
  2136
            enabled: canMoveOrAlignSelection
cg@1862
  2137
            label: 'Distribute Vertical'
cg@1862
  2138
            itemValue: spreadSelectionVer
cg@1862
  2139
            translateLabel: true
cg@2361
  2140
            labelImage: (ResourceRetriever UIPainter iconDistributeV 'Distribute Vertical')
cg@1862
  2141
          )
cg@1862
  2142
         )
cg@1862
  2143
        nil
cg@1862
  2144
        nil
tz@446
  2145
      )
tz@446
  2146
!
tz@446
  2147
tz@446
  2148
menuEdit
tz@743
  2149
    "This resource specification was automatically generated
tz@743
  2150
     by the MenuEditor of ST/X."
tz@743
  2151
tz@755
  2152
    "Do not manually edit this!! If it is corrupted,
tz@743
  2153
     the MenuEditor may not be able to read the specification."
tz@446
  2154
tz@446
  2155
    "
tz@446
  2156
     MenuEditor new openOnClass:UIPainter andSelector:#menuEdit
tz@446
  2157
     (Menu new fromLiteralArrayEncoding:(UIPainter menuEdit)) startUp
tz@446
  2158
    "
tz@446
  2159
tz@446
  2160
    <resource: #menu>
tz@446
  2161
werner@1827
  2162
    ^ 
werner@1827
  2163
     #(Menu
werner@1827
  2164
        (
werner@1827
  2165
         (MenuItem
werner@1827
  2166
            activeHelpKey: editUndo
werner@1827
  2167
            enabled: hasUndoHistory
werner@1827
  2168
            label: 'Undo'
werner@1827
  2169
            itemValue: undoLast
werner@1827
  2170
            nameKey: undo
werner@1827
  2171
            translateLabel: true
werner@1827
  2172
          )
werner@1827
  2173
         (MenuItem
werner@1827
  2174
            label: '-'
werner@1827
  2175
          )
werner@1827
  2176
         (MenuItem
werner@1827
  2177
            activeHelpKey: editCut
cg@1991
  2178
            enabled: canCutHolder
werner@1827
  2179
            label: 'Cut'
werner@1827
  2180
            itemValue: deleteSelection
werner@1827
  2181
            translateLabel: true
werner@1827
  2182
          )
werner@1827
  2183
         (MenuItem
werner@1827
  2184
            activeHelpKey: editCopy
cg@1991
  2185
            enabled: canCopyHolder
werner@1827
  2186
            label: 'Copy'
werner@1827
  2187
            itemValue: copySelection
werner@1827
  2188
            translateLabel: true
werner@1827
  2189
          )
werner@1827
  2190
         (MenuItem
cg@2319
  2191
            activeHelpKey: editPaste
cg@1991
  2192
            enabled: canPasteHolder
werner@1827
  2193
            label: 'Paste'
werner@1827
  2194
            itemValue: pasteBuffer
werner@1827
  2195
            translateLabel: true
werner@1827
  2196
          )
werner@1827
  2197
         (MenuItem
werner@1827
  2198
            activeHelpKey: pasteWithLayout
cg@1991
  2199
            enabled: canPasteKeepingLayoutHolder
cg@2425
  2200
            label: 'Paste with Layout'
cg@2370
  2201
            itemValue: pasteWithLayout
werner@1827
  2202
            translateLabel: true
werner@1827
  2203
          )
werner@1827
  2204
         (MenuItem
werner@1827
  2205
            activeHelpKey: editPaste
cg@1991
  2206
            enabled: canPasteKeepingLayoutHolder
werner@1827
  2207
            label: 'Paste Keeping Absolute Position'
werner@1827
  2208
            itemValue: pasteKeepingPosition
werner@1827
  2209
            translateLabel: true
werner@1827
  2210
          )
werner@1827
  2211
         (MenuItem
cg@1940
  2212
            activeHelpKey: editDelete
cg@1991
  2213
            enabled: canCutHolder
cg@1940
  2214
            label: 'Delete'
cg@1940
  2215
            itemValue: deleteTotalSelection
cg@1940
  2216
            translateLabel: true
cg@1940
  2217
          )
cg@1940
  2218
         (MenuItem
cg@2319
  2219
            activeHelpKey: replaceBy
cg@2023
  2220
            enabled: canReplaceSelection
cg@2426
  2221
            label: 'Replace By...'
cg@2023
  2222
            itemValue: doAskAndReplaceWidgetBy
cg@1940
  2223
            translateLabel: true
cg@1940
  2224
          )
cg@1940
  2225
         (MenuItem
werner@1827
  2226
            label: '-'
werner@1827
  2227
          )
werner@1827
  2228
         (MenuItem
werner@1827
  2229
            enabled: canMoveSelection
werner@1827
  2230
            label: 'Move'
werner@1827
  2231
            translateLabel: true
werner@1827
  2232
            submenuChannel: menuMove
werner@1827
  2233
          )
werner@1827
  2234
         (MenuItem
cg@2361
  2235
            enabled: canMoveOrAlignSelection
cg@2361
  2236
            label: 'Align'
cg@2361
  2237
            translateLabel: true
cg@2361
  2238
            submenuChannel: menuAlign
cg@2361
  2239
          )
cg@2361
  2240
         (MenuItem
werner@1827
  2241
            enabled: hasSelection
werner@1827
  2242
            label: 'Dimension'
werner@1827
  2243
            translateLabel: true
werner@1827
  2244
            submenu: 
werner@1827
  2245
           (Menu
werner@1827
  2246
              (
werner@1827
  2247
               (MenuItem
werner@1827
  2248
                  activeHelpKey: editDimensionCopyLayout
werner@1827
  2249
                  enabled: hasSingleSelection
werner@1827
  2250
                  label: 'Copy Layout'
werner@1827
  2251
                  itemValue: copyLayout
werner@1827
  2252
                  translateLabel: true
werner@1827
  2253
                )
werner@1827
  2254
               (MenuItem
werner@1827
  2255
                  activeHelpKey: editDimensionPasteLayout
werner@1827
  2256
                  enabled: canMoveOrAlignSelection
werner@1827
  2257
                  label: 'Paste Layout'
werner@1827
  2258
                  itemValue: pasteLayout
werner@1827
  2259
                  translateLabel: true
werner@1827
  2260
                )
werner@1827
  2261
               (MenuItem
werner@1827
  2262
                  activeHelpKey: editDimensionExchangeLayouts
werner@1827
  2263
                  enabled: canExchangeSelectionLayouts
werner@1827
  2264
                  label: 'Exchange Layouts'
werner@1827
  2265
                  itemValue: exchangeLayouts
werner@1827
  2266
                  translateLabel: true
werner@1827
  2267
                )
werner@1827
  2268
               (MenuItem
werner@1827
  2269
                  label: '-'
werner@1827
  2270
                )
werner@1827
  2271
               (MenuItem
werner@1827
  2272
                  activeHelpKey: editDimensionCopyExtent
werner@1827
  2273
                  enabled: hasSingleSelection
werner@1827
  2274
                  label: 'Copy Extent'
werner@1827
  2275
                  itemValue: copyExtent
werner@1827
  2276
                  translateLabel: true
werner@1827
  2277
                )
werner@1827
  2278
               (MenuItem
werner@1827
  2279
                  activeHelpKey: editDimensionPasteExtent
werner@1827
  2280
                  enabled: canMoveOrAlignSelection
werner@1827
  2281
                  label: 'Paste Extent'
werner@1827
  2282
                  itemValue: pasteExtent
werner@1827
  2283
                  translateLabel: true
werner@1827
  2284
                )
werner@1827
  2285
               (MenuItem
werner@1827
  2286
                  activeHelpKey: editDimensionPasteWidth
werner@1827
  2287
                  enabled: canMoveOrAlignSelection
werner@1827
  2288
                  label: 'Paste Width'
werner@1827
  2289
                  itemValue: pasteWidth
werner@1827
  2290
                  translateLabel: true
werner@1827
  2291
                )
werner@1827
  2292
               (MenuItem
werner@1827
  2293
                  activeHelpKey: editDimensionPasteHeight
werner@1827
  2294
                  enabled: canMoveOrAlignSelection
werner@1827
  2295
                  label: 'Paste Height'
werner@1827
  2296
                  itemValue: pasteHeight
werner@1827
  2297
                  translateLabel: true
werner@1827
  2298
                )
cg@2361
  2299
               (MenuItem
cg@2361
  2300
                  label: '-'
cg@2361
  2301
                )
cg@2361
  2302
               (MenuItem
cg@2361
  2303
                  activeHelpKey: editDimensionDefaultExtent
cg@2361
  2304
                  enabled: canMoveOrAlignSelection
cg@2361
  2305
                  label: 'Set Default Extent'
cg@2361
  2306
                  itemValue: setToDefaultExtent
cg@2361
  2307
                  translateLabel: true
cg@2361
  2308
                )
cg@2361
  2309
               (MenuItem
cg@2361
  2310
                  activeHelpKey: editDimensionDefaultWidth
cg@2361
  2311
                  enabled: canMoveOrAlignSelection
cg@2361
  2312
                  label: 'Set Default Width'
cg@2361
  2313
                  itemValue: setToDefaultWidth
cg@2361
  2314
                  translateLabel: true
cg@2361
  2315
                )
cg@2361
  2316
               (MenuItem
cg@2361
  2317
                  activeHelpKey: editDimensionDefaultHeight
cg@2361
  2318
                  enabled: canMoveOrAlignSelection
cg@2361
  2319
                  label: 'Set Default Height'
cg@2361
  2320
                  itemValue: setToDefaultHeight
cg@2361
  2321
                  translateLabel: true
cg@2361
  2322
                )
werner@1827
  2323
               )
werner@1827
  2324
              nil
werner@1827
  2325
              nil
cg@1230
  2326
            )
werner@1827
  2327
          )
werner@1827
  2328
         (MenuItem
werner@1827
  2329
            label: '-'
werner@1827
  2330
          )
werner@1827
  2331
         (MenuItem
werner@1827
  2332
            activeHelpKey: editOpenSpecDocumentation
werner@1827
  2333
            label: 'Open Widget Documentation'
werner@1827
  2334
            itemValue: doOpenWidgetDocumentation
werner@1827
  2335
            translateLabel: true
werner@1827
  2336
          )
werner@1827
  2337
         (MenuItem
werner@1827
  2338
            activeHelpKey: referToCOnfigDatabase
werner@1827
  2339
            label: 'Refer to Config Database'
werner@1827
  2340
            itemValue: configSelection
werner@1827
  2341
            translateLabel: true
werner@1827
  2342
            isVisible: false
werner@1827
  2343
          )
werner@1827
  2344
         (MenuItem
werner@1827
  2345
            label: '-'
werner@1827
  2346
            isVisible: false
werner@1827
  2347
          )
werner@1827
  2348
         (MenuItem
werner@1827
  2349
            activeHelpKey: drawEdit
werner@1827
  2350
            label: 'Draw Edit'
werner@1827
  2351
            itemValue: shapeEdit
werner@1827
  2352
            translateLabel: true
werner@1827
  2353
            isVisible: false
werner@1827
  2354
          )
werner@1827
  2355
         (MenuItem
werner@1827
  2356
            label: '-'
werner@1827
  2357
          )
werner@1827
  2358
         (MenuItem
sv@2310
  2359
            activeHelpKey: sortItems
cg@2500
  2360
            label: 'Sort Selected Items by Position'
sv@2310
  2361
            itemValue: doSortItems
sv@2310
  2362
            translateLabel: true
sv@2310
  2363
          )
cg@2319
  2364
"/         (MenuItem
cg@2319
  2365
"/            label: 'Action'
cg@2319
  2366
"/            translateLabel: true
cg@2319
  2367
"/          )
werner@1827
  2368
         (MenuItem
werner@1827
  2369
            activeHelpKey: groupWithLayout
ca@2393
  2370
            enabled: canGroup
werner@1827
  2371
            label: 'Group with Layout'
werner@1827
  2372
            itemValue: groupWithLayout
werner@1827
  2373
            translateLabel: true
werner@1827
  2374
          )
werner@1827
  2375
         (MenuItem
werner@1827
  2376
            activeHelpKey: ungroup
ca@2393
  2377
            enabled: canUngroup
werner@1827
  2378
            label: 'Ungroup'
werner@1827
  2379
            itemValue: ungroup
werner@1827
  2380
            translateLabel: true
werner@1827
  2381
          )
werner@1827
  2382
         (MenuItem
werner@1827
  2383
            activeHelpKey: ungroupWithLayout
ca@2393
  2384
            enabled: canGroup
werner@1827
  2385
            label: 'Ungroup with Layout'
werner@1827
  2386
            itemValue: ungroupWithLayout
werner@1827
  2387
            translateLabel: true
werner@1827
  2388
          )
werner@1827
  2389
         (MenuItem
werner@1827
  2390
            label: '-'
werner@1827
  2391
          )
werner@1827
  2392
         (MenuItem
werner@1827
  2393
            activeHelpKey: editBrowseViewClass
werner@1827
  2394
            enabled: hasOneSelectionOtherThanCanvas
werner@1827
  2395
            label: 'Browse Widget Class'
werner@1827
  2396
            itemValue: doBrowseViewClass
werner@1827
  2397
            translateLabel: true
werner@1827
  2398
          )
werner@1827
  2399
         (MenuItem
werner@1827
  2400
            activeHelpKey: editInspectView
werner@1827
  2401
            enabled: hasOneSelectionOtherThanCanvas
werner@1827
  2402
            label: 'Inspect Widget'
werner@1827
  2403
            itemValue: doInspectView
werner@1827
  2404
            translateLabel: true
werner@1827
  2405
          )
werner@1827
  2406
         (MenuItem
sv@2310
  2407
            activeHelpKey: editBrowseViewClass
sv@2310
  2408
            label: 'Browse Specification Class'
sv@2310
  2409
            itemValue: doBrowseSpecificationClass
sv@2310
  2410
            translateLabel: true
sv@2310
  2411
          )
sv@2310
  2412
         (MenuItem
werner@1827
  2413
            activeHelpKey: editInspectSpec
werner@1827
  2414
            label: 'Inspect Spec'
werner@1827
  2415
            itemValue: doInspectSpec
werner@1827
  2416
            translateLabel: true
werner@1827
  2417
          )
werner@1827
  2418
         )
werner@1827
  2419
        nil
werner@1827
  2420
        nil
tz@446
  2421
      )
tz@446
  2422
!
tz@446
  2423
cg@2277
  2424
menuFile
cg@2277
  2425
    "This resource specification was automatically generated
cg@2277
  2426
     by the MenuEditor of ST/X."
cg@2277
  2427
cg@2277
  2428
    "Do not manually edit this!! If it is corrupted,
cg@2277
  2429
     the MenuEditor may not be able to read the specification."
cg@2277
  2430
cg@2277
  2431
    "
cg@2277
  2432
     MenuEditor new openOnClass:UIPainter andSelector:#menuFile
cg@2277
  2433
     (Menu new fromLiteralArrayEncoding:(UIPainter menuFile)) startUp
cg@2277
  2434
    "
cg@2277
  2435
cg@2277
  2436
    <resource: #menu>
cg@2277
  2437
cg@2277
  2438
    ^ 
cg@2277
  2439
     #(Menu
cg@2277
  2440
              (
cg@2277
  2441
               (MenuItem
cg@2277
  2442
                  activeHelpKey: fileNew
cg@2277
  2443
                  label: 'New'
cg@2277
  2444
                  itemValue: doNew
cg@2277
  2445
                  translateLabel: true
cg@2277
  2446
                  isVisible: isStandAlone
cg@2277
  2447
                )
cg@2277
  2448
               (MenuItem
cg@2277
  2449
                  label: '-'
cg@2277
  2450
                  isVisible: isStandAlone
cg@2277
  2451
                )
cg@2277
  2452
               (MenuItem
cg@2277
  2453
                  activeHelpKey: fileLoad
cg@2277
  2454
                  label: 'Load...'
cg@2277
  2455
                  itemValue: doLoad
cg@2277
  2456
                  translateLabel: true
cg@2277
  2457
                  isVisible: isStandAlone
cg@2277
  2458
                )
cg@2277
  2459
               (MenuItem
cg@2277
  2460
                  activeHelpKey: fileLoadSubspec
cg@2277
  2461
                  label: 'Load Subspec...'
cg@2277
  2462
                  itemValue: doLoadSubspec
cg@2277
  2463
                  translateLabel: true
cg@2277
  2464
                  isVisible: isStandAlone
cg@2277
  2465
                )
cg@2277
  2466
               (MenuItem
cg@2277
  2467
                  label: '-'
cg@2277
  2468
                  isVisible: isStandAlone
cg@2277
  2469
                )
cg@2277
  2470
               (MenuItem
cg@2277
  2471
                  activeHelpKey: fileSave
cg@2277
  2472
                  label: 'Save'
cg@2277
  2473
                  itemValue: doSave
cg@2277
  2474
                  translateLabel: true
cg@2277
  2475
                )
cg@2277
  2476
               (MenuItem
cg@2277
  2477
                  activeHelpKey: fileSaveAs
cg@2277
  2478
                  label: 'Save As...'
cg@2277
  2479
                  itemValue: doSaveAs
cg@2277
  2480
                  translateLabel: true
cg@2277
  2481
                )
cg@2277
  2482
               (MenuItem
cg@2277
  2483
                  label: '-'
cg@2277
  2484
                )
cg@2277
  2485
               (MenuItem
cg@2277
  2486
                  activeHelpKey: fileSaveAs
cg@2277
  2487
                  label: 'Define Class and Selector...'
cg@2277
  2488
                  itemValue: doDefineClassAndSelector
cg@2277
  2489
                  translateLabel: true
cg@2277
  2490
                  isVisible: isStandAlone
cg@2277
  2491
                )
cg@2277
  2492
               (MenuItem
cg@2277
  2493
                  activeHelpKey: filePickAnInterface
cg@2277
  2494
                  label: 'Pick a Window Spec...'
cg@2277
  2495
                  itemValue: doPickAView
cg@2277
  2496
                  translateLabel: true
cg@2277
  2497
                )
cg@2277
  2498
               (MenuItem
cg@2277
  2499
                  label: '-'
cg@2277
  2500
                )
cg@2277
  2501
               (MenuItem
cg@2277
  2502
                  label: 'Launch'
cg@2277
  2503
                  itemValue: doStartApplication
cg@2277
  2504
                  translateLabel: true
cg@2277
  2505
                )
cg@2277
  2506
               (MenuItem
cg@2277
  2507
                  enabled: canInstallAsWebPageHolder
cg@2277
  2508
                  label: 'Install as WebPage'
cg@2277
  2509
                  itemValue: doInstallAsWebPage
cg@2277
  2510
                  translateLabel: true
cg@2277
  2511
                )
cg@2277
  2512
               (MenuItem
cg@2277
  2513
                  label: '-'
cg@2277
  2514
                )
cg@2277
  2515
               (MenuItem
cg@2277
  2516
                  activeHelpKey: fileShowWindowSpec
cg@2277
  2517
                  label: 'Show Window Spec'
cg@2277
  2518
                  itemValue: doWindowSpec
cg@2277
  2519
                  translateLabel: true
cg@2277
  2520
                  isVisible: isStandAlone
cg@2277
  2521
                )
cg@2277
  2522
               (MenuItem
cg@2277
  2523
                  activeHelpKey: fileBrowseClass
cg@2277
  2524
                  enabled: hasSpecClass
cg@2277
  2525
                  label: 'Browse Applications Class'
cg@2277
  2526
                  itemValue: doBrowseClass
cg@2277
  2527
                  translateLabel: true
cg@2277
  2528
                  isVisible: isStandAlone
cg@2277
  2529
                )
cg@2277
  2530
               (MenuItem
cg@2277
  2531
                  activeHelpKey: fileBrowseAspectMethods
cg@2277
  2532
                  enabled: hasSpecClass
cg@2277
  2533
                  label: 'Browse Applications Aspect Methods'
cg@2277
  2534
                  itemValue: doBrowseAspectMethods
cg@2277
  2535
                  translateLabel: true
cg@2277
  2536
                )
cg@2277
  2537
               (MenuItem
cg@2277
  2538
                  label: '-'
cg@2277
  2539
                  isVisible: isStandAlone
cg@2277
  2540
                )
cg@2277
  2541
               (MenuItem
cg@2277
  2542
                  activeHelpKey: fileExit
cg@2277
  2543
                  label: 'Exit'
cg@2277
  2544
                  itemValue: closeRequest
cg@2277
  2545
                  translateLabel: true
cg@2277
  2546
                  isVisible: isStandAlone
cg@2277
  2547
                )
cg@2277
  2548
               )
cg@2277
  2549
              nil
cg@2277
  2550
              nil
cg@2277
  2551
            )
cg@2277
  2552
!
cg@2277
  2553
tz@498
  2554
menuMove
tz@743
  2555
    "This resource specification was automatically generated
tz@743
  2556
     by the MenuEditor of ST/X."
tz@743
  2557
tz@755
  2558
    "Do not manually edit this!! If it is corrupted,
tz@743
  2559
     the MenuEditor may not be able to read the specification."
tz@446
  2560
tz@446
  2561
    "
tz@498
  2562
     MenuEditor new openOnClass:UIPainter andSelector:#menuMove
tz@498
  2563
     (Menu new fromLiteralArrayEncoding:(UIPainter menuMove)) startUp
tz@446
  2564
    "
tz@446
  2565
tz@446
  2566
    <resource: #menu>
tz@446
  2567
tz@446
  2568
    ^
tz@446
  2569
     
tz@446
  2570
       #(#Menu
tz@446
  2571
          
sv@2217
  2572
           #(
sv@2217
  2573
             #(#MenuItem
sv@2217
  2574
                #label: 'Up'
sv@2217
  2575
                #translateLabel: true
sv@2217
  2576
                #value: #doStepUp
sv@2217
  2577
                #activeHelpKey: #moveWidgetUp
sv@2217
  2578
                #enabled: #canChangeOrderInContainer
sv@2217
  2579
                #labelImage: #(#ResourceRetriever #Icon #upIcon 'Up')
sv@2217
  2580
            )
sv@2217
  2581
             #(#MenuItem
sv@2217
  2582
                #label: 'Down'
sv@2217
  2583
                #translateLabel: true
sv@2217
  2584
                #value: #doStepDown
sv@2217
  2585
                #activeHelpKey: #moveWidgetDown
sv@2217
  2586
                #enabled: #canChangeOrderInContainer
sv@2217
  2587
                #labelImage: #(#ResourceRetriever #Icon #downIcon 'Down')
sv@2217
  2588
            )
sv@2217
  2589
             #(#MenuItem
sv@2217
  2590
                #label: 'Into'
sv@2217
  2591
                #translateLabel: true
sv@2217
  2592
                #value: #doStepIn
sv@2217
  2593
                #activeHelpKey: #moveWidgetInto
sv@2217
  2594
                #enabled: #canMoveSelectionIntoContainer
sv@2217
  2595
                #labelImage: #(#ResourceRetriever #Icon #downRightIcon 'Into')
sv@2217
  2596
            )
sv@2217
  2597
             #(#MenuItem
sv@2217
  2598
                #label: 'Out'
sv@2217
  2599
                #translateLabel: true
sv@2217
  2600
                #value: #doStepOut
sv@2217
  2601
                #activeHelpKey: #moveWidgetOut
sv@2217
  2602
                #enabled: #canMoveSelectionOutOfContainer
sv@2217
  2603
                #labelImage: #(#ResourceRetriever #Icon #leftDownIcon 'Out')
sv@2217
  2604
            )
sv@2217
  2605
          ) nil
sv@2217
  2606
          nil
tz@498
  2607
      )
tz@498
  2608
!
tz@498
  2609
cg@1940
  2610
menuReplaceWidget
cg@1940
  2611
    "This resource specification was automatically generated
cg@1940
  2612
     by the MenuEditor of ST/X."
cg@1940
  2613
cg@1940
  2614
    "Do not manually edit this!! If it is corrupted,
cg@1940
  2615
     the MenuEditor may not be able to read the specification."
cg@1940
  2616
cg@1940
  2617
    "
cg@1940
  2618
     MenuEditor new openOnClass:UIPainter andSelector:#menuReplaceWidget
cg@1940
  2619
     (Menu new fromLiteralArrayEncoding:(UIPainter menuReplaceWidget)) startUp
cg@1940
  2620
    "
cg@1940
  2621
cg@1940
  2622
    <resource: #menu>
cg@1940
  2623
cg@1940
  2624
    ^ 
cg@1940
  2625
     #(Menu
cg@1940
  2626
        (
cg@1940
  2627
         (MenuItem
cg@2319
  2628
            activeHelpKey: replaceBy
cg@1940
  2629
            enabled: canChangeOrderInContainer
cg@2426
  2630
            label: 'Replace By...'
cg@1940
  2631
            itemValue: doAskAndReplaceWidgetBy
cg@1940
  2632
            translateLabel: true
cg@1940
  2633
          )
cg@1940
  2634
         )
cg@1940
  2635
        nil
cg@1940
  2636
        nil
cg@1940
  2637
      )
cg@1940
  2638
!
cg@1940
  2639
tz@498
  2640
menuToolbar
tz@743
  2641
    "This resource specification was automatically generated
tz@743
  2642
     by the MenuEditor of ST/X."
tz@743
  2643
tz@778
  2644
    "Do not manually edit this!! If it is corrupted,
tz@743
  2645
     the MenuEditor may not be able to read the specification."
tz@498
  2646
tz@498
  2647
    "
tz@498
  2648
     MenuEditor new openOnClass:UIPainter andSelector:#menuToolbar
tz@498
  2649
     (Menu new fromLiteralArrayEncoding:(UIPainter menuToolbar)) startUp
tz@498
  2650
    "
tz@498
  2651
tz@498
  2652
    <resource: #menu>
tz@498
  2653
cg@1690
  2654
    ^ 
cg@1750
  2655
     #(Menu
cg@1750
  2656
        (
cg@1750
  2657
         (MenuItem
cg@1750
  2658
            activeHelpKey: testStartApplication
cg@1750
  2659
            label: 'Start'
cg@1750
  2660
            itemValue: doStartApplication
cg@1750
  2661
            translateLabel: true
cg@1750
  2662
            isButton: true
cg@1750
  2663
            labelImage: (ResourceRetriever ToolbarIconLibrary start22x22Icon)
cg@1690
  2664
          )
cg@1750
  2665
         (MenuItem
cg@2243
  2666
            enabled: canInstallAsWebPageHolder
cg@2243
  2667
            label: 'Install as WebPage'
cg@2243
  2668
            itemValue: doInstallAsWebPage
cg@2243
  2669
            translateLabel: true
cg@2243
  2670
            isButton: true
cg@2243
  2671
            isVisible: installAsWebPageVisible
cg@2243
  2672
            labelImage: (ResourceRetriever XPToolbarIconLibrary installAsWebPage24x24Icon)
cg@2243
  2673
          )
cg@2243
  2674
         (MenuItem
cg@1917
  2675
            label: '-'
cg@1690
  2676
          )
cg@1750
  2677
         (MenuItem
cg@1750
  2678
            activeHelpKey: fileNew
cg@1750
  2679
            label: 'New'
cg@1750
  2680
            itemValue: doNew
cg@1750
  2681
            translateLabel: true
cg@1750
  2682
            isButton: true
cg@2023
  2683
            isVisible: isStandAlone
cg@2198
  2684
            labelImage: (ResourceRetriever ToolbarIconLibrary newWindowSpecIcon)
cg@1690
  2685
          )
cg@1750
  2686
         (MenuItem
cg@1950
  2687
            label: '-'
cg@2023
  2688
            isVisible: isStandAlone
cg@1950
  2689
          )
cg@1950
  2690
         (MenuItem
cg@1750
  2691
            activeHelpKey: fileLoad
cg@1750
  2692
            label: 'Load'
cg@1750
  2693
            itemValue: doLoad
cg@1750
  2694
            translateLabel: true
cg@1750
  2695
            isButton: true
cg@2023
  2696
            isVisible: isStandAlone
cg@2198
  2697
            labelImage: (ResourceRetriever ToolbarIconLibrary loadFromMethodIcon)
cg@1690
  2698
          )
cg@1750
  2699
         (MenuItem
cg@1750
  2700
            activeHelpKey: fileSave
cg@1750
  2701
            label: 'Save'
cg@1750
  2702
            itemValue: doSave
cg@1750
  2703
            translateLabel: true
cg@1750
  2704
            isButton: true
cg@1883
  2705
            labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon)
cg@1690
  2706
          )
cg@1750
  2707
         (MenuItem
cg@1917
  2708
            label: '-'
cg@1917
  2709
          )
cg@1917
  2710
         (MenuItem
cg@2500
  2711
            label: 'CutCopyPaste'
cg@1917
  2712
            translateLabel: true
cg@2500
  2713
            submenuChannel: cutCopyPasteMenuSlice
cg@2500
  2714
            isMenuSlice: true
cg@1690
  2715
          )
cg@1750
  2716
         (MenuItem
cg@1917
  2717
            label: '-'
cg@1820
  2718
            startGroup: right
cg@1690
  2719
          )
cg@1750
  2720
         (MenuItem
cg@1750
  2721
            activeHelpKey: settingsCanvas
cg@1750
  2722
            label: 'Canvas'
cg@1750
  2723
            translateLabel: true
cg@1750
  2724
            indication: painterShown
cg@1690
  2725
          )
cg@1750
  2726
         (MenuItem
cg@1750
  2727
            activeHelpKey: settingsGallery
cg@1750
  2728
            label: 'Gallery'
cg@1750
  2729
            translateLabel: true
cg@1750
  2730
            indication: galleryShown
cg@1690
  2731
          )
cg@1690
  2732
         )
cg@1690
  2733
        nil
cg@1690
  2734
        nil
tz@713
  2735
      )
tz@713
  2736
!
tz@713
  2737
tz@713
  2738
menuToolbar2
tz@743
  2739
    "This resource specification was automatically generated
tz@743
  2740
     by the MenuEditor of ST/X."
tz@743
  2741
tz@778
  2742
    "Do not manually edit this!! If it is corrupted,
tz@743
  2743
     the MenuEditor may not be able to read the specification."
tz@713
  2744
tz@713
  2745
    "
tz@713
  2746
     MenuEditor new openOnClass:UIPainter andSelector:#menuToolbar2
tz@713
  2747
     (Menu new fromLiteralArrayEncoding:(UIPainter menuToolbar2)) startUp
tz@713
  2748
    "
tz@713
  2749
tz@713
  2750
    <resource: #menu>
tz@713
  2751
ca@1565
  2752
    ^ 
cg@2361
  2753
     #(Menu
cg@2361
  2754
        (
cg@2361
  2755
         (MenuItem
cg@2361
  2756
            activeHelpKey: alignSelectionLeft
cg@2361
  2757
            enabled: canMoveOrAlignSelection
cg@2361
  2758
            label: 'Align Left'
cg@2361
  2759
            itemValue: alignSelectionLeft
cg@2361
  2760
            translateLabel: true
cg@2361
  2761
            isButton: true
cg@2361
  2762
            labelImage: (ResourceRetriever nil iconAlignL)
ca@1565
  2763
          )
cg@2361
  2764
         (MenuItem
cg@2361
  2765
            activeHelpKey: alignSelectionRight
cg@2361
  2766
            enabled: canMoveOrAlignSelection
cg@2361
  2767
            label: 'Align Right'
cg@2361
  2768
            itemValue: alignSelectionRight
cg@2361
  2769
            translateLabel: true
cg@2361
  2770
            isButton: true
cg@2361
  2771
            labelImage: (ResourceRetriever nil iconAlignR)
ca@1565
  2772
          )
cg@2361
  2773
         (MenuItem
cg@2361
  2774
            activeHelpKey: alignSelectionTop
cg@2361
  2775
            enabled: canMoveOrAlignSelection
cg@2361
  2776
            label: 'Align Top'
cg@2361
  2777
            itemValue: alignSelectionTop
cg@2361
  2778
            translateLabel: true
cg@2361
  2779
            isButton: true
cg@2361
  2780
            labelImage: (ResourceRetriever nil iconAlignT)
ca@1565
  2781
          )
cg@2361
  2782
         (MenuItem
cg@2361
  2783
            activeHelpKey: alignSelectionBottom
cg@2361
  2784
            enabled: canMoveOrAlignSelection
cg@2361
  2785
            label: 'Align Bottom'
cg@2361
  2786
            itemValue: alignSelectionBottom
cg@2361
  2787
            translateLabel: true
cg@2361
  2788
            isButton: true
cg@2361
  2789
            labelImage: (ResourceRetriever nil iconAlignB)
ca@1565
  2790
          )
cg@2361
  2791
         (MenuItem
cg@2361
  2792
            activeHelpKey: alignSelectionLeftAndRight
sv@2479
  2793
            enabled: canResizeSelection
cg@2361
  2794
            label: 'Align Left & Right'
cg@2361
  2795
            itemValue: alignSelectionLeftAndRight
cg@2361
  2796
            translateLabel: true
cg@2361
  2797
            isButton: true
cg@2361
  2798
            labelImage: (ResourceRetriever nil iconResizeLR)
ca@1565
  2799
          )
cg@2361
  2800
         (MenuItem
cg@2361
  2801
            activeHelpKey: alignSelectionTopAndBottom
sv@2479
  2802
            enabled: canResizeSelection
cg@2361
  2803
            label: 'Align Top & Bottom'
cg@2361
  2804
            itemValue: alignSelectionTopAndBottom
cg@2361
  2805
            translateLabel: true
cg@2361
  2806
            isButton: true
cg@2361
  2807
            labelImage: (ResourceRetriever nil iconResizeTB)
ca@1565
  2808
          )
cg@2361
  2809
         (MenuItem
cg@2361
  2810
            label: ''
ca@1565
  2811
          )
cg@2361
  2812
         (MenuItem
cg@2361
  2813
            activeHelpKey: changePositionLeft
cg@2361
  2814
            enabled: canMoveOrAlignSelection
cg@2361
  2815
            label: 'Move Left'
cg@2361
  2816
            itemValue: moveSelectionLeft
cg@2361
  2817
            translateLabel: true
cg@2361
  2818
            isButton: true
cg@2361
  2819
            hideMenuOnActivated: false
cg@2361
  2820
            triggerOnDown: true
cg@2361
  2821
            labelImage: (ResourceRetriever nil arrowLeft)
ca@1565
  2822
          )
cg@2361
  2823
         (MenuItem
cg@2361
  2824
            activeHelpKey: changePositionRight
cg@2361
  2825
            enabled: canMoveOrAlignSelection