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