UIPainter.st
author Patrik Svestka <patrik.svestka@gmail.com>
Wed, 14 Nov 2018 12:07:51 +0100
branchjv
changeset 3630 5e718e0a754e
parent 3567 002306321d77
permissions -rw-r--r--
Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present

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