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