DataSetBuilder.st
author Patrik Svestka <patrik.svestka@gmail.com>
Wed, 14 Nov 2018 12:07:51 +0100
branchjv
changeset 3630 5e718e0a754e
parent 3329 a5fcdace63ba
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
ca@332
     1
"
tz@825
     2
 COPYRIGHT (c) 1997 by eXept Software AG
ca@332
     3
              All Rights Reserved
ca@332
     4
ca@332
     5
 This software is furnished under a license and may be used
ca@332
     6
 only in accordance with the terms of that license and with the
ca@332
     7
 inclusion of the above copyright notice.   This software may not
ca@332
     8
 be provided or otherwise made available to, or used by, any
ca@332
     9
 other person.  No title to or ownership of the software is
ca@332
    10
 hereby transferred.
ca@332
    11
"
cg@1382
    12
"{ Package: 'stx:libtool2' }"
cg@1382
    13
cg@3181
    14
"{ NameSpace: Smalltalk }"
cg@3181
    15
ca@818
    16
ResourceSpecEditor subclass:#DataSetBuilder
tz@825
    17
	instanceVariableNames:'rowClass rowSuperClass columnView columns selectedColumnIndex
cg@2549
    18
		modalOpened listOfSpecViews listOfItemsView editingSpecOnly
cg@2549
    19
		acceptedColumns'
cg@816
    20
	classVariableNames:''
ca@332
    21
	poolDictionaries:''
ca@332
    22
	category:'Interface-UIPainter'
ca@332
    23
!
ca@332
    24
cg@1033
    25
Array variableSubclass:#Row
cg@1004
    26
	instanceVariableNames:''
cg@1004
    27
	classVariableNames:''
cg@1004
    28
	poolDictionaries:''
cg@1004
    29
	privateIn:DataSetBuilder
cg@1004
    30
!
cg@1004
    31
ca@332
    32
!DataSetBuilder class methodsFor:'documentation'!
ca@332
    33
ca@332
    34
copyright
ca@332
    35
"
tz@825
    36
 COPYRIGHT (c) 1997 by eXept Software AG
ca@332
    37
              All Rights Reserved
ca@332
    38
ca@332
    39
 This software is furnished under a license and may be used
ca@332
    40
 only in accordance with the terms of that license and with the
ca@332
    41
 inclusion of the above copyright notice.   This software may not
ca@332
    42
 be provided or otherwise made available to, or used by, any
ca@332
    43
 other person.  No title to or ownership of the software is
ca@332
    44
 hereby transferred.
ca@332
    45
"
ca@332
    46
ca@332
    47
ca@332
    48
ca@332
    49
ca@332
    50
!
ca@332
    51
ca@332
    52
documentation
ca@332
    53
"
ca@332
    54
    create and modify or inspect dataset columns; used by UIPainter (DataSetColumnSpec)
ca@332
    55
ca@332
    56
    [see also:]
ca@332
    57
        DataSetColumnSpec
ca@332
    58
        DataSetSpec
ca@332
    59
        DataSetView
ca@332
    60
        DataSetColumn
ca@332
    61
ca@332
    62
    [author:]
tz@545
    63
        Claus Atzkern, eXept Software AG
ca@332
    64
"
ca@332
    65
ca@332
    66
! !
ca@332
    67
tz@825
    68
!DataSetBuilder class methodsFor:'accessing'!
ca@818
    69
ca@818
    70
resourceType
ca@818
    71
    "get the type of resource of the method generated by the MenuEditor"
ca@818
    72
tz@825
    73
    ^#tableColumns
tz@825
    74
tz@825
    75
tz@825
    76
! !
tz@825
    77
tz@825
    78
!DataSetBuilder class methodsFor:'aspects'!
tz@825
    79
tz@825
    80
aspects
tz@825
    81
    "get the aspects for the attributes of the table columns"
tz@825
    82
tz@825
    83
    ^#(
cg@829
    84
        id
cg@2166
    85
        activeHelpKey
cg@2385
    86
        activeHelpKeyForLabel
tz@825
    87
        label
tz@825
    88
        canSelect
tz@825
    89
        choices
cg@1944
    90
        translatedChoices
tz@825
    91
        editorType
tz@825
    92
        formatString
cg@2475
    93
        formatSelector
tz@825
    94
        labelIsImage
ca@1262
    95
        labelButtonType
cg@829
    96
        translateLabel
cg@1666
    97
        longStringCompression
tz@825
    98
        size
tz@825
    99
        type
tz@825
   100
        width
tz@825
   101
        minWidth
cg@1216
   102
        usePreferredWidth
ca@1452
   103
        isResizeable
tz@825
   104
        height
tz@825
   105
        menu
cg@2816
   106
        menuFromApplication
tz@825
   107
        foregroundSelector
tz@825
   108
        backgroundSelector
cg@1841
   109
        selectedForegroundSelector
cg@1841
   110
        selectedBackgroundSelector
tz@825
   111
        doubleClickedSelector
ca@983
   112
        rowSeparatorSelector
tz@825
   113
        selectSelector
ca@1261
   114
        converterSelector
cg@1009
   115
        showComboFieldSelector
tz@825
   116
        printSelector
tz@825
   117
        readSelector
tz@825
   118
        writeSelector
penk@1731
   119
        visibilitySelector
tz@825
   120
        rendererType
tz@825
   121
        showColSeparator
ca@983
   122
        showSelectionHighLighted
tz@825
   123
        showRowSeparator
tz@825
   124
        backgroundColor
tz@825
   125
        foregroundColor
cg@1841
   126
        selectedBackgroundColor
cg@1841
   127
        selectedForegroundColor
tz@825
   128
        labelForegroundColor
tz@825
   129
        labelBackgroundColor
tz@825
   130
        labelFont
tz@825
   131
        labelActionSelector
tz@825
   132
        labelActionArgument
tz@825
   133
        labelAlignment
tz@825
   134
        columnAlignment
werner@1822
   135
        minValue
werner@1822
   136
        maxValue
cg@2475
   137
        isSortable
cg@2626
   138
        sortSelector
cg@2789
   139
        sortBlockSelector
tz@825
   140
     )
tz@825
   141
cg@2816
   142
    "Modified: / 25-10-2010 / 10:31:51 / cg"
cg@799
   143
! !
cg@799
   144
tz@528
   145
!DataSetBuilder class methodsFor:'help specs'!
tz@528
   146
cg@1887
   147
flyByHelpSpec
cg@1887
   148
    "This resource specification was automatically generated
cg@1887
   149
     by the UIHelpTool of ST/X."
cg@1887
   150
cg@1887
   151
    "Do not manually edit this!! If it is corrupted,
cg@1887
   152
     the UIHelpTool may not be able to read the specification."
cg@1887
   153
cg@1887
   154
    "
cg@1887
   155
     UIHelpTool openOnClass:DataSetBuilder    
cg@1887
   156
    "
cg@1887
   157
cg@1887
   158
    <resource: #help>
cg@1887
   159
cg@1887
   160
    ^ super flyByHelpSpec addPairsFrom:#(
cg@1887
   161
cg@1887
   162
#addColumn
cg@1887
   163
'Add a Column'
cg@1887
   164
cg@2262
   165
#addNonSelectableColumn
cg@2262
   166
'Add a Non-Selectable Column'
cg@2262
   167
cg@1887
   168
#fileLoad
cg@1887
   169
'Load Column Description from Method'
cg@1887
   170
cg@1887
   171
#fileNew
cg@1887
   172
'New Column Description'
cg@1887
   173
cg@1887
   174
#fileSave
cg@2549
   175
'Save the Column Description'
cg@2549
   176
cg@2549
   177
#fileSaveMethod
cg@1887
   178
'Save Column Description as Method'
cg@1887
   179
cg@2549
   180
#fileSaveAsMethod
cg@2549
   181
'Save Column Description as Method (ask for Class/Selector)'
cg@1887
   182
cg@1887
   183
#editCut
cg@1887
   184
'Cut Column'
cg@1887
   185
cg@1887
   186
#editCopy
cg@1887
   187
'Copy Column'
cg@1887
   188
cg@1887
   189
#editPaste
cg@1887
   190
'Paste Column'
cg@1887
   191
cg@1887
   192
)
cg@1887
   193
!
cg@1887
   194
tz@528
   195
helpSpec
ca@818
   196
    "This resource specification was automatically generated
ca@818
   197
     by the UIHelpTool of ST/X."
ca@818
   198
ca@818
   199
    "Do not manually edit this!! If it is corrupted,
ca@818
   200
     the UIHelpTool may not be able to read the specification."
tz@528
   201
tz@528
   202
    "
ca@818
   203
     UIHelpTool openOnClass:DataSetBuilder    
tz@528
   204
    "
tz@528
   205
ca@818
   206
    <resource: #help>
ca@818
   207
penk@1731
   208
    ^ super helpSpec addPairsFrom:#(
tz@528
   209
tz@550
   210
#addColumn
cg@2903
   211
'Adds a new colum'
tz@550
   212
cg@2262
   213
#addNonSelectableColumn
cg@2903
   214
'Adds a new non-selectable column'
cg@2262
   215
tz@597
   216
#basicsEditor
cg@2903
   217
'Default widget type or a selector returning an instance of a user defined widget opened in the cell'
tz@528
   218
tz@597
   219
#basicsFont
cg@2903
   220
'Sets the font of the labeled text'
tz@528
   221
cg@2625
   222
#basicsJustification
cg@2903
   223
'Aligns the label to the left, right, or center in the cell'
cg@2625
   224
cg@2625
   225
#basicsJustificationEditor
cg@2903
   226
'Aligns the column editor to the left, right, or center in the cell'
cg@2625
   227
cg@2625
   228
#basicsLabel
cg@2903
   229
'The label of the column, a String or an array of Strings'
cg@2625
   230
cg@2625
   231
#basicsLabelId
cg@2903
   232
'Unique identifier of the column (optional)'
cg@2625
   233
cg@2625
   234
#basicsLabelIsImage
cg@2903
   235
'Label is actually the selector of a message providing an image-label'
cg@2625
   236
cg@2625
   237
#basicsLabelTranslate
cg@2903
   238
'Translate the label via the resource mechanism to a national language string'
cg@2625
   239
cg@2625
   240
#basicsRenderer
cg@2903
   241
'Specifies displaying cell as Text, CheckToggle, ComboBox, ComboList or as a RowSelector'
cg@2625
   242
cg@2625
   243
#browseRowClass
cg@2625
   244
'Open a browser on the row class'
cg@2625
   245
cg@2625
   246
#colorsBackgroundCellColor
cg@2903
   247
'The background color of the cell'
cg@2625
   248
cg@2625
   249
#colorsBackgroundLabelColor
cg@2903
   250
'The background color of the label'
cg@2625
   251
cg@2625
   252
#colorsBackgroundSelector
cg@2903
   253
'Optional selector returning the background color for the cell (with optional row/column args)'
cg@2625
   254
cg@2625
   255
#colorsForegroundCellColor
cg@2903
   256
'The foreground color of the cell (with optional row/column args)'
cg@2625
   257
cg@2625
   258
#colorsForegroundLabelColor
cg@2903
   259
'The foreground color of the label'
cg@2625
   260
cg@2625
   261
#colorsForegroundSelector
cg@2903
   262
'Optional selector returning the foreground color for a cell'
cg@2625
   263
cg@2625
   264
#converterSelector
cg@2903
   265
'Selector returning a TypeConverter on the model the argument or nil'
cg@2625
   266
cg@2625
   267
#fileLoad
cg@2625
   268
'Specify class/selector and edit that column description'
cg@2625
   269
cg@2625
   270
#fileNew
cg@2625
   271
'Discard changes and continue with a new, empty column description'
cg@2625
   272
cg@2625
   273
#fileSave
cg@2625
   274
'Install the column description'
cg@2625
   275
cg@2625
   276
#fileSaveAs
cg@2625
   277
'Specify class/selector and install the column description'
cg@2625
   278
cg@2625
   279
#formatFormatSelector
cg@2903
   280
'Selector sent to the row to get the format string'
cg@2625
   281
cg@2625
   282
#formatInputType
cg@2903
   283
'A type converter symbol used by the input field'
cg@2625
   284
cg@2625
   285
#formatMaxSize
cg@2903
   286
'Maximum size of the string which can be typed in. 0 or nil means unlimited'
cg@2625
   287
cg@2625
   288
#formatTextFormat
cg@2903
   289
'Format string specifying the output format of the cell text. (printf-format - for example: %5.4f gives 0.0000)'
cg@2625
   290
cg@2625
   291
#frameColumnWidth
cg@2903
   292
'Width (fixed or relative) of a column (optional)'
cg@2625
   293
cg@2625
   294
#frameMinWidth
cg@2903
   295
'Minimum width of the column (optional)'
cg@2625
   296
cg@2625
   297
#frameRowHeight
cg@3047
   298
'Height of the row (0 -> ask some rows; -1 / #fontHeight -> font; #heightOfFirstRow -> ask first row; >0 -> constant)'
cg@2625
   299
cg@2625
   300
#frameShowColumnSeparator
cg@2903
   301
'Turns on/off displaying column separators'
cg@2625
   302
cg@2625
   303
#frameShowRowSeparator
cg@2903
   304
'Turns on/off displaying row separators'
cg@2625
   305
cg@2625
   306
#frameShowRowSeparatorSelector
cg@2903
   307
'Message selector to test if the bottom separator is shown'
cg@2625
   308
cg@2625
   309
#generateCode
cg@2903
   310
'Generate code and install in the selected class/selector'
cg@2625
   311
cg@2625
   312
#isResizable
cg@2903
   313
'Column can be resized by user'
cg@2625
   314
cg@2475
   315
#isSortable
cg@2903
   316
'Adds indicator to allow user to sort rows based on this column'
cg@2475
   317
cg@829
   318
#pickColumns
cg@2903
   319
'Select an open view and readOut the column specification from it'
cg@829
   320
cg@1841
   321
#selectedBackgroundCellColor
cg@2903
   322
'Optional background color of a selected cell'
cg@1841
   323
cg@1841
   324
#selectedBackgroundCellColorSelector
cg@2903
   325
'Optional selector returning the background color for a selected cell'
cg@1841
   326
cg@1841
   327
#selectedForegroundCellColor
cg@2903
   328
'Optional foreground color of a selected cell'
cg@1841
   329
cg@1841
   330
#selectedForegroundCellColorSelector
cg@2903
   331
'Optional selector returning the foreground color for a selected cell'
cg@1841
   332
tz@597
   333
#selectionCellClickSelector
cg@1753
   334
'Message sent if cell is about to be selected - return boolean to en/disable editing'
tz@597
   335
tz@597
   336
#selectionCellDoubleClickSelector
cg@1753
   337
'Message sent if cell is double clicked'
tz@597
   338
tz@597
   339
#selectionCellSelector
cg@2903
   340
'Name of the message sent to the row to validate a selection'
tz@528
   341
tz@597
   342
#selectionIsSelectable
cg@2903
   343
'Turns on/off selection behavior of a column'
tz@528
   344
tz@597
   345
#selectionLabelClickSelector
cg@1754
   346
'Message sent if a columns label was clicked on'
tz@528
   347
tz@597
   348
#selectionLabelSelectorArgument
cg@2903
   349
'An optional argument passed with the message above'
tz@528
   350
cg@1009
   351
#showComboFieldSelector
cg@2903
   352
'Selector which returns true if the editor on the ComboBox/List has an input field'
cg@1009
   353
ca@983
   354
#showSelectionHighLighted
cg@2903
   355
'Show selected cell highligthened (change fg/bg color)'
ca@983
   356
cg@2789
   357
#sortBlockSelector
cg@2903
   358
'Sent to the row to retrieve a selector which is sent to the application to provide a block for sorting'
cg@2789
   359
cg@2625
   360
#sortSelector
cg@2903
   361
'Sent to the row to extract the value used for sorting. If a block is returned, that one is used as sortBlock'
cg@2625
   362
penk@1580
   363
#usePreferredWidth
cg@2903
   364
'Compute width from first 10 row items'
penk@1580
   365
cg@1944
   366
#valuesChoicesSelector
cg@2903
   367
'Selector to get a collection of choices for a cell having a ComboBox or a ComboList widget'
tz@528
   368
cg@2816
   369
#valuesMenuFromApplication
cg@2816
   370
'Fetch the menu from the application (instead of the row)'
cg@2816
   371
tz@597
   372
#valuesMenuSelector
cg@2903
   373
'Selector to retrieve the middle button menu'
tz@528
   374
tz@597
   375
#valuesPrintSelector
cg@2903
   376
'Selector used to register images on a DSVColumnView (the arg). For more detailed info see #register... methods in DSVColumnView'
tz@597
   377
tz@597
   378
#valuesReadSelector
cg@2903
   379
'Selector returning the label to be displayed (string, bitmap or a collection)'
penk@1731
   380
penk@1731
   381
#valuesVisibilitySelector
cg@2903
   382
'Boolean message selector controlling the columns visibility'
tz@597
   383
tz@597
   384
#valuesWriteSelector
cg@2903
   385
'Selector used to set the value derived from the editor'
tz@528
   386
cg@1944
   387
#valuesXChoicesSelector
cg@2903
   388
'Selector to get a collection of translated choices for a cell having a ComboBox or a ComboList widget'
cg@1944
   389
tz@528
   390
)
cg@2840
   391
cg@2903
   392
    "Modified: / 09-08-2012 / 09:36:06 / cg"
tz@528
   393
! !
tz@528
   394
tz@881
   395
!DataSetBuilder class methodsFor:'image specs'!
tz@881
   396
tz@881
   397
newColumnIcon
tz@881
   398
    "This resource specification was automatically generated
tz@881
   399
     by the ImageEditor of ST/X."
tz@881
   400
tz@881
   401
    "Do not manually edit this!! If it is corrupted,
tz@881
   402
     the ImageEditor may not be able to read the specification."
tz@881
   403
tz@881
   404
    "
tz@881
   405
     self newColumnIcon inspect
tz@881
   406
     ImageEditor openOnClass:self andSelector:#newColumnIcon
cg@2262
   407
     Icon flushCachedIcons
tz@881
   408
    "
tz@881
   409
tz@881
   410
    <resource: #image>
tz@881
   411
tz@881
   412
    ^Icon
cg@2262
   413
        constantNamed:#'DataSetBuilder class newColumnIcon'
cg@2262
   414
        ifAbsentPut:[(Depth2Image new) width: 19; height: 22; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@2262
   415
U@@@@EQTUUUXUEQ***1TUF (+EQTX*H,UEQ"("1TUF (+EQTZ**,UEQ"("1TUFJ"KEQTX*H,UEQ HB1TUF**+EQTZ**,UEQ"H"1TUF@ KEQTX"@,UEQ"H"1T
sv@3114
   416
UF**+EQTZ**,UER???1TU@@@@EPb') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((ImageMask new) width: 19; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@') ; yourself); yourself]
cg@2262
   417
!
cg@2262
   418
cg@2262
   419
newColumnNonSelectableIcon
cg@2262
   420
    "This resource specification was automatically generated
cg@2262
   421
     by the ImageEditor of ST/X."
cg@2262
   422
cg@2262
   423
    "Do not manually edit this!! If it is corrupted,
cg@2262
   424
     the ImageEditor may not be able to read the specification."
cg@2262
   425
cg@2262
   426
    "
cg@2262
   427
     self newColumnNonSelectableIcon inspect
cg@2262
   428
     ImageEditor openOnClass:self andSelector:#newColumnNonSelectableIcon
cg@2262
   429
     Icon flushCachedIcons
cg@2262
   430
    "
cg@2262
   431
cg@2262
   432
    <resource: #image>
cg@2262
   433
cg@2262
   434
    ^Icon
cg@2262
   435
        constantNamed:#'DataSetBuilder class newColumnNonSelectableIcon'
cg@2262
   436
        ifAbsentPut:[(Depth2Image new) width: 19; height: 22; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
cg@2262
   437
U@@@@EQTUUUXUEQ***1TUF**+EQTX*(,UEQ"*"1TUFB(KEQTZJ",UEQ(HJ1TUF("+EQTZ J,UEQ*@*1TUF("+EQTZBB,UEQ(*J1TUFB(KEQTX*(,UEQ"*"1T
sv@3114
   438
UF**+EQTZ**,UER???1TU@@@@EPb') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((ImageMask new) width: 19; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@') ; yourself); yourself]
ca@1452
   439
! !
tz@881
   440
tz@528
   441
!DataSetBuilder class methodsFor:'interface specs'!
ca@332
   442
ca@332
   443
basicsEditSpec
ca@817
   444
    "This resource specification was automatically generated
ca@817
   445
     by the UIPainter of ST/X."
ca@332
   446
ca@817
   447
    "Do not manually edit this!! If it is corrupted,
ca@817
   448
     the UIPainter may not be able to read the specification."
ca@332
   449
ca@332
   450
    "
ca@332
   451
     UIPainter new openOnClass:DataSetBuilder andSelector:#basicsEditSpec
ca@332
   452
     DataSetBuilder new openInterface:#basicsEditSpec
ca@332
   453
    "
ca@332
   454
ca@332
   455
    <resource: #canvas>
ca@332
   456
cg@1156
   457
    ^ 
cg@3247
   458
    #(FullSpec
cg@3247
   459
       name: basicsEditSpec
cg@3247
   460
       window: 
cg@3247
   461
      (WindowSpec
cg@3247
   462
         label: 'DataSet Basic'
cg@3247
   463
         name: 'DataSet Basic'
cg@3247
   464
         min: (Point 10 10)
cg@3247
   465
         bounds: (Rectangle 0 0 389 473)
cg@3247
   466
       )
cg@3247
   467
       component: 
cg@3247
   468
      (SpecCollection
cg@3247
   469
         collection: (
cg@3247
   470
          (VerticalPanelViewSpec
cg@3247
   471
             name: 'VerticalPanel1'
cg@3247
   472
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
cg@3247
   473
             horizontalLayout: fit
cg@3247
   474
             verticalLayout: top
cg@3247
   475
             horizontalSpace: 3
cg@3247
   476
             verticalSpace: 3
cg@3247
   477
             component: 
cg@3247
   478
            (SpecCollection
cg@3247
   479
               collection: (
cg@3247
   480
                (FramedBoxSpec
cg@3247
   481
                   label: 'Header:'
cg@3247
   482
                   name: 'headerFrame'
cg@3247
   483
                   labelPosition: topLeft
cg@3247
   484
                   translateLabel: true
cg@3247
   485
                   component: 
cg@3247
   486
                  (SpecCollection
cg@3247
   487
                     collection: (
cg@3247
   488
                      (LabelSpec
cg@3247
   489
                         label: 'ID:'
cg@3247
   490
                         name: 'idLabel'
cg@3247
   491
                         layout: (AlignmentOrigin 94 0 14 0 1 0.5)
cg@3247
   492
                         translateLabel: true
cg@3247
   493
                         resizeForLabel: true
cg@2475
   494
                       )
cg@3247
   495
                      (InputFieldSpec
cg@3247
   496
                         name: 'idField'
cg@3247
   497
                         layout: (LayoutFrame 97 0 0 0 2 1.0 22 0)
cg@3247
   498
                         activeHelpKey: basicsLabelId
cg@3247
   499
                         tabable: true
cg@3247
   500
                         model: id
cg@3247
   501
                         group: inputGroup
cg@3247
   502
                         acceptOnLostFocus: false
cg@3247
   503
                         acceptChannel: acceptChannel
cg@3247
   504
                         modifiedChannel: modifiedChannel
cg@3247
   505
                         acceptOnPointerLeave: false
cg@2475
   506
                       )
cg@3247
   507
                      (LabelSpec
cg@3247
   508
                         label: 'Label:'
cg@3247
   509
                         name: 'label1'
cg@3247
   510
                         layout: (AlignmentOrigin 94 0 39 0 1 0.5)
cg@3247
   511
                         translateLabel: true
cg@3247
   512
                         resizeForLabel: true
cg@2475
   513
                       )
cg@3247
   514
                      (InputFieldSpec
cg@3247
   515
                         name: 'labelField'
cg@3247
   516
                         layout: (LayoutFrame 97 0 28 0 2 1.0 50 0)
cg@3247
   517
                         activeHelpKey: basicsLabel
cg@3247
   518
                         tabable: true
cg@3247
   519
                         model: label
cg@3247
   520
                         group: inputGroup
cg@3247
   521
                         type: smalltalkObject
cg@3247
   522
                         immediateAccept: false
cg@3247
   523
                         acceptOnLeave: false
cg@3247
   524
                         acceptOnLostFocus: false
cg@3247
   525
                         acceptChannel: acceptChannel
cg@3247
   526
                         modifiedChannel: modifiedChannel
cg@3247
   527
                         acceptOnPointerLeave: false
cg@3247
   528
                       )
cg@3247
   529
                      (LabelSpec
cg@3247
   530
                         label: 'Font:'
cg@3247
   531
                         name: 'LabelFont'
cg@3247
   532
                         layout: (AlignmentOrigin 94 0 68 0 1 0.5)
cg@3247
   533
                         translateLabel: true
cg@3247
   534
                         resizeForLabel: true
cg@3247
   535
                         adjust: left
cg@3247
   536
                       )
cg@3247
   537
                      (FontMenuSpec
cg@3247
   538
                         name: 'fontMenu'
cg@3247
   539
                         layout: (LayoutFrame 97 0 56 0 0 1.0 78 0)
cg@3247
   540
                         activeHelpKey: labelFont
cg@3247
   541
                         model: style
cg@3247
   542
                         allowSymbolicFonts: true
cg@3247
   543
                       )
cg@3247
   544
                      (LabelSpec
cg@3247
   545
                         label: 'Type:'
cg@3247
   546
                         name: 'Type'
cg@3247
   547
                         layout: (AlignmentOrigin 52 0 100 0 1 0.5)
cg@3247
   548
                         translateLabel: true
cg@3247
   549
                         resizeForLabel: true
cg@3247
   550
                         adjust: right
cg@3247
   551
                       )
cg@3247
   552
                      (ComboListSpec
cg@3247
   553
                         name: 'labelButtonType'
cg@3247
   554
                         layout: (LayoutFrame 57 0 91 0 158 0 111 0)
cg@3247
   555
                         tabable: true
cg@3247
   556
                         model: labelButtonType
cg@3247
   557
                         comboList: 
cg@3247
   558
                        (Array
cg@3247
   559
                           None Button
cg@3247
   560
                           Group
cg@3247
   561
                         )
cg@3247
   562
                         useIndex: false
cg@3247
   563
                         hidePullDownMenuButton: false
cg@3247
   564
                       )
cg@3247
   565
                      (LabelSpec
cg@3247
   566
                         label: 'Align:'
cg@3247
   567
                         name: 'JustificationLabel'
cg@3247
   568
                         layout: (AlignmentOrigin 243 0 100 0 1 0.5)
cg@3247
   569
                         translateLabel: true
cg@3247
   570
                         resizeForLabel: true
cg@3247
   571
                         adjust: right
cg@3247
   572
                       )
cg@3247
   573
                      (PopUpListSpec
cg@3247
   574
                         label: 'Alignment'
cg@3247
   575
                         name: 'Alignment'
cg@3247
   576
                         layout: (LayoutFrame 248 0 91 0 2 1.0 113 0)
cg@3247
   577
                         activeHelpKey: basicsJustification
cg@3247
   578
                         translateLabel: true
cg@3247
   579
                         tabable: true
cg@3247
   580
                         model: labelAlignment
cg@3247
   581
                         menu: 
cg@3247
   582
                        (Array
cg@3247
   583
                           left right
cg@3247
   584
                           center
cg@3247
   585
                         )
cg@3247
   586
                       )
cg@3247
   587
                      (CheckBoxSpec
cg@3247
   588
                         label: 'Label Is Image'
cg@3247
   589
                         name: 'labelIsImage'
cg@3247
   590
                         layout: (LayoutOrigin -3 0 120 0)
cg@3247
   591
                         activeHelpKey: basicsLabelIsImage
cg@3247
   592
                         tabable: true
cg@3247
   593
                         model: labelIsImage
cg@3247
   594
                         translateLabel: true
cg@3247
   595
                       )
cg@3247
   596
                      (CheckBoxSpec
cg@3247
   597
                         label: 'Translate Label'
cg@3247
   598
                         name: 'CheckBox2'
cg@3247
   599
                         layout: (LayoutOrigin 200 0 120 0)
cg@3247
   600
                         activeHelpKey: basicsLabelTranslate
cg@3247
   601
                         tabable: true
cg@3247
   602
                         model: translateLabel
cg@3247
   603
                         translateLabel: true
cg@3247
   604
                       )
cg@3247
   605
                      )
cg@3247
   606
                    
cg@3247
   607
                   )
cg@3247
   608
                   extent: (Point 389 190)
cg@2166
   609
                 )
cg@3247
   610
                (FramedBoxSpec
cg@3247
   611
                   label: 'Cell Type:'
cg@3247
   612
                   name: 'typesFrame'
cg@3247
   613
                   labelPosition: topLeft
cg@3247
   614
                   translateLabel: true
cg@3247
   615
                   component: 
cg@3247
   616
                  (SpecCollection
cg@3247
   617
                     collection: (
cg@3247
   618
                      (LabelSpec
cg@3247
   619
                         label: 'Renderer:'
cg@3247
   620
                         name: 'rendererLabel'
cg@3247
   621
                         layout: (AlignmentOrigin 94 0 16 0 1 0.5)
cg@3247
   622
                         translateLabel: true
cg@3247
   623
                         resizeForLabel: true
cg@3247
   624
                       )
cg@3247
   625
                      (ComboListSpec
cg@3247
   626
                         name: 'rendererField'
cg@3247
   627
                         layout: (LayoutFrame 97 0 5 0 2 1.0 27 0)
cg@3247
   628
                         activeHelpKey: basicsRenderer
cg@3247
   629
                         tabable: true
cg@3247
   630
                         model: rendererType
cg@3247
   631
                         comboList: rendererTypeList
cg@3247
   632
                         useIndex: false
cg@3247
   633
                         hidePullDownMenuButton: false
cg@3247
   634
                       )
cg@3247
   635
                      (LabelSpec
cg@3247
   636
                         label: 'Editor:'
cg@3247
   637
                         name: 'editorLabel'
cg@3247
   638
                         layout: (AlignmentOrigin 94 0 42 0 1 0.5)
cg@3247
   639
                         translateLabel: true
cg@3247
   640
                         resizeForLabel: true
cg@3247
   641
                       )
cg@3247
   642
                      (ComboBoxSpec
cg@3247
   643
                         name: 'editorField'
cg@3247
   644
                         layout: (LayoutFrame 97 0 31 0 2 1.0 53 0)
cg@3247
   645
                         activeHelpKey: basicsEditor
cg@3247
   646
                         tabable: true
cg@3247
   647
                         model: editorType
cg@3247
   648
                         type: symbolOrNil
cg@3247
   649
                         acceptOnLostFocus: false
cg@3247
   650
                         acceptChannel: acceptChannel
cg@3247
   651
                         modifiedChannel: modifiedChannel
cg@3247
   652
                         acceptOnPointerLeave: false
cg@3247
   653
                         comboList: editorTypeList
cg@3247
   654
                         useIndex: false
cg@3247
   655
                         isFilenameBox: false
cg@3247
   656
                       )
cg@3247
   657
                      (LabelSpec
cg@3247
   658
                         label: 'Align:'
cg@3247
   659
                         name: 'JustificationC'
cg@3247
   660
                         layout: (LayoutFrame -194 1 58 0 -114 1 79 0)
cg@3247
   661
                         translateLabel: true
cg@3247
   662
                         resizeForLabel: true
cg@3247
   663
                         adjust: right
cg@3247
   664
                       )
cg@3247
   665
                      (PopUpListSpec
cg@3247
   666
                         label: 'Alignment'
cg@3247
   667
                         name: 'AlignmentC'
cg@3247
   668
                         layout: (LayoutFrame -115 1 58 0 2 1.0 80 0)
cg@3247
   669
                         activeHelpKey: basicsJustificationEditor
cg@3247
   670
                         translateLabel: true
cg@3247
   671
                         tabable: true
cg@3247
   672
                         model: columnAlignment
cg@3247
   673
                         menu: 
cg@3247
   674
                        (Array
cg@3247
   675
                           left right
cg@3247
   676
                           center decimal
cg@3247
   677
                           decimalRight
cg@3247
   678
                         )
cg@3247
   679
                       )
cg@3247
   680
                      (CheckBoxSpec
cg@3247
   681
                         label: 'Compress Long Strings'
cg@3247
   682
                         name: 'LongStringCompressionCheckBox'
cg@3247
   683
                         layout: (LayoutFrame -3 0 58 0 188 0 79 0)
cg@3247
   684
                         activeHelpKey: basicsLabelTranslate
cg@3247
   685
                         tabable: true
cg@3247
   686
                         model: longStringCompression
cg@3247
   687
                         translateLabel: true
cg@3247
   688
                       )
cg@3247
   689
                      )
cg@3247
   690
                    
cg@3247
   691
                   )
cg@3247
   692
                   extent: (Point 389 120)
cg@3247
   693
                 )
cg@3247
   694
                (FramedBoxSpec
cg@3247
   695
                   label: 'Active Help:'
cg@3247
   696
                   name: 'activeHelpFrame'
cg@3247
   697
                   labelPosition: topLeft
cg@3247
   698
                   translateLabel: true
cg@3247
   699
                   component: 
cg@3247
   700
                  (SpecCollection
cg@3247
   701
                     collection: (
cg@3247
   702
                      (LabelSpec
cg@3247
   703
                         label: 'Key:'
cg@3247
   704
                         name: 'Label1'
cg@3247
   705
                         layout: (AlignmentOrigin 94 0 14 0 1 0.5)
cg@3247
   706
                         translateLabel: true
cg@3247
   707
                         resizeForLabel: true
cg@3247
   708
                       )
cg@3247
   709
                      (InputFieldSpec
cg@3247
   710
                         name: 'EntryField1'
cg@3247
   711
                         layout: (LayoutFrame 97 0 0 0 2 1.0 22 0)
cg@3247
   712
                         activeHelpKey: basicsLabelId
cg@3247
   713
                         tabable: true
cg@3247
   714
                         model: activeHelpKey
cg@3247
   715
                         group: inputGroup
cg@3247
   716
                         acceptOnLostFocus: false
cg@3247
   717
                         acceptChannel: acceptChannel
cg@3247
   718
                         modifiedChannel: modifiedChannel
cg@3247
   719
                         acceptOnPointerLeave: false
cg@3247
   720
                       )
cg@3247
   721
                      (LabelSpec
cg@3247
   722
                         label: 'Key for Label:'
cg@3247
   723
                         name: 'Label2'
cg@3247
   724
                         layout: (AlignmentOrigin 94 0 42 0 1 0.5)
cg@3247
   725
                         translateLabel: true
cg@3247
   726
                         resizeForLabel: true
cg@3247
   727
                       )
cg@3247
   728
                      (InputFieldSpec
cg@3247
   729
                         name: 'EntryField2'
cg@3247
   730
                         layout: (LayoutFrame 97 0 28 0 2 1.0 50 0)
cg@3247
   731
                         activeHelpKey: basicsLabelId
cg@3247
   732
                         tabable: true
cg@3247
   733
                         model: activeHelpKeyForLabel
cg@3247
   734
                         group: inputGroup
cg@3247
   735
                         acceptOnLostFocus: false
cg@3247
   736
                         acceptChannel: acceptChannel
cg@3247
   737
                         modifiedChannel: modifiedChannel
cg@3247
   738
                         acceptOnPointerLeave: false
cg@3247
   739
                       )
cg@3247
   740
                      )
cg@3247
   741
                    
cg@3247
   742
                   )
cg@3247
   743
                   extent: (Point 389 95)
cg@3247
   744
                 )
cg@3247
   745
                )
cg@3247
   746
              
cg@3247
   747
             )
cg@1156
   748
           )
cg@3247
   749
          )
cg@3247
   750
        
cg@3247
   751
       )
cg@3247
   752
     )
ca@332
   753
!
ca@332
   754
tz@408
   755
colorsEditSpec
tz@825
   756
    "This resource specification was automatically generated
tz@825
   757
     by the UIPainter of ST/X."
ca@391
   758
tz@825
   759
    "Do not manually edit this!! If it is corrupted,
tz@825
   760
     the UIPainter may not be able to read the specification."
ca@391
   761
ca@391
   762
    "
tz@408
   763
     UIPainter new openOnClass:DataSetBuilder andSelector:#colorsEditSpec
tz@408
   764
     DataSetBuilder new openInterface:#colorsEditSpec
ca@391
   765
    "
ca@391
   766
ca@391
   767
    <resource: #canvas>
ca@391
   768
cg@1156
   769
    ^ 
cg@3247
   770
    #(FullSpec
cg@3247
   771
       name: colorsEditSpec
cg@3247
   772
       window: 
cg@3247
   773
      (WindowSpec
cg@3247
   774
         label: 'DataSet Misc'
cg@3247
   775
         name: 'DataSet Misc'
cg@3247
   776
         min: (Point 10 10)
cg@3247
   777
         bounds: (Rectangle 0 0 369 451)
cg@3247
   778
       )
cg@3247
   779
       component: 
cg@3247
   780
      (SpecCollection
cg@3247
   781
         collection: (
cg@3247
   782
          (FramedBoxSpec
cg@3247
   783
             label: 'Label Colors:'
cg@3247
   784
             name: 'ColorsBox'
cg@3247
   785
             layout: (LayoutFrame 0 0.0 3 0 0 1.0 95 0)
cg@3247
   786
             labelPosition: topLeft
cg@3247
   787
             translateLabel: true
cg@3247
   788
             component: 
cg@3247
   789
            (SpecCollection
cg@3247
   790
               collection: (
cg@3247
   791
                (LabelSpec
cg@3247
   792
                   label: 'Foreground:'
cg@3247
   793
                   name: 'label1'
cg@3247
   794
                   layout: (AlignmentOrigin 112 0 14 0 1 0.5)
cg@3247
   795
                   translateLabel: true
cg@3247
   796
                   resizeForLabel: true
cg@3247
   797
                   adjust: right
cg@1156
   798
                 )
cg@3247
   799
                (ColorMenuSpec
cg@3247
   800
                   name: 'colorMenu1'
cg@3247
   801
                   layout: (LayoutFrame 115 0 2 0 -3 1.0 24 0)
cg@3247
   802
                   activeHelpKey: colorsForegroundLabelColor
cg@3247
   803
                   model: labelForegroundColor
cg@3247
   804
                   labelsAreColored: true
cg@1156
   805
                 )
cg@3247
   806
                (LabelSpec
cg@3247
   807
                   label: 'Background:'
cg@3247
   808
                   name: 'label2'
cg@3247
   809
                   layout: (AlignmentOrigin 112 0 42 0 1 0.5)
cg@3247
   810
                   translateLabel: true
cg@3247
   811
                   resizeForLabel: true
cg@3247
   812
                   adjust: right
cg@1841
   813
                 )
cg@3247
   814
                (ColorMenuSpec
cg@3247
   815
                   name: 'colorMenu2'
cg@3247
   816
                   layout: (LayoutFrame 115 0 30 0 -3 1.0 52 0)
cg@3247
   817
                   activeHelpKey: colorsBackgroundLabelColor
cg@3247
   818
                   model: labelBackgroundColor
cg@3247
   819
                 )
cg@3247
   820
                )
cg@3247
   821
              
cg@3247
   822
             )
cg@1156
   823
           )
cg@3247
   824
          (FramedBoxSpec
cg@3247
   825
             label: 'Cell Colors:'
cg@3247
   826
             name: 'defaultColorsBox'
cg@3247
   827
             layout: (LayoutFrame 0 0.0 95 0 0 1.0 245 0)
cg@3247
   828
             labelPosition: topLeft
cg@3247
   829
             translateLabel: true
cg@3247
   830
             component: 
cg@3247
   831
            (SpecCollection
cg@3247
   832
               collection: (
cg@3247
   833
                (LabelSpec
cg@3247
   834
                   label: 'Foreground:'
cg@3247
   835
                   name: 'fgLabel'
cg@3247
   836
                   layout: (AlignmentOrigin 112 0 11 0 1 0.5)
cg@3247
   837
                   translateLabel: true
cg@3247
   838
                   resizeForLabel: true
cg@3247
   839
                   adjust: right
cg@3247
   840
                 )
cg@3247
   841
                (ColorMenuSpec
cg@3247
   842
                   name: 'fgMenu'
cg@3247
   843
                   layout: (LayoutFrame 115 0 -1 0 -3 1.0 21 0)
cg@3247
   844
                   activeHelpKey: colorsForegroundCellColor
cg@3247
   845
                   model: foregroundColor
cg@3247
   846
                   labelsAreColored: true
cg@3247
   847
                 )
cg@3247
   848
                (LabelSpec
cg@3247
   849
                   label: 'Background:'
cg@3247
   850
                   name: 'bgLabel'
cg@3247
   851
                   layout: (AlignmentOrigin 112 0 39 0 1 0.5)
cg@3247
   852
                   translateLabel: true
cg@3247
   853
                   resizeForLabel: true
cg@3247
   854
                   adjust: right
cg@3247
   855
                 )
cg@3247
   856
                (ColorMenuSpec
cg@3247
   857
                   name: 'bgMenu'
cg@3247
   858
                   layout: (LayoutFrame 115 0 27 0 -3 1.0 49 0)
cg@3247
   859
                   activeHelpKey: colorsBackgroundCellColor
cg@3247
   860
                   model: backgroundColor
cg@3247
   861
                 )
cg@3247
   862
                (LabelSpec
cg@3247
   863
                   label: 'FG-Selector:'
cg@3247
   864
                   name: 'fgSelLabel'
cg@3247
   865
                   layout: (AlignmentOrigin 112 0 73 0 1 0.5)
cg@3247
   866
                   translateLabel: true
cg@3247
   867
                   resizeForLabel: true
cg@3247
   868
                   adjust: right
cg@3247
   869
                 )
cg@3247
   870
                (InputFieldSpec
cg@3247
   871
                   name: 'fgSelField'
cg@3247
   872
                   layout: (LayoutFrame 115 0 62 0 0 1.0 84 0)
cg@3247
   873
                   activeHelpKey: colorsForegroundSelector
cg@3247
   874
                   tabable: true
cg@3247
   875
                   model: foregroundSelector
cg@3247
   876
                   group: inputGroup
cg@3247
   877
                   type: symbolOrNil
cg@3247
   878
                   acceptOnLostFocus: false
cg@3247
   879
                   acceptChannel: acceptChannel
cg@3247
   880
                   modifiedChannel: modifiedChannel
cg@3247
   881
                   acceptOnPointerLeave: false
cg@3247
   882
                 )
cg@3247
   883
                (LabelSpec
cg@3247
   884
                   label: 'BG-Selector:'
cg@3247
   885
                   name: 'bgSelLabel'
cg@3247
   886
                   layout: (AlignmentOrigin 112 0 98 0 1 0.5)
cg@3247
   887
                   translateLabel: true
cg@3247
   888
                   resizeForLabel: true
cg@3247
   889
                   adjust: right
cg@3247
   890
                 )
cg@3247
   891
                (InputFieldSpec
cg@3247
   892
                   name: 'bgSelField'
cg@3247
   893
                   layout: (LayoutFrame 115 0 87 0 0 1.0 109 0)
cg@3247
   894
                   activeHelpKey: colorsBackgroundSelector
cg@3247
   895
                   tabable: true
cg@3247
   896
                   model: backgroundSelector
cg@3247
   897
                   group: inputGroup
cg@3247
   898
                   type: symbolOrNil
cg@3247
   899
                   acceptOnLostFocus: false
cg@3247
   900
                   acceptChannel: acceptChannel
cg@3247
   901
                   modifiedChannel: modifiedChannel
cg@3247
   902
                   acceptOnPointerLeave: false
cg@3247
   903
                 )
cg@3247
   904
                )
cg@3247
   905
              
cg@3247
   906
             )
cg@3247
   907
           )
cg@3247
   908
          (FramedBoxSpec
cg@3247
   909
             label: 'Selected Cell Colors:'
cg@3247
   910
             name: 'selectedCellColorsBox'
cg@3247
   911
             layout: (LayoutFrame 0 0.0 245 0 0 1.0 390 0)
cg@3247
   912
             labelPosition: topLeft
cg@3247
   913
             translateLabel: true
cg@3247
   914
             component: 
cg@3247
   915
            (SpecCollection
cg@3247
   916
               collection: (
cg@3247
   917
                (LabelSpec
cg@3247
   918
                   label: 'Foreground:'
cg@3247
   919
                   name: 'selFgLabel'
cg@3247
   920
                   layout: (AlignmentOrigin 112 0 11 0 1 0.5)
cg@3247
   921
                   translateLabel: true
cg@3247
   922
                   resizeForLabel: true
cg@3247
   923
                   adjust: right
cg@3247
   924
                 )
cg@3247
   925
                (ColorMenuSpec
cg@3247
   926
                   name: 'selFgMenu'
cg@3247
   927
                   layout: (LayoutFrame 115 0 -1 0 -3 1.0 21 0)
cg@3247
   928
                   activeHelpKey: selectedForegroundCellColor
cg@3247
   929
                   model: selectedForegroundColor
cg@3247
   930
                   labelsAreColored: true
cg@3247
   931
                 )
cg@3247
   932
                (LabelSpec
cg@3247
   933
                   label: 'Background:'
cg@3247
   934
                   name: 'selBgLabel'
cg@3247
   935
                   layout: (AlignmentOrigin 112 0 39 0 1 0.5)
cg@3247
   936
                   translateLabel: true
cg@3247
   937
                   resizeForLabel: true
cg@3247
   938
                   adjust: right
cg@3247
   939
                 )
cg@3247
   940
                (ColorMenuSpec
cg@3247
   941
                   name: 'selBgMenu'
cg@3247
   942
                   layout: (LayoutFrame 115 0 27 0 -3 1.0 49 0)
cg@3247
   943
                   activeHelpKey: colorsBackgroundCellColor
cg@3247
   944
                   model: selectedBackgroundColor
cg@3247
   945
                 )
cg@3247
   946
                (LabelSpec
cg@3247
   947
                   label: 'FG-Selector:'
cg@3247
   948
                   name: 'Label3'
cg@3247
   949
                   layout: (AlignmentOrigin 112 0 73 0 1 0.5)
cg@3247
   950
                   translateLabel: true
cg@3247
   951
                   resizeForLabel: true
cg@3247
   952
                   adjust: right
cg@3247
   953
                 )
cg@3247
   954
                (InputFieldSpec
cg@3247
   955
                   name: 'EntryField1'
cg@3247
   956
                   layout: (LayoutFrame 115 0 62 0 0 1.0 84 0)
cg@3247
   957
                   activeHelpKey: colorsForegroundSelector
cg@3247
   958
                   tabable: true
cg@3247
   959
                   model: selectedForegroundSelector
cg@3247
   960
                   group: inputGroup
cg@3247
   961
                   type: symbolOrNil
cg@3247
   962
                   acceptOnLostFocus: false
cg@3247
   963
                   acceptChannel: acceptChannel
cg@3247
   964
                   modifiedChannel: modifiedChannel
cg@3247
   965
                   acceptOnPointerLeave: false
cg@3247
   966
                 )
cg@3247
   967
                (LabelSpec
cg@3247
   968
                   label: 'BG-Selector:'
cg@3247
   969
                   name: 'Label4'
cg@3247
   970
                   layout: (AlignmentOrigin 112 0 98 0 1 0.5)
cg@3247
   971
                   translateLabel: true
cg@3247
   972
                   resizeForLabel: true
cg@3247
   973
                   adjust: right
cg@3247
   974
                 )
cg@3247
   975
                (InputFieldSpec
cg@3247
   976
                   name: 'EntryField2'
cg@3247
   977
                   layout: (LayoutFrame 115 0 87 0 0 1.0 109 0)
cg@3247
   978
                   activeHelpKey: colorsBackgroundSelector
cg@3247
   979
                   tabable: true
cg@3247
   980
                   model: selectedBackgroundSelector
cg@3247
   981
                   group: inputGroup
cg@3247
   982
                   type: symbolOrNil
cg@3247
   983
                   acceptOnLostFocus: false
cg@3247
   984
                   acceptChannel: acceptChannel
cg@3247
   985
                   modifiedChannel: modifiedChannel
cg@3247
   986
                   acceptOnPointerLeave: false
cg@3247
   987
                 )
cg@3247
   988
                )
cg@3247
   989
              
cg@3247
   990
             )
cg@3247
   991
           )
cg@3247
   992
          )
cg@3247
   993
        
cg@3247
   994
       )
cg@3247
   995
     )
ca@332
   996
!
ca@332
   997
tz@528
   998
defineClassNameSpec
tz@825
   999
    "This resource specification was automatically generated
tz@825
  1000
     by the UIPainter of ST/X."
tz@528
  1001
tz@825
  1002
    "Do not manually edit this!! If it is corrupted,
tz@825
  1003
     the UIPainter may not be able to read the specification."
tz@528
  1004
tz@528
  1005
    "
tz@528
  1006
     UIPainter new openOnClass:DataSetBuilder andSelector:#defineClassNameSpec
tz@528
  1007
     DataSetBuilder new openInterface:#defineClassNameSpec
tz@528
  1008
    "
tz@528
  1009
tz@528
  1010
    <resource: #canvas>
tz@528
  1011
sv@1737
  1012
    ^ 
cg@3247
  1013
    #(FullSpec
cg@3247
  1014
       name: defineClassNameSpec
cg@3247
  1015
       window: 
cg@3247
  1016
      (WindowSpec
cg@3247
  1017
         label: 'Data Set Builder'
cg@3247
  1018
         name: 'Data Set Builder'
cg@3247
  1019
         min: (Point 10 10)
cg@3247
  1020
         bounds: (Rectangle 0 0 327 136)
cg@3247
  1021
       )
cg@3247
  1022
       component: 
cg@3247
  1023
      (SpecCollection
cg@3247
  1024
         collection: (
cg@3247
  1025
          (FramedBoxSpec
cg@3247
  1026
             label: 'Class for code'
cg@3247
  1027
             name: 'framedBox1'
cg@3247
  1028
             layout: (LayoutFrame 0 0.0 3 0.0 0 1.0 -34 1.0)
cg@3247
  1029
             labelPosition: topLeft
cg@3247
  1030
             translateLabel: true
sv@1737
  1031
           )
cg@3247
  1032
          (LabelSpec
cg@3247
  1033
             label: 'Class:'
cg@3247
  1034
             name: 'classLabel'
cg@3247
  1035
             layout: (AlignmentOrigin 73 0.11 38 0 1 0.5)
cg@3247
  1036
             translateLabel: true
cg@3247
  1037
             resizeForLabel: true
cg@3247
  1038
             adjust: right
cg@3247
  1039
           )
cg@3247
  1040
          (InputFieldSpec
cg@3247
  1041
             name: 'classNameInputField'
cg@3247
  1042
             layout: (LayoutFrame 77 0.11 27 0 -16 1.0 49 0)
cg@3247
  1043
             tabable: true
cg@3247
  1044
             model: classNameChannel
cg@3247
  1045
             acceptOnPointerLeave: false
cg@3247
  1046
           )
cg@3247
  1047
          (LabelSpec
cg@3247
  1048
             label: 'Superclass:'
cg@3247
  1049
             name: 'superClassLabel'
cg@3247
  1050
             layout: (AlignmentOrigin 73 0.11 65 0 1 0.5)
cg@3247
  1051
             translateLabel: true
cg@3247
  1052
             resizeForLabel: true
cg@3247
  1053
             adjust: right
cg@3247
  1054
           )
cg@3247
  1055
          (InputFieldSpec
cg@3247
  1056
             name: 'superclassNameInputField'
cg@3247
  1057
             layout: (LayoutFrame 76 0.11 55 0 -16 1.0 77 0)
cg@3247
  1058
             tabable: true
cg@3247
  1059
             model: superclassNameChannel
cg@3247
  1060
             acceptOnPointerLeave: false
cg@3247
  1061
           )
cg@3247
  1062
          (UISubSpecification
cg@3247
  1063
             name: 'SubSpecification'
cg@3247
  1064
             layout: (LayoutFrame 0 0.0 -35 1 0 1.0 -5 1.0)
cg@3247
  1065
             majorKey: ToolApplicationModel
cg@3247
  1066
             minorKey: windowSpecForCommitWithoutChannels
cg@3247
  1067
             keepSpaceForOSXResizeHandleH: true
cg@3247
  1068
           )
cg@3247
  1069
          )
cg@3247
  1070
        
cg@3247
  1071
       )
cg@3247
  1072
     )
tz@528
  1073
!
tz@528
  1074
ca@370
  1075
formatEditSpec
tz@825
  1076
    "This resource specification was automatically generated
tz@825
  1077
     by the UIPainter of ST/X."
ca@332
  1078
tz@825
  1079
    "Do not manually edit this!! If it is corrupted,
tz@825
  1080
     the UIPainter may not be able to read the specification."
ca@332
  1081
ca@332
  1082
    "
ca@370
  1083
     UIPainter new openOnClass:DataSetBuilder andSelector:#formatEditSpec
ca@370
  1084
     DataSetBuilder new openInterface:#formatEditSpec
ca@332
  1085
    "
ca@332
  1086
ca@332
  1087
    <resource: #canvas>
ca@332
  1088
cg@1156
  1089
    ^ 
cg@3247
  1090
    #(FullSpec
cg@3247
  1091
       name: formatEditSpec
cg@3247
  1092
       window: 
cg@3247
  1093
      (WindowSpec
cg@3247
  1094
         label: 'DataSet Details'
cg@3247
  1095
         name: 'DataSet Details'
cg@3247
  1096
         min: (Point 10 10)
cg@3247
  1097
         bounds: (Rectangle 0 0 388 149)
cg@3247
  1098
       )
cg@3247
  1099
       component: 
cg@3247
  1100
      (SpecCollection
cg@3247
  1101
         collection: (
cg@3247
  1102
          (FramedBoxSpec
cg@3247
  1103
             label: 'Column Format'
cg@3247
  1104
             name: 'framedBox1'
cg@3247
  1105
             layout: (LayoutFrame 0 0.0 3 0 0 1.0 155 0)
cg@3247
  1106
             labelPosition: topLeft
cg@3247
  1107
             translateLabel: true
cg@3247
  1108
             component: 
cg@3247
  1109
            (SpecCollection
cg@3247
  1110
               collection: (
cg@3247
  1111
                (LabelSpec
cg@3247
  1112
                   label: 'Type:'
cg@3247
  1113
                   name: 'typeLabel'
cg@3247
  1114
                   layout: (AlignmentOrigin 115 0 21 0 1 0.5)
cg@3247
  1115
                   activeHelpKey: formatInputType
cg@3247
  1116
                   translateLabel: true
cg@3247
  1117
                   resizeForLabel: true
cg@1156
  1118
                 )
cg@3247
  1119
                (ComboListSpec
cg@3247
  1120
                   name: 'typeCombo'
cg@3247
  1121
                   layout: (LayoutFrame 118 0 10 0 3 1.0 32 0)
cg@3247
  1122
                   activeHelpKey: formatInputType
cg@3247
  1123
                   tabable: true
cg@3247
  1124
                   model: type
cg@3247
  1125
                   comboList: possiblePrintConverterTypes
cg@3247
  1126
                   useIndex: false
cg@3247
  1127
                   hidePullDownMenuButton: false
cg@3247
  1128
                 )
cg@3247
  1129
                (LabelSpec
cg@3247
  1130
                   label: 'Max Size:'
cg@3247
  1131
                   name: 'sizeLabel'
cg@3247
  1132
                   layout: (AlignmentOrigin 115 0 47 0 1 0.5)
cg@3247
  1133
                   activeHelpKey: formatMaxSize
cg@3247
  1134
                   translateLabel: true
cg@3247
  1135
                   resizeForLabel: true
cg@3247
  1136
                 )
cg@3247
  1137
                (InputFieldSpec
cg@3247
  1138
                   name: 'sizeField'
cg@3247
  1139
                   layout: (LayoutFrame 118 0 36 0 3 1.0 58 0)
cg@3247
  1140
                   activeHelpKey: formatMaxSize
cg@3247
  1141
                   tabable: true
cg@3247
  1142
                   model: size
cg@3247
  1143
                   group: inputGroup
cg@3247
  1144
                   type: numberOrNil
cg@3247
  1145
                   acceptOnLostFocus: false
cg@3247
  1146
                   acceptChannel: acceptChannel
cg@3247
  1147
                   modifiedChannel: modifiedChannel
cg@3247
  1148
                   acceptOnPointerLeave: false
cg@3247
  1149
                 )
cg@3247
  1150
                (LabelSpec
cg@3247
  1151
                   label: 'Text Format:'
cg@3247
  1152
                   name: 'formatLabel'
cg@3247
  1153
                   layout: (AlignmentOrigin 115 0 72 0 1 0.5)
cg@3247
  1154
                   activeHelpKey: formatTextFormat
cg@3247
  1155
                   translateLabel: true
cg@3247
  1156
                   resizeForLabel: true
cg@3247
  1157
                 )
cg@3247
  1158
                (InputFieldSpec
cg@3247
  1159
                   name: 'formatField'
cg@3247
  1160
                   layout: (LayoutFrame 118 0 61 0 3 1.0 83 0)
cg@3247
  1161
                   activeHelpKey: formatTextFormat
cg@3247
  1162
                   tabable: true
cg@3247
  1163
                   model: formatString
cg@3247
  1164
                   group: inputGroup
cg@3247
  1165
                   acceptOnLostFocus: false
cg@3247
  1166
                   acceptChannel: acceptChannel
cg@3247
  1167
                   modifiedChannel: modifiedChannel
cg@3247
  1168
                   acceptOnPointerLeave: false
cg@3247
  1169
                 )
cg@3247
  1170
                (LabelSpec
cg@3247
  1171
                   label: 'Format Selector:'
cg@3247
  1172
                   name: 'formatSelectorLabel'
cg@3247
  1173
                   layout: (AlignmentOrigin 115 0 98 0 1 0.5)
cg@3247
  1174
                   activeHelpKey: formatFormatSelector
cg@3247
  1175
                   translateLabel: true
cg@3247
  1176
                   resizeForLabel: true
cg@3247
  1177
                 )
cg@3247
  1178
                (InputFieldSpec
cg@3247
  1179
                   name: 'formatSelector'
cg@3247
  1180
                   layout: (LayoutFrame 118 0 87 0 3 1.0 109 0)
cg@3247
  1181
                   activeHelpKey: formatFormatSelector
cg@3247
  1182
                   tabable: true
cg@3247
  1183
                   model: formatSelector
cg@3247
  1184
                   group: inputGroup
cg@3247
  1185
                   acceptOnLostFocus: false
cg@3247
  1186
                   acceptChannel: acceptChannel
cg@3247
  1187
                   modifiedChannel: modifiedChannel
cg@3247
  1188
                   acceptOnPointerLeave: false
cg@3247
  1189
                 )
cg@3247
  1190
                )
cg@3247
  1191
              
cg@3247
  1192
             )
cg@1156
  1193
           )
cg@3247
  1194
          )
cg@3247
  1195
        
cg@3247
  1196
       )
cg@3247
  1197
     )
ca@370
  1198
!
ca@370
  1199
tz@408
  1200
frameEditSpec
tz@825
  1201
    "This resource specification was automatically generated
tz@825
  1202
     by the UIPainter of ST/X."
ca@391
  1203
tz@825
  1204
    "Do not manually edit this!! If it is corrupted,
tz@825
  1205
     the UIPainter may not be able to read the specification."
ca@391
  1206
ca@391
  1207
    "
tz@408
  1208
     UIPainter new openOnClass:DataSetBuilder andSelector:#frameEditSpec
tz@408
  1209
     DataSetBuilder new openInterface:#frameEditSpec
ca@391
  1210
    "
ca@391
  1211
ca@391
  1212
    <resource: #canvas>
ca@391
  1213
cg@1156
  1214
    ^ 
cg@3048
  1215
    #(FullSpec
cg@3048
  1216
       name: frameEditSpec
cg@3048
  1217
       window: 
cg@3048
  1218
      (WindowSpec
cg@3048
  1219
         label: 'DataSet Dimension'
cg@3048
  1220
         name: 'DataSet Dimension'
cg@3048
  1221
         min: (Point 10 10)
cg@3048
  1222
         bounds: (Rectangle 0 0 396 313)
cg@3048
  1223
       )
cg@3048
  1224
       component: 
cg@3048
  1225
      (SpecCollection
cg@3048
  1226
         collection: (
cg@3048
  1227
          (FramedBoxSpec
cg@3048
  1228
             label: 'Separators'
cg@3048
  1229
             name: 'separatorBox'
cg@3048
  1230
             layout: (LayoutFrame 0 0.0 3 0 0 1.0 132 0)
cg@3048
  1231
             labelPosition: topLeft
cg@3048
  1232
             translateLabel: true
cg@3048
  1233
             component: 
cg@3048
  1234
            (SpecCollection
cg@3048
  1235
               collection: (
cg@3048
  1236
                (CheckBoxSpec
cg@3048
  1237
                   label: 'Show Row-Separator'
cg@3048
  1238
                   name: 'showRowSeparator'
cg@3048
  1239
                   layout: (LayoutFrame 5 0 15 0 293 0 38 0)
cg@3048
  1240
                   activeHelpKey: frameShowRowSeparator
cg@3048
  1241
                   tabable: true
cg@3048
  1242
                   model: showRowSeparator
cg@3048
  1243
                   translateLabel: true
cg@1156
  1244
                 )
cg@3048
  1245
                (InputFieldSpec
cg@3048
  1246
                   name: 'rowSeparatorSelector'
cg@3048
  1247
                   layout: (LayoutFrame 142 0 41 0 2 1.0 63 0)
cg@3048
  1248
                   activeHelpKey: frameShowRowSeparatorSelector
cg@3048
  1249
                   tabable: true
cg@3048
  1250
                   model: rowSeparatorSelector
cg@3048
  1251
                   group: inputGroup
cg@3048
  1252
                   type: symbolOrNil
cg@3048
  1253
                   acceptOnLostFocus: false
cg@3048
  1254
                   acceptChannel: acceptChannel
cg@3048
  1255
                   modifiedChannel: modifiedChannel
cg@3048
  1256
                   acceptOnPointerLeave: false
cg@1156
  1257
                 )
cg@3048
  1258
                (CheckBoxSpec
cg@3048
  1259
                   label: 'Show Column-Separator'
cg@3048
  1260
                   name: 'showColSeparator'
cg@3048
  1261
                   layout: (LayoutFrame 5 0 70 0 294 0 93 0)
cg@3048
  1262
                   activeHelpKey: frameShowColumnSeparator
cg@3048
  1263
                   tabable: true
cg@3048
  1264
                   model: showColSeparator
cg@3048
  1265
                   translateLabel: true
cg@3048
  1266
                 )
cg@3048
  1267
                (LabelSpec
cg@3048
  1268
                   label: 'Selector:'
cg@3048
  1269
                   name: 'Label1'
cg@3048
  1270
                   layout: (LayoutFrame 80 0.0 44 0 140 0.0 61 0)
cg@3048
  1271
                   activeHelpKey: frameShowRowSeparatorSelector
cg@3048
  1272
                   translateLabel: true
cg@3048
  1273
                   resizeForLabel: true
cg@3048
  1274
                   adjust: right
cg@3048
  1275
                 )
cg@3048
  1276
                )
cg@3048
  1277
              
cg@3048
  1278
             )
cg@1156
  1279
           )
cg@3048
  1280
          (FramedBoxSpec
cg@3048
  1281
             label: 'Dimensions:'
cg@3048
  1282
             name: 'framedBox1'
cg@3247
  1283
             layout: (LayoutFrame 0 0.0 133 0 0 1.0 315 0)
cg@3048
  1284
             labelPosition: topLeft
cg@3048
  1285
             translateLabel: true
cg@3048
  1286
             component: 
cg@3048
  1287
            (SpecCollection
cg@3048
  1288
               collection: (
cg@3048
  1289
                (LabelSpec
cg@3048
  1290
                   label: 'Column Width:'
cg@3048
  1291
                   name: 'widthLabel'
cg@3048
  1292
                   layout: (AlignmentOrigin 140 0.0 23 0 1 0.5)
cg@3048
  1293
                   activeHelpKey: frameColumnWidth
cg@3048
  1294
                   translateLabel: true
cg@3048
  1295
                   resizeForLabel: true
cg@3048
  1296
                   adjust: right
cg@3048
  1297
                 )
cg@3048
  1298
                (InputFieldSpec
cg@3048
  1299
                   name: 'widthField'
cg@3048
  1300
                   layout: (LayoutFrame 142 0 12 0 2 1.0 34 0)
cg@3048
  1301
                   activeHelpKey: frameColumnWidth
cg@3048
  1302
                   tabable: true
cg@3048
  1303
                   model: width
cg@3048
  1304
                   group: inputGroup
cg@3048
  1305
                   type: numberOrNil
cg@3048
  1306
                   acceptOnLostFocus: false
cg@3048
  1307
                   acceptChannel: acceptChannel
cg@3048
  1308
                   modifiedChannel: modifiedChannel
cg@3048
  1309
                   acceptOnPointerLeave: false
cg@3048
  1310
                 )
cg@3048
  1311
                (LabelSpec
cg@3048
  1312
                   label: 'Min. Width:'
cg@3048
  1313
                   name: 'minWidthLabel'
cg@3048
  1314
                   layout: (AlignmentOrigin 140 0.0 51 0 1 0.5)
cg@3048
  1315
                   activeHelpKey: frameMinWidth
cg@3048
  1316
                   translateLabel: true
cg@3048
  1317
                   resizeForLabel: true
cg@3048
  1318
                   adjust: right
cg@3048
  1319
                 )
cg@3048
  1320
                (InputFieldSpec
cg@3048
  1321
                   name: 'minWidthField'
cg@3048
  1322
                   layout: (LayoutFrame 142 0 40 0 2 1.0 62 0)
cg@3048
  1323
                   activeHelpKey: frameMinWidth
cg@3048
  1324
                   tabable: true
cg@3048
  1325
                   model: minWidth
cg@3048
  1326
                   group: inputGroup
cg@3048
  1327
                   type: numberOrNil
cg@3048
  1328
                   acceptOnLostFocus: false
cg@3048
  1329
                   acceptChannel: acceptChannel
cg@3048
  1330
                   modifiedChannel: modifiedChannel
cg@3048
  1331
                   acceptOnPointerLeave: false
cg@3048
  1332
                 )
cg@3048
  1333
                (LabelSpec
cg@3048
  1334
                   label: 'Row Height:'
cg@3048
  1335
                   name: 'heightLabel'
cg@3048
  1336
                   layout: (AlignmentOrigin 140 0.0 79 0 1 0.5)
cg@3048
  1337
                   activeHelpKey: frameRowHeight
cg@3048
  1338
                   translateLabel: true
cg@3048
  1339
                   resizeForLabel: true
cg@3048
  1340
                   adjust: right
cg@3048
  1341
                 )
cg@3048
  1342
                (InputFieldSpec
cg@3048
  1343
                   name: 'heightField'
cg@3048
  1344
                   layout: (LayoutFrame 142 0 68 0 2 1.0 90 0)
cg@3048
  1345
                   activeHelpKey: frameRowHeight
cg@3048
  1346
                   tabable: true
cg@3048
  1347
                   model: height
cg@3048
  1348
                   group: inputGroup
cg@3048
  1349
                   type: symbolOrNumberOrNil
cg@3048
  1350
                   acceptOnLostFocus: false
cg@3048
  1351
                   acceptChannel: acceptChannel
cg@3048
  1352
                   modifiedChannel: modifiedChannel
cg@3048
  1353
                   acceptOnPointerLeave: false
cg@3048
  1354
                 )
cg@3048
  1355
                (CheckBoxSpec
cg@3048
  1356
                   label: 'Compute Width from Items'
cg@3048
  1357
                   name: 'usePreferredWidth'
cg@3048
  1358
                   layout: (LayoutFrame 5 0 96 0 -5 1 118 0)
cg@3048
  1359
                   activeHelpKey: usePreferredWidth
cg@3048
  1360
                   tabable: true
cg@3048
  1361
                   model: usePreferredWidth
cg@3048
  1362
                   translateLabel: true
cg@3048
  1363
                 )
cg@3048
  1364
                (CheckBoxSpec
cg@3048
  1365
                   label: 'Is Resizeable'
cg@3048
  1366
                   name: 'isResizeable'
cg@3048
  1367
                   layout: (LayoutFrame 5 0 121 0 -5 1.0 144 0)
cg@3048
  1368
                   activeHelpKey: isResizeable
cg@3048
  1369
                   tabable: true
cg@3048
  1370
                   model: isResizeable
cg@3048
  1371
                   translateLabel: true
cg@3048
  1372
                 )
cg@3048
  1373
                )
cg@3048
  1374
              
cg@3048
  1375
             )
cg@3048
  1376
           )
cg@3048
  1377
          )
cg@3048
  1378
        
cg@3048
  1379
       )
cg@3048
  1380
     )
ca@391
  1381
!
ca@391
  1382
tz@408
  1383
selectionEditSpec
tz@825
  1384
    "This resource specification was automatically generated
tz@825
  1385
     by the UIPainter of ST/X."
ca@370
  1386
tz@825
  1387
    "Do not manually edit this!! If it is corrupted,
tz@825
  1388
     the UIPainter may not be able to read the specification."
ca@370
  1389
ca@370
  1390
    "
tz@408
  1391
     UIPainter new openOnClass:DataSetBuilder andSelector:#selectionEditSpec
tz@408
  1392
     DataSetBuilder new openInterface:#selectionEditSpec
ca@370
  1393
    "
ca@370
  1394
ca@370
  1395
    <resource: #canvas>
ca@370
  1396
cg@1156
  1397
    ^ 
cg@3247
  1398
    #(FullSpec
cg@3247
  1399
       name: selectionEditSpec
cg@3247
  1400
       window: 
cg@3247
  1401
      (WindowSpec
cg@3247
  1402
         label: 'DataSet Basic'
cg@3247
  1403
         name: 'DataSet Basic'
cg@3247
  1404
         min: (Point 10 10)
cg@3247
  1405
         bounds: (Rectangle 0 0 331 328)
cg@3247
  1406
       )
cg@3247
  1407
       component: 
cg@3247
  1408
      (SpecCollection
cg@3247
  1409
         collection: (
cg@3247
  1410
          (FramedBoxSpec
cg@3247
  1411
             label: 'Label Select Action:'
cg@3247
  1412
             name: 'LabelSelectAction'
cg@3247
  1413
             layout: (LayoutFrame 0 0.0 3 0 0 1.0 100 0)
cg@3247
  1414
             labelPosition: topLeft
cg@3247
  1415
             translateLabel: true
cg@3247
  1416
             component: 
cg@3247
  1417
            (SpecCollection
cg@3247
  1418
               collection: (
cg@3247
  1419
                (LabelSpec
cg@3247
  1420
                   label: 'Selector:'
cg@3247
  1421
                   name: 'ActionLabel'
cg@3247
  1422
                   layout: (AlignmentOrigin 95 0 20 0 1 0.5)
cg@3247
  1423
                   translateLabel: true
cg@3247
  1424
                   resizeForLabel: true
cg@3247
  1425
                   adjust: left
cg@1156
  1426
                 )
cg@3247
  1427
                (InputFieldSpec
cg@3247
  1428
                   name: 'ActionSelector'
cg@3247
  1429
                   layout: (LayoutFrame 98 0 9 0 3 1.0 31 0)
cg@3247
  1430
                   activeHelpKey: selectionLabelClickSelector
cg@3247
  1431
                   tabable: true
cg@3247
  1432
                   model: labelActionSelector
cg@3247
  1433
                   group: inputGroup
cg@3247
  1434
                   type: symbolOrNil
cg@3247
  1435
                   acceptOnLostFocus: false
cg@3247
  1436
                   acceptChannel: acceptChannel
cg@3247
  1437
                   modifiedChannel: modifiedChannel
cg@3247
  1438
                   acceptOnPointerLeave: false
cg@1156
  1439
                 )
cg@3247
  1440
                (LabelSpec
cg@3247
  1441
                   label: 'Argument:'
cg@3247
  1442
                   name: 'ArgumentLabel'
cg@3247
  1443
                   layout: (AlignmentOrigin 95 0 48 0 1 0.5)
cg@3247
  1444
                   translateLabel: true
cg@3247
  1445
                   resizeForLabel: true
cg@3247
  1446
                   adjust: left
cg@1156
  1447
                 )
cg@3247
  1448
                (InputFieldSpec
cg@3247
  1449
                   name: 'ArgumentValue'
cg@3247
  1450
                   layout: (LayoutFrame 98 0 37 0 3 1.0 59 0)
cg@3247
  1451
                   activeHelpKey: selectionLabelSelectorArgument
cg@3247
  1452
                   tabable: true
cg@3247
  1453
                   model: labelActionArgument
cg@3247
  1454
                   group: inputGroup
cg@3247
  1455
                   type: string
cg@3247
  1456
                   acceptOnLostFocus: false
cg@3247
  1457
                   acceptChannel: acceptChannel
cg@3247
  1458
                   modifiedChannel: modifiedChannel
cg@3247
  1459
                   acceptOnPointerLeave: false
cg@3247
  1460
                 )
cg@3247
  1461
                )
cg@3247
  1462
              
cg@3247
  1463
             )
cg@1156
  1464
           )
cg@3247
  1465
          (FramedBoxSpec
cg@3247
  1466
             label: 'Cell Selection:'
cg@3247
  1467
             name: 'CellSelection'
cg@3247
  1468
             layout: (LayoutFrame 0 0.0 105 0 0 1.0 225 0)
cg@3247
  1469
             labelPosition: topLeft
cg@3247
  1470
             translateLabel: true
cg@3247
  1471
             component: 
cg@3247
  1472
            (SpecCollection
cg@3247
  1473
               collection: (
cg@3247
  1474
                (CheckBoxSpec
cg@3247
  1475
                   label: 'Is Selectable'
cg@3247
  1476
                   name: 'canSelect'
cg@3247
  1477
                   layout: (Point 95 -4)
cg@3247
  1478
                   activeHelpKey: selectionIsSelectable
cg@3247
  1479
                   tabable: true
cg@3247
  1480
                   model: canSelect
cg@3247
  1481
                   translateLabel: true
cg@3247
  1482
                 )
cg@3247
  1483
                (LabelSpec
cg@3247
  1484
                   label: 'Selector:'
cg@3247
  1485
                   name: 'selectorLabel'
cg@3247
  1486
                   layout: (AlignmentOrigin 95 0 37 0 1 0.5)
cg@3247
  1487
                   activeHelpKey: selectionCellClickSelector
cg@3247
  1488
                   translateLabel: true
cg@3247
  1489
                   resizeForLabel: true
cg@3247
  1490
                   adjust: right
cg@3247
  1491
                 )
cg@3247
  1492
                (InputFieldSpec
cg@3247
  1493
                   name: 'selectSelector'
cg@3247
  1494
                   layout: (LayoutFrame 98 0 26 0 3 1.0 48 0)
cg@3247
  1495
                   activeHelpKey: selectionCellClickSelector
cg@3247
  1496
                   tabable: true
cg@3247
  1497
                   model: selectSelector
cg@3247
  1498
                   group: inputGroup
cg@3247
  1499
                   type: symbolOrNil
cg@3247
  1500
                   acceptOnLostFocus: false
cg@3247
  1501
                   acceptChannel: acceptChannel
cg@3247
  1502
                   modifiedChannel: modifiedChannel
cg@3247
  1503
                   acceptOnPointerLeave: false
cg@3247
  1504
                 )
cg@3247
  1505
                (CheckBoxSpec
cg@3247
  1506
                   label: 'Show Selection HighLightened'
cg@3247
  1507
                   name: 'showSelectionHighLightened'
cg@3247
  1508
                   layout: (LayoutFrame 95 0 53 0 3 1.0 77 0)
cg@3247
  1509
                   activeHelpKey: showSelectionHighLighted
cg@3247
  1510
                   tabable: true
cg@3247
  1511
                   model: showSelectionHighLighted
cg@3247
  1512
                   translateLabel: true
cg@3247
  1513
                 )
cg@3247
  1514
                )
cg@3247
  1515
              
cg@3247
  1516
             )
cg@3247
  1517
           )
cg@3247
  1518
          (FramedBoxSpec
cg@3247
  1519
             label: 'Cell Double Click:'
cg@3247
  1520
             name: 'CellDoubleClick'
cg@3247
  1521
             layout: (LayoutFrame 0 0.0 227 0 0 1.0 300 0)
cg@3247
  1522
             labelPosition: topLeft
cg@3247
  1523
             translateLabel: true
cg@3247
  1524
             component: 
cg@3247
  1525
            (SpecCollection
cg@3247
  1526
               collection: (
cg@3247
  1527
                (LabelSpec
cg@3247
  1528
                   label: 'Selector:'
cg@3247
  1529
                   name: 'doubleLabel'
cg@3247
  1530
                   layout: (AlignmentOrigin 95 0 19 0 1 0.5)
cg@3247
  1531
                   activeHelpKey: selectionCellDoubleClickSelector
cg@3247
  1532
                   translateLabel: true
cg@3247
  1533
                   resizeForLabel: true
cg@3247
  1534
                   adjust: right
cg@3247
  1535
                 )
cg@3247
  1536
                (InputFieldSpec
cg@3247
  1537
                   name: 'doubleClicked'
cg@3247
  1538
                   layout: (LayoutFrame 98 0 8 0 3 1.0 30 0)
cg@3247
  1539
                   activeHelpKey: selectionCellDoubleClickSelector
cg@3247
  1540
                   tabable: true
cg@3247
  1541
                   model: doubleClickedSelector
cg@3247
  1542
                   group: inputGroup
cg@3247
  1543
                   type: symbolOrNil
cg@3247
  1544
                   acceptOnLostFocus: false
cg@3247
  1545
                   acceptChannel: acceptChannel
cg@3247
  1546
                   modifiedChannel: modifiedChannel
cg@3247
  1547
                   acceptOnPointerLeave: false
cg@3247
  1548
                 )
cg@3247
  1549
                )
cg@3247
  1550
              
cg@3247
  1551
             )
cg@3247
  1552
           )
cg@3247
  1553
          )
cg@3247
  1554
        
cg@3247
  1555
       )
cg@3247
  1556
     )
tz@408
  1557
!
tz@408
  1558
tz@528
  1559
slices
tz@528
  1560
    ^#(
tz@528
  1561
        (Basics         basicsEditSpec)
tz@528
  1562
        (Values         valuesEditSpec)
tz@528
  1563
        (Format         formatEditSpec)
cg@2475
  1564
        (Sort           sortEditSpec)
tz@528
  1565
        (Selection      selectionEditSpec)
tz@528
  1566
        (Frame          frameEditSpec)
tz@528
  1567
        (Colors         colorsEditSpec)
tz@528
  1568
    )
tz@528
  1569
!
tz@528
  1570
cg@2475
  1571
sortEditSpec
cg@2475
  1572
    "This resource specification was automatically generated
cg@2475
  1573
     by the UIPainter of ST/X."
cg@2475
  1574
cg@2475
  1575
    "Do not manually edit this!! If it is corrupted,
cg@2475
  1576
     the UIPainter may not be able to read the specification."
cg@2475
  1577
cg@2475
  1578
    "
cg@2475
  1579
     UIPainter new openOnClass:DataSetBuilder andSelector:#sortEditSpec
cg@2475
  1580
     DataSetBuilder new openInterface:#sortEditSpec
cg@2475
  1581
    "
cg@2475
  1582
cg@2475
  1583
    <resource: #canvas>
cg@2475
  1584
cg@2475
  1585
    ^ 
cg@3046
  1586
    #(FullSpec
cg@3046
  1587
       name: sortEditSpec
cg@3046
  1588
       window: 
cg@3046
  1589
      (WindowSpec
cg@3046
  1590
         label: 'DataSet Basic'
cg@3046
  1591
         name: 'DataSet Basic'
cg@3046
  1592
         min: (Point 10 10)
cg@3046
  1593
         bounds: (Rectangle 0 0 430 473)
cg@3046
  1594
       )
cg@3046
  1595
       component: 
cg@3046
  1596
      (SpecCollection
cg@3046
  1597
         collection: (
cg@3046
  1598
          (VerticalPanelViewSpec
cg@3046
  1599
             name: 'VerticalPanel1'
cg@3046
  1600
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
cg@3046
  1601
             horizontalLayout: fit
cg@3046
  1602
             verticalLayout: top
cg@3046
  1603
             horizontalSpace: 3
cg@3046
  1604
             verticalSpace: 3
cg@3046
  1605
             component: 
cg@3046
  1606
            (SpecCollection
cg@3046
  1607
               collection: (
cg@3046
  1608
                (FramedBoxSpec
cg@3046
  1609
                   label: 'Sorting:'
cg@3046
  1610
                   name: 'sortFrame'
cg@3046
  1611
                   labelPosition: topLeft
cg@3046
  1612
                   translateLabel: true
cg@3046
  1613
                   component: 
cg@3046
  1614
                  (SpecCollection
cg@3046
  1615
                     collection: (
cg@3046
  1616
                      (CheckBoxSpec
cg@3046
  1617
                         label: 'Sortable'
cg@3046
  1618
                         name: 'isSortable'
cg@3046
  1619
                         layout: (LayoutOrigin -3 0 0 0)
cg@3046
  1620
                         activeHelpKey: isSortable
cg@3046
  1621
                         tabable: true
cg@3046
  1622
                         model: isSortable
cg@3046
  1623
                         translateLabel: true
cg@2475
  1624
                       )
cg@3046
  1625
                      (LabelSpec
cg@3046
  1626
                         label: 'Sort Selector:'
cg@3046
  1627
                         name: 'sortSelector'
cg@3247
  1628
                         layout: (AlignmentOrigin 142 0 55 0 1 0.5)
cg@3046
  1629
                         activeHelpKey: sortSelector
cg@3046
  1630
                         translateLabel: true
cg@3046
  1631
                         resizeForLabel: true
cg@3046
  1632
                         adjust: right
cg@3046
  1633
                       )
cg@3046
  1634
                      (InputFieldSpec
cg@3046
  1635
                         name: 'EntryField3'
cg@3247
  1636
                         layout: (LayoutFrame 141 0 43 0 8 1 69 0)
cg@3046
  1637
                         activeHelpKey: sortSelector
cg@3046
  1638
                         enableChannel: isSortable
cg@3046
  1639
                         tabable: true
cg@3046
  1640
                         model: sortSelector
cg@3046
  1641
                         group: inputGroup
cg@3046
  1642
                         type: symbolOrNil
cg@3046
  1643
                         immediateAccept: false
cg@3046
  1644
                         acceptOnLeave: false
cg@3046
  1645
                         acceptOnLostFocus: false
cg@3046
  1646
                         acceptChannel: acceptChannel
cg@3046
  1647
                         modifiedChannel: modifiedChannel
cg@3046
  1648
                         acceptOnPointerLeave: false
cg@3046
  1649
                       )
cg@3046
  1650
                      (LabelSpec
cg@3046
  1651
                         label: 'Sort Block Selector:'
cg@3046
  1652
                         name: 'Label1'
cg@3247
  1653
                         layout: (AlignmentOrigin 142 0 85 0 1 0.5)
cg@3046
  1654
                         activeHelpKey: sortBlockSelector
cg@3046
  1655
                         translateLabel: true
cg@3046
  1656
                         resizeForLabel: true
cg@3046
  1657
                         adjust: right
cg@3046
  1658
                       )
cg@3046
  1659
                      (InputFieldSpec
cg@3046
  1660
                         name: 'EntryField4'
cg@3247
  1661
                         layout: (LayoutFrame 141 0 73 0 8 1 99 0)
cg@3046
  1662
                         activeHelpKey: sortBlockSelector
cg@3046
  1663
                         enableChannel: isSortable
cg@3046
  1664
                         tabable: true
cg@3046
  1665
                         model: sortBlockSelector
cg@3046
  1666
                         group: inputGroup
cg@3046
  1667
                         type: symbolOrNil
cg@3046
  1668
                         immediateAccept: false
cg@3046
  1669
                         acceptOnLeave: false
cg@3046
  1670
                         acceptOnLostFocus: false
cg@3046
  1671
                         acceptChannel: acceptChannel
cg@3046
  1672
                         modifiedChannel: modifiedChannel
cg@3046
  1673
                         acceptOnPointerLeave: false
cg@3046
  1674
                       )
cg@3046
  1675
                      )
cg@3046
  1676
                    
cg@3046
  1677
                   )
cg@3247
  1678
                   extent: (Point 430 140)
cg@2475
  1679
                 )
cg@3046
  1680
                )
cg@3046
  1681
              
cg@3046
  1682
             )
cg@2475
  1683
           )
cg@3046
  1684
          )
cg@3046
  1685
        
cg@3046
  1686
       )
cg@3046
  1687
     )
cg@2475
  1688
!
cg@2475
  1689
tz@408
  1690
valuesEditSpec
tz@825
  1691
    "This resource specification was automatically generated
tz@825
  1692
     by the UIPainter of ST/X."
tz@408
  1693
tz@825
  1694
    "Do not manually edit this!! If it is corrupted,
tz@825
  1695
     the UIPainter may not be able to read the specification."
tz@408
  1696
tz@408
  1697
    "
tz@408
  1698
     UIPainter new openOnClass:DataSetBuilder andSelector:#valuesEditSpec
tz@408
  1699
     DataSetBuilder new openInterface:#valuesEditSpec
tz@408
  1700
    "
tz@408
  1701
tz@408
  1702
    <resource: #canvas>
tz@408
  1703
cg@1156
  1704
    ^ 
cg@3046
  1705
    #(FullSpec
cg@3046
  1706
       name: valuesEditSpec
cg@3046
  1707
       window: 
cg@3046
  1708
      (WindowSpec
cg@3046
  1709
         label: 'DataSet Basic'
cg@3046
  1710
         name: 'DataSet Basic'
cg@3046
  1711
         min: (Point 10 10)
cg@3247
  1712
         bounds: (Rectangle 0 0 472 460)
cg@3046
  1713
       )
cg@3046
  1714
       component: 
cg@3046
  1715
      (SpecCollection
cg@3046
  1716
         collection: (
cg@3046
  1717
          (VerticalPanelViewSpec
cg@3046
  1718
             name: 'VerticalPanel1'
cg@3046
  1719
             layout: (LayoutFrame 0 0 0 0 0 1 0 1)
cg@3046
  1720
             horizontalLayout: fit
cg@3046
  1721
             verticalLayout: top
cg@3046
  1722
             horizontalSpace: 3
cg@3046
  1723
             verticalSpace: 3
cg@3046
  1724
             component: 
cg@3046
  1725
            (SpecCollection
cg@3046
  1726
               collection: (
cg@3046
  1727
                (FramedBoxSpec
cg@3046
  1728
                   label: 'Value Selectors:'
cg@3046
  1729
                   name: 'valuesBox'
cg@3046
  1730
                   labelPosition: topLeft
cg@3046
  1731
                   translateLabel: true
cg@3046
  1732
                   component: 
cg@3046
  1733
                  (SpecCollection
cg@3046
  1734
                     collection: (
cg@3046
  1735
                      (LabelSpec
cg@3046
  1736
                         label: 'Read:'
cg@3046
  1737
                         name: 'readLabel'
cg@3046
  1738
                         layout: (AlignmentOrigin 116 0 15 0 1 0.5)
cg@3046
  1739
                         activeHelpKey: valuesReadSelector
cg@3046
  1740
                         translateLabel: true
cg@3046
  1741
                         resizeForLabel: true
cg@3046
  1742
                         adjust: right
cg@2816
  1743
                       )
cg@3046
  1744
                      (InputFieldSpec
cg@3046
  1745
                         name: 'readSelector'
cg@3046
  1746
                         layout: (LayoutFrame 116 0 4 0 2 1.0 26 0)
cg@3046
  1747
                         activeHelpKey: valuesReadSelector
cg@3046
  1748
                         tabable: true
cg@3046
  1749
                         model: readSelector
cg@3046
  1750
                         group: inputGroup
cg@3046
  1751
                         type: symbolOrNil
cg@3046
  1752
                         acceptOnLostFocus: false
cg@3046
  1753
                         acceptChannel: acceptChannel
cg@3046
  1754
                         modifiedChannel: modifiedChannel
cg@3046
  1755
                         acceptOnPointerLeave: false
cg@2816
  1756
                       )
cg@3046
  1757
                      (LabelSpec
cg@3046
  1758
                         label: 'Write:'
cg@3046
  1759
                         name: 'writeLabel'
cg@3046
  1760
                         layout: (AlignmentOrigin 116 0 40 0 1 0.5)
cg@3046
  1761
                         activeHelpKey: valuesWriteSelector
cg@3046
  1762
                         translateLabel: true
cg@3046
  1763
                         resizeForLabel: true
cg@3046
  1764
                         adjust: right
cg@2816
  1765
                       )
cg@3046
  1766
                      (InputFieldSpec
cg@3046
  1767
                         name: 'writeSelector'
cg@3046
  1768
                         layout: (LayoutFrame 116 0 29 0 2 1.0 51 0)
cg@3046
  1769
                         activeHelpKey: valuesWriteSelector
cg@3046
  1770
                         tabable: true
cg@3046
  1771
                         model: writeSelector
cg@3046
  1772
                         group: inputGroup
cg@3046
  1773
                         type: symbolOrNil
cg@3046
  1774
                         acceptOnLostFocus: false
cg@3046
  1775
                         acceptChannel: acceptChannel
cg@3046
  1776
                         modifiedChannel: modifiedChannel
cg@3046
  1777
                         acceptOnPointerLeave: false
cg@2816
  1778
                       )
cg@3046
  1779
                      (LabelSpec
cg@3046
  1780
                         label: 'Converter:'
cg@3046
  1781
                         name: 'converterLabel'
cg@3046
  1782
                         layout: (AlignmentOrigin 116 0 65 0 1 0.5)
cg@3046
  1783
                         activeHelpKey: converterSelector
cg@3046
  1784
                         translateLabel: true
cg@3046
  1785
                         resizeForLabel: true
cg@3046
  1786
                         adjust: right
cg@3046
  1787
                       )
cg@3046
  1788
                      (InputFieldSpec
cg@3046
  1789
                         name: 'converterField'
cg@3046
  1790
                         layout: (LayoutFrame 116 0 54 0 2 1.0 76 0)
cg@3046
  1791
                         activeHelpKey: converterSelector
cg@3046
  1792
                         tabable: true
cg@3046
  1793
                         model: converterSelector
cg@3046
  1794
                         group: inputGroup
cg@3046
  1795
                         type: symbolOrNil
cg@3046
  1796
                         acceptOnLostFocus: false
cg@3046
  1797
                         acceptChannel: acceptChannel
cg@3046
  1798
                         modifiedChannel: modifiedChannel
cg@3046
  1799
                         acceptOnPointerLeave: false
cg@3046
  1800
                       )
cg@3046
  1801
                      (LabelSpec
cg@3046
  1802
                         label: 'Print:'
cg@3046
  1803
                         name: 'printLabel'
cg@3046
  1804
                         layout: (AlignmentOrigin 116 0 90 0 1 0.5)
cg@3046
  1805
                         activeHelpKey: valuesPrintSelector
cg@3046
  1806
                         translateLabel: true
cg@3046
  1807
                         resizeForLabel: true
cg@3046
  1808
                         adjust: right
cg@3046
  1809
                       )
cg@3046
  1810
                      (InputFieldSpec
cg@3046
  1811
                         name: 'printSelector'
cg@3046
  1812
                         layout: (LayoutFrame 116 0 79 0 2 1.0 101 0)
cg@3046
  1813
                         activeHelpKey: valuesPrintSelector
cg@3046
  1814
                         tabable: true
cg@3046
  1815
                         model: printSelector
cg@3046
  1816
                         group: inputGroup
cg@3046
  1817
                         type: symbolOrNil
cg@3046
  1818
                         acceptOnLostFocus: false
cg@3046
  1819
                         acceptChannel: acceptChannel
cg@3046
  1820
                         modifiedChannel: modifiedChannel
cg@3046
  1821
                         acceptOnPointerLeave: false
cg@3046
  1822
                       )
cg@3046
  1823
                      (LabelSpec
cg@3046
  1824
                         label: 'Visibility:'
cg@3046
  1825
                         name: 'visibilityLabel'
cg@3046
  1826
                         layout: (AlignmentOrigin 116 0 115 0 1 0.5)
cg@3046
  1827
                         activeHelpKey: valuesVisibilitySelector
cg@3046
  1828
                         translateLabel: true
cg@3046
  1829
                         resizeForLabel: true
cg@3046
  1830
                         adjust: right
cg@3046
  1831
                       )
cg@3046
  1832
                      (InputFieldSpec
cg@3046
  1833
                         name: 'visibilitySelector'
cg@3046
  1834
                         layout: (LayoutFrame 116 0 104 0 2 1.0 126 0)
cg@3046
  1835
                         activeHelpKey: valuesVisibilitySelector
cg@3046
  1836
                         tabable: true
cg@3046
  1837
                         model: visibilitySelector
cg@3046
  1838
                         group: inputGroup
cg@3046
  1839
                         type: symbolOrNil
cg@3046
  1840
                         acceptOnLostFocus: false
cg@3046
  1841
                         acceptChannel: acceptChannel
cg@3046
  1842
                         modifiedChannel: modifiedChannel
cg@3046
  1843
                         acceptOnPointerLeave: false
cg@3046
  1844
                       )
cg@3046
  1845
                      )
cg@3046
  1846
                    
cg@3046
  1847
                   )
cg@3247
  1848
                   extent: (Point 472 170)
cg@1156
  1849
                 )
cg@3046
  1850
                (FramedBoxSpec
cg@3046
  1851
                   label: 'Range:'
cg@3046
  1852
                   name: 'rangeBox'
cg@3046
  1853
                   labelPosition: topLeft
cg@3046
  1854
                   translateLabel: true
cg@3046
  1855
                   component: 
cg@3046
  1856
                  (SpecCollection
cg@3046
  1857
                     collection: (
cg@3046
  1858
                      (LabelSpec
cg@3046
  1859
                         label: 'Min:'
cg@3046
  1860
                         name: 'Label1'
cg@3046
  1861
                         layout: (LayoutFrame 33 0 3 0 116 0 20 0)
cg@3046
  1862
                         activeHelpKey: minValue
cg@3046
  1863
                         translateLabel: true
cg@3046
  1864
                         resizeForLabel: true
cg@3046
  1865
                         adjust: right
cg@3046
  1866
                       )
cg@3046
  1867
                      (InputFieldSpec
cg@3046
  1868
                         name: 'EntryField1'
cg@3046
  1869
                         layout: (LayoutFrame 116 0 1 0 21 0.5 23 0)
cg@3046
  1870
                         activeHelpKey: minValue
cg@3046
  1871
                         tabable: true
cg@3046
  1872
                         model: minValue
cg@3046
  1873
                         group: inputGroup
cg@3046
  1874
                         type: numberOrNil
cg@3046
  1875
                         acceptOnLeave: true
cg@3046
  1876
                         acceptOnLostFocus: true
cg@3046
  1877
                         acceptChannel: acceptChannel
cg@3046
  1878
                         modifiedChannel: modifiedChannel
cg@3046
  1879
                         acceptOnPointerLeave: true
cg@3046
  1880
                       )
cg@3046
  1881
                      (LabelSpec
cg@3046
  1882
                         label: 'Max:'
cg@3046
  1883
                         name: 'Label2'
cg@3046
  1884
                         layout: (LayoutFrame 21 0.5 3 0 70 0.5 20 0)
cg@3046
  1885
                         activeHelpKey: maxValue
cg@3046
  1886
                         translateLabel: true
cg@3046
  1887
                         resizeForLabel: true
cg@3046
  1888
                         adjust: right
cg@3046
  1889
                       )
cg@3046
  1890
                      (InputFieldSpec
cg@3046
  1891
                         name: 'EntryField2'
cg@3046
  1892
                         layout: (LayoutFrame 70 0.5 1 0 -2 1.0 23 0)
cg@3046
  1893
                         activeHelpKey: maxValue
cg@3046
  1894
                         tabable: true
cg@3046
  1895
                         model: maxValue
cg@3046
  1896
                         group: inputGroup
cg@3046
  1897
                         type: numberOrNil
cg@3046
  1898
                         acceptOnLeave: true
cg@3046
  1899
                         acceptOnLostFocus: true
cg@3046
  1900
                         acceptChannel: acceptChannel
cg@3046
  1901
                         modifiedChannel: modifiedChannel
cg@3046
  1902
                         acceptOnPointerLeave: true
cg@3046
  1903
                       )
cg@3046
  1904
                      )
cg@3046
  1905
                    
cg@3046
  1906
                   )
cg@3247
  1907
                   extent: (Point 472 65)
cg@3046
  1908
                 )
cg@3046
  1909
                (FramedBoxSpec
cg@3046
  1910
                   label: 'Popup Menu:'
cg@3046
  1911
                   name: 'menusBox'
cg@3046
  1912
                   labelPosition: topLeft
cg@3046
  1913
                   translateLabel: true
cg@3046
  1914
                   component: 
cg@3046
  1915
                  (SpecCollection
cg@3046
  1916
                     collection: (
cg@3046
  1917
                      (LabelSpec
cg@3046
  1918
                         label: 'Selector:'
cg@3046
  1919
                         name: 'menuLabel'
cg@3046
  1920
                         layout: (AlignmentOrigin 116 0 12 0 1 0.5)
cg@3046
  1921
                         activeHelpKey: valuesMenuSelector
cg@3046
  1922
                         translateLabel: true
cg@3046
  1923
                         resizeForLabel: true
cg@3046
  1924
                         adjust: right
cg@3046
  1925
                       )
cg@3046
  1926
                      (InputFieldSpec
cg@3046
  1927
                         name: 'menuSelector'
cg@3046
  1928
                         layout: (LayoutFrame 116 0 1 0 2 1.0 23 0)
cg@3046
  1929
                         activeHelpKey: valuesMenuSelector
cg@3046
  1930
                         tabable: true
cg@3046
  1931
                         model: menu
cg@3046
  1932
                         group: inputGroup
cg@3046
  1933
                         type: symbolOrNil
cg@3046
  1934
                         acceptOnLostFocus: false
cg@3046
  1935
                         acceptChannel: acceptChannel
cg@3046
  1936
                         modifiedChannel: modifiedChannel
cg@3046
  1937
                         acceptOnPointerLeave: false
cg@3046
  1938
                       )
cg@3046
  1939
                      (CheckBoxSpec
cg@3046
  1940
                         label: 'Fetch Menu from Application'
cg@3046
  1941
                         name: 'CheckBox1'
cg@3046
  1942
                         layout: (LayoutFrame 116 0 28 0 398 0 50 0)
cg@3046
  1943
                         activeHelpKey: valuesMenuFromApplication
cg@3046
  1944
                         model: menuFromApplication
cg@3046
  1945
                         translateLabel: true
cg@3046
  1946
                         valueChangeSelector: setModified
cg@3046
  1947
                       )
cg@3046
  1948
                      )
cg@3046
  1949
                    
cg@3046
  1950
                   )
cg@3247
  1951
                   extent: (Point 472 90)
cg@3046
  1952
                 )
cg@3046
  1953
                (FramedBoxSpec
cg@3046
  1954
                   label: 'Combo List/Box Selectors:'
cg@3046
  1955
                   name: 'comboSelectorsBox'
cg@3046
  1956
                   labelPosition: topLeft
cg@3046
  1957
                   translateLabel: true
cg@3046
  1958
                   component: 
cg@3046
  1959
                  (SpecCollection
cg@3046
  1960
                     collection: (
cg@3046
  1961
                      (LabelSpec
cg@3046
  1962
                         label: 'Choices:'
cg@3046
  1963
                         name: 'ChoicesLabel'
cg@3046
  1964
                         layout: (AlignmentOrigin 116 0 15 0 1 0.5)
cg@3046
  1965
                         activeHelpKey: valuesChoicesSelector
cg@3046
  1966
                         translateLabel: true
cg@3046
  1967
                         resizeForLabel: true
cg@3046
  1968
                         adjust: right
cg@3046
  1969
                       )
cg@3046
  1970
                      (InputFieldSpec
cg@3046
  1971
                         name: 'ChoicesField'
cg@3046
  1972
                         layout: (LayoutFrame 116 0 4 0 2 1.0 26 0)
cg@3046
  1973
                         activeHelpKey: valuesChoicesSelector
cg@3046
  1974
                         tabable: true
cg@3046
  1975
                         model: choices
cg@3046
  1976
                         group: inputGroup
cg@3046
  1977
                         type: symbolOrNil
cg@3046
  1978
                         acceptOnLeave: false
cg@3046
  1979
                         acceptOnLostFocus: false
cg@3046
  1980
                         acceptChannel: acceptChannel
cg@3046
  1981
                         modifiedChannel: modifiedChannel
cg@3046
  1982
                         acceptOnPointerLeave: false
cg@3046
  1983
                       )
cg@3046
  1984
                      (LabelSpec
cg@3046
  1985
                         label: 'Xlated Choices:'
cg@3046
  1986
                         name: 'XChoicesLabel'
cg@3046
  1987
                         layout: (AlignmentOrigin 116 0 40 0 1 0.5)
cg@3046
  1988
                         activeHelpKey: valuesXChoicesSelector
cg@3046
  1989
                         translateLabel: true
cg@3046
  1990
                         resizeForLabel: true
cg@3046
  1991
                         adjust: right
cg@3046
  1992
                       )
cg@3046
  1993
                      (InputFieldSpec
cg@3046
  1994
                         name: 'XChoicesField'
cg@3046
  1995
                         layout: (LayoutFrame 116 0 29 0 2 1.0 51 0)
cg@3046
  1996
                         activeHelpKey: valuesXChoicesSelector
cg@3046
  1997
                         tabable: true
cg@3046
  1998
                         model: translatedChoices
cg@3046
  1999
                         group: inputGroup
cg@3046
  2000
                         type: symbolOrNil
cg@3046
  2001
                         acceptOnLeave: false
cg@3046
  2002
                         acceptOnLostFocus: false
cg@3046
  2003
                         acceptChannel: acceptChannel
cg@3046
  2004
                         modifiedChannel: modifiedChannel
cg@3046
  2005
                         acceptOnPointerLeave: false
cg@3046
  2006
                       )
cg@3046
  2007
                      (LabelSpec
cg@3046
  2008
                         label: 'Editable:'
cg@3046
  2009
                         name: 'EditableLabel'
cg@3046
  2010
                         layout: (AlignmentOrigin 116 0 65 0 1 0.5)
cg@3046
  2011
                         activeHelpKey: showComboFieldSelector
cg@3046
  2012
                         translateLabel: true
cg@3046
  2013
                         resizeForLabel: true
cg@3046
  2014
                         adjust: right
cg@3046
  2015
                       )
cg@3046
  2016
                      (InputFieldSpec
cg@3046
  2017
                         name: 'EditableField'
cg@3046
  2018
                         layout: (LayoutFrame 116 0 54 0 2 1.0 76 0)
cg@3046
  2019
                         activeHelpKey: showComboFieldSelector
cg@3046
  2020
                         tabable: true
cg@3046
  2021
                         model: showComboFieldSelector
cg@3046
  2022
                         group: inputGroup
cg@3046
  2023
                         type: symbolOrNil
cg@3046
  2024
                         acceptOnLeave: false
cg@3046
  2025
                         acceptOnLostFocus: false
cg@3046
  2026
                         acceptChannel: acceptChannel
cg@3046
  2027
                         modifiedChannel: modifiedChannel
cg@3046
  2028
                         acceptOnPointerLeave: false
cg@3046
  2029
                       )
cg@3046
  2030
                      )
cg@3046
  2031
                    
cg@3046
  2032
                   )
cg@3247
  2033
                   extent: (Point 472 120)
cg@3046
  2034
                 )
cg@3046
  2035
                )
cg@3046
  2036
              
cg@3046
  2037
             )
cg@1156
  2038
           )
cg@3046
  2039
          )
cg@3046
  2040
        
cg@3046
  2041
       )
cg@3046
  2042
     )
ca@332
  2043
!
ca@332
  2044
ca@332
  2045
windowSpec
ca@817
  2046
    "This resource specification was automatically generated
ca@817
  2047
     by the UIPainter of ST/X."
ca@332
  2048
ca@817
  2049
    "Do not manually edit this!! If it is corrupted,
ca@817
  2050
     the UIPainter may not be able to read the specification."
ca@332
  2051
ca@332
  2052
    "
ca@332
  2053
     UIPainter new openOnClass:DataSetBuilder andSelector:#windowSpec
ca@332
  2054
     DataSetBuilder new openInterface:#windowSpec
ca@817
  2055
     DataSetBuilder open
ca@332
  2056
    "
ca@332
  2057
ca@332
  2058
    <resource: #canvas>
ca@332
  2059
cg@1156
  2060
    ^ 
cg@3247
  2061
    #(FullSpec
cg@3247
  2062
       name: windowSpec
cg@3247
  2063
       window: 
cg@3247
  2064
      (WindowSpec
cg@3247
  2065
         label: 'Data Set Builder'
cg@3247
  2066
         name: 'Data Set Builder'
cg@3247
  2067
         min: (Point 10 10)
cg@3247
  2068
         bounds: (Rectangle 0 0 633 658)
cg@3247
  2069
         menu: menu
cg@3247
  2070
       )
cg@3247
  2071
       component: 
cg@3247
  2072
      (SpecCollection
cg@3247
  2073
         collection: (
cg@3247
  2074
          (MenuPanelSpec
cg@3247
  2075
             name: 'menuToolbarView'
cg@3247
  2076
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 32 0)
cg@3247
  2077
             tabable: true
cg@3247
  2078
             menu: menuToolbar
cg@3247
  2079
           )
cg@3247
  2080
          (VariableVerticalPanelSpec
cg@3247
  2081
             name: 'mainPanel'
cg@3247
  2082
             layout: (LayoutFrame 0 0.0 38 0.0 0 1.0 -26 1.0)
cg@3247
  2083
             component: 
cg@3247
  2084
            (SpecCollection
cg@3247
  2085
               collection: (
cg@3247
  2086
                (FramedBoxSpec
cg@3247
  2087
                   label: 'Table Columns'
cg@3247
  2088
                   name: 'FramedBox'
cg@3247
  2089
                   labelPosition: topLeft
cg@3247
  2090
                   translateLabel: true
cg@3247
  2091
                   component: 
cg@3247
  2092
                  (SpecCollection
cg@3247
  2093
                     collection: (
cg@3247
  2094
                      (DataSetSpec
cg@3247
  2095
                         name: 'columnView'
cg@3247
  2096
                         layout: (LayoutFrame -2 0.0 0 0.0 2 1.0 4 1.0)
cg@3247
  2097
                         hasHorizontalScrollBar: true
cg@3247
  2098
                         hasVerticalScrollBar: false
cg@3247
  2099
                         miniScrollerHorizontal: true
cg@3247
  2100
                         useIndex: false
cg@3247
  2101
                         has3Dseparators: true
cg@1156
  2102
                       )
cg@3247
  2103
                      )
cg@3247
  2104
                    
cg@3247
  2105
                   )
cg@3247
  2106
                 )
cg@3247
  2107
                (VariableHorizontalPanelSpec
cg@3247
  2108
                   name: 'VariablePanel'
cg@3247
  2109
                   level: -1
cg@3247
  2110
                   component: 
cg@3247
  2111
                  (SpecCollection
cg@3247
  2112
                     collection: (
cg@3247
  2113
                      (ViewSpec
cg@3247
  2114
                         name: 'labelsView'
cg@3247
  2115
                         component: 
cg@3247
  2116
                        (SpecCollection
cg@3247
  2117
                           collection: (
cg@3247
  2118
                            (SequenceViewSpec
cg@3247
  2119
                               name: 'labelAndColumns'
cg@3247
  2120
                               layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
cg@3247
  2121
                               tabable: true
cg@3247
  2122
                               model: selectedColumnModel
cg@3247
  2123
                               menu: menuEdit
cg@3247
  2124
                               hasHorizontalScrollBar: true
cg@3247
  2125
                               hasVerticalScrollBar: true
cg@3247
  2126
                               miniScrollerHorizontal: true
cg@3247
  2127
                               isMultiSelect: true
cg@3247
  2128
                               useIndex: true
cg@3247
  2129
                               sequenceList: seqList
cg@1156
  2130
                             )
cg@3247
  2131
                            )
cg@3247
  2132
                          
cg@3247
  2133
                         )
cg@3247
  2134
                         postBuildCallback: postBuildListOfItemsView:
cg@3247
  2135
                       )
cg@3247
  2136
                      (ViewSpec
cg@3247
  2137
                         name: 'specView'
cg@3247
  2138
                         level: -1
cg@3247
  2139
                         component: 
cg@3247
  2140
                        (SpecCollection
cg@3247
  2141
                           collection: (
cg@3247
  2142
                            (NoteBookViewSpec
cg@3247
  2143
                               name: 'NoteBook'
cg@3247
  2144
                               layout: (LayoutFrame 1 0.0 0 0.0 0 1.0 -30 1.0)
cg@3247
  2145
                               tabable: true
cg@3247
  2146
                               model: tabModel
cg@3247
  2147
                               menu: tabList
cg@3247
  2148
                               useIndex: true
cg@3247
  2149
                               translateLabel: true
cg@3247
  2150
                               canvas: canvasHolder
cg@3247
  2151
                               keepCanvasAlive: true
cg@1156
  2152
                             )
cg@3247
  2153
                            (UISubSpecification
cg@3247
  2154
                               name: 'SubSpecification'
cg@3247
  2155
                               layout: (LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
cg@3247
  2156
                               majorKey: ToolApplicationModel
cg@3247
  2157
                               minorKey: windowSpecForCommit
cg@3247
  2158
                             )
cg@3247
  2159
                            )
cg@3247
  2160
                          
cg@3247
  2161
                         )
cg@3247
  2162
                         postBuildCallback: postBuildSpecView:
cg@1156
  2163
                       )
cg@3247
  2164
                      )
cg@3247
  2165
                    
cg@3247
  2166
                   )
cg@3247
  2167
                   handles: (Any 0.23538700000000001 1.0)
cg@1156
  2168
                 )
cg@3247
  2169
                )
cg@3247
  2170
              
cg@3247
  2171
             )
cg@3247
  2172
             handles: (Any 0.20874799999999999 1.0)
cg@1156
  2173
           )
cg@3247
  2174
          (UISubSpecification
cg@3247
  2175
             name: 'infoBarSubSpec'
cg@3247
  2176
             layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
cg@3247
  2177
             majorKey: ToolApplicationModel
cg@3247
  2178
             minorKey: windowSpecForInfoBar
cg@3247
  2179
           )
cg@3247
  2180
          )
cg@3247
  2181
        
cg@3247
  2182
       )
cg@3247
  2183
     )
ca@332
  2184
! !
ca@332
  2185
ca@332
  2186
!DataSetBuilder class methodsFor:'menu specs'!
ca@332
  2187
cg@2549
  2188
fileMenu
cg@2549
  2189
    "This resource specification was automatically generated
cg@2549
  2190
     by the MenuEditor of ST/X."
cg@2549
  2191
cg@2549
  2192
    "Do not manually edit this!! If it is corrupted,
cg@2549
  2193
     the MenuEditor may not be able to read the specification."
cg@2549
  2194
cg@2549
  2195
    "
cg@2549
  2196
     MenuEditor new openOnClass:DataSetBuilder andSelector:#fileMenu
cg@2549
  2197
     (Menu new fromLiteralArrayEncoding:(DataSetBuilder fileMenu)) startUp
cg@2549
  2198
    "
cg@2549
  2199
cg@2549
  2200
    <resource: #menu>
cg@2549
  2201
cg@2549
  2202
    ^ 
cg@2549
  2203
     #(Menu
cg@2549
  2204
        (
cg@2549
  2205
         (MenuItem
cg@2549
  2206
            activeHelpKey: fileNew
cg@2549
  2207
            label: 'New'
cg@2549
  2208
            itemValue: doNew
cg@2549
  2209
            translateLabel: true
cg@2549
  2210
          )
cg@2549
  2211
         (MenuItem
cg@2549
  2212
            label: '-'
cg@2549
  2213
            isVisible: notEditingSpecOnly
cg@2549
  2214
          )
cg@2549
  2215
         (MenuItem
cg@2549
  2216
            activeHelpKey: fileLoad
cg@2549
  2217
            label: 'Load...'
cg@2549
  2218
            itemValue: doLoad
cg@2549
  2219
            translateLabel: true
cg@2549
  2220
            isVisible: notEditingSpecOnly
cg@2549
  2221
          )
cg@2549
  2222
         (MenuItem
cg@2549
  2223
            label: '-'
cg@2549
  2224
          )
cg@2549
  2225
         (MenuItem
cg@2549
  2226
            activeHelpKey: fileSave
cg@2549
  2227
            label: 'Save'
cg@2549
  2228
            itemValue: doSave
cg@2549
  2229
            translateLabel: true
cg@2549
  2230
            isVisible: editingSpecOnly
cg@2549
  2231
          )
cg@2549
  2232
         (MenuItem
cg@2549
  2233
            activeHelpKey: fileSaveMethod
cg@2549
  2234
            label: 'Save'
cg@2549
  2235
            itemValue: doSave
cg@2549
  2236
            translateLabel: true
cg@2549
  2237
            isVisible: notEditingSpecOnly
cg@2549
  2238
          )
cg@2549
  2239
         (MenuItem
cg@2549
  2240
            activeHelpKey: fileSaveAsMethod
cg@2549
  2241
            label: 'Save As...'
cg@2549
  2242
            itemValue: doSaveAs
cg@2549
  2243
            translateLabel: true
cg@2549
  2244
            isVisible: notEditingSpecOnly
cg@2549
  2245
          )
cg@2549
  2246
         (MenuItem
cg@2549
  2247
            label: '-'
cg@2549
  2248
          )
cg@2549
  2249
         (MenuItem
cg@2549
  2250
            activeHelpKey: pickColumns
cg@2549
  2251
            label: 'Pick Columns...'
cg@2549
  2252
            itemValue: doPickColumns
cg@2549
  2253
            translateLabel: true
cg@2549
  2254
          )
cg@2549
  2255
         (MenuItem
cg@2549
  2256
            label: '-'
cg@2549
  2257
            isVisible: isStandAlone
cg@2549
  2258
          )
cg@2549
  2259
         (MenuItem
cg@2549
  2260
            activeHelpKey: fileBrowseClass
cg@2549
  2261
            label: 'Browse Class'
cg@2549
  2262
            itemValue: doBrowseClass
cg@2549
  2263
            translateLabel: true
cg@2549
  2264
            isVisible: isStandAlone
cg@2549
  2265
          )
cg@2549
  2266
         (MenuItem
cg@2549
  2267
            label: '-'
cg@2549
  2268
            isVisible: isStandAlone
cg@2549
  2269
          )
cg@2549
  2270
         (MenuItem
cg@2549
  2271
            activeHelpKey: fileExit
cg@2549
  2272
            label: 'Exit'
cg@2549
  2273
            itemValue: closeRequest
cg@2549
  2274
            translateLabel: true
cg@2549
  2275
            isVisible: isStandAlone
cg@2549
  2276
          )
cg@2549
  2277
         )
cg@2549
  2278
        nil
cg@2549
  2279
        nil
cg@2549
  2280
      )
cg@2549
  2281
!
cg@2549
  2282
tz@408
  2283
menu
ca@818
  2284
    "This resource specification was automatically generated
ca@818
  2285
     by the MenuEditor of ST/X."
ca@332
  2286
ca@818
  2287
    "Do not manually edit this!! If it is corrupted,
ca@818
  2288
     the MenuEditor may not be able to read the specification."
ca@332
  2289
ca@332
  2290
    "
tz@408
  2291
     MenuEditor new openOnClass:DataSetBuilder andSelector:#menu
tz@408
  2292
     (Menu new fromLiteralArrayEncoding:(DataSetBuilder menu)) startUp
ca@332
  2293
    "
ca@332
  2294
ca@332
  2295
    <resource: #menu>
ca@332
  2296
cg@1981
  2297
    ^ 
cg@1981
  2298
     #(Menu
cg@1981
  2299
        (
cg@1981
  2300
         (MenuItem
cg@1981
  2301
            label: 'File'
cg@1981
  2302
            translateLabel: true
cg@2549
  2303
            submenuChannel: fileMenu
cg@1981
  2304
          )
cg@1981
  2305
         (MenuItem
cg@1981
  2306
            label: 'Edit'
cg@1981
  2307
            translateLabel: true
cg@2262
  2308
            submenuChannel: menuEditWithoutAccelerators
cg@1981
  2309
          )
cg@1981
  2310
         (MenuItem
cg@1981
  2311
            label: 'Add'
cg@1981
  2312
            translateLabel: true
cg@1981
  2313
            submenu: 
cg@1981
  2314
           (Menu
cg@1981
  2315
              (
cg@1981
  2316
               (MenuItem
cg@1981
  2317
                  activeHelpKey: addColumn
cg@1981
  2318
                  enabled: columnIsNotEditing
cg@1981
  2319
                  label: 'Column'
cg@1981
  2320
                  itemValue: doCreateColumn
cg@1981
  2321
                  translateLabel: true
cg@1981
  2322
                  labelImage: (ResourceRetriever nil newColumnIcon 'Column')
cg@1981
  2323
                )
cg@2262
  2324
               (MenuItem
cg@2262
  2325
                  activeHelpKey: addNonSelectableColumn
cg@2262
  2326
                  enabled: columnIsNotEditing
cg@2262
  2327
                  label: 'Column (Non-Selectable)'
cg@2262
  2328
                  itemValue: doCreateNonSelectableColumn
cg@2262
  2329
                  translateLabel: true
cg@2262
  2330
                  labelImage: (ResourceRetriever DataSetBuilder newColumnNonSelectableIcon 'Column (Non-Selectable)')
cg@2262
  2331
                )
cg@1981
  2332
               )
cg@1981
  2333
              nil
cg@1981
  2334
              nil
ca@332
  2335
            )
cg@1981
  2336
          )
cg@1981
  2337
         (MenuItem
cg@1981
  2338
            label: 'Generate'
cg@1981
  2339
            translateLabel: true
cg@2549
  2340
            isVisible: notEditingSpecOnly
cg@1981
  2341
            submenu: 
cg@1981
  2342
           (Menu
cg@1981
  2343
              (
cg@1981
  2344
               (MenuItem
cg@1981
  2345
                  activeHelpKey: fileDefineClass
cg@1981
  2346
                  label: 'Define Row Class...'
cg@1981
  2347
                  itemValue: doDefineRowClass
cg@1981
  2348
                  translateLabel: true
tz@521
  2349
                )
cg@1981
  2350
               (MenuItem
cg@1981
  2351
                  activeHelpKey: browseRowClass
cg@1981
  2352
                  label: 'Browse Row Class'
cg@1981
  2353
                  itemValue: doBrowseRowClass
cg@1981
  2354
                  translateLabel: true
cg@1981
  2355
                )
cg@1981
  2356
               (MenuItem
cg@1981
  2357
                  label: '-'
cg@1981
  2358
                )
cg@1981
  2359
               (MenuItem
cg@1981
  2360
                  activeHelpKey: generateCode
cg@1981
  2361
                  label: 'Generate Code'
cg@1981
  2362
                  itemValue: doGenerateCode
cg@1981
  2363
                  translateLabel: true
cg@1981
  2364
                )
cg@1981
  2365
               )
cg@1981
  2366
              nil
cg@1981
  2367
              nil
tz@521
  2368
            )
cg@1981
  2369
          )
cg@1981
  2370
         (MenuItem
cg@1981
  2371
            label: 'History'
cg@1981
  2372
            translateLabel: true
cg@1981
  2373
            isVisible: isStandAlone
cg@1981
  2374
            submenuChannel: menuHistory
cg@1981
  2375
          )
cg@1981
  2376
         (MenuItem
cg@2262
  2377
            label: 'MENU_Help'
cg@1981
  2378
            translateLabel: true
cg@2126
  2379
            startGroup: conditionalRight
cg@1981
  2380
            submenuChannel: menuHelp
cg@1981
  2381
          )
cg@1981
  2382
         )
cg@1981
  2383
        nil
cg@1981
  2384
        nil
ca@332
  2385
      )
ca@332
  2386
!
ca@332
  2387
tz@408
  2388
menuEdit
tz@825
  2389
    "This resource specification was automatically generated
tz@825
  2390
     by the MenuEditor of ST/X."
ca@332
  2391
tz@825
  2392
    "Do not manually edit this!! If it is corrupted,
tz@825
  2393
     the MenuEditor may not be able to read the specification."
ca@332
  2394
ca@332
  2395
    "
tz@408
  2396
     MenuEditor new openOnClass:DataSetBuilder andSelector:#menuEdit
tz@408
  2397
     (Menu new fromLiteralArrayEncoding:(DataSetBuilder menuEdit)) startUp
ca@332
  2398
    "
ca@332
  2399
ca@332
  2400
    <resource: #menu>
ca@332
  2401
cg@2262
  2402
    ^ 
cg@2262
  2403
     #(Menu
cg@2262
  2404
        (
cg@2262
  2405
         (MenuItem
cg@2262
  2406
            activeHelpKey: editCut
cg@2262
  2407
            enabled: isColumnSelected
cg@2262
  2408
            label: 'Cut'
cg@2262
  2409
            itemValue: doCut
cg@2262
  2410
            translateLabel: true
cg@2262
  2411
            shortcutKey: Cut
cg@2262
  2412
          )
cg@2262
  2413
         (MenuItem
cg@2262
  2414
            activeHelpKey: editCopy
cg@2262
  2415
            enabled: isColumnSelected
cg@2262
  2416
            label: 'Copy'
cg@2262
  2417
            itemValue: doCopy
cg@2262
  2418
            translateLabel: true
cg@2262
  2419
            shortcutKey: Copy
cg@2262
  2420
          )
cg@2262
  2421
         (MenuItem
cg@2262
  2422
            activeHelpKey: editPaste
cg@2262
  2423
            enabled: valueOfHavingClipboard
cg@2262
  2424
            label: 'Paste'
cg@2262
  2425
            itemValue: doPaste
cg@2262
  2426
            translateLabel: true
cg@2262
  2427
            shortcutKey: Paste
cg@2262
  2428
          )
cg@2262
  2429
         (MenuItem
cg@2262
  2430
            label: '-'
cg@2262
  2431
          )
cg@2262
  2432
         (MenuItem
cg@2262
  2433
            activeHelpKey: editMoveUp
cg@2262
  2434
            enabled: isColumnSelected
cg@2262
  2435
            label: 'Move Up'
cg@2262
  2436
            itemValue: doMoveColumn:
cg@2262
  2437
            translateLabel: true
cg@2262
  2438
            shortcutKey: CtrlCursorUp
cg@2262
  2439
            labelImage: (ResourceRetriever Icon upIcon 'Move Up')
cg@2262
  2440
            argument: up
cg@2262
  2441
          )
cg@2262
  2442
         (MenuItem
cg@2262
  2443
            activeHelpKey: editMoveDown
cg@2262
  2444
            enabled: isColumnSelected
cg@2262
  2445
            label: 'Move Down'
cg@2262
  2446
            itemValue: doMoveColumn:
cg@2262
  2447
            translateLabel: true
cg@2262
  2448
            shortcutKey: CtrlCursorDown
cg@2262
  2449
            labelImage: (ResourceRetriever Icon downIcon 'Move Down')
cg@2262
  2450
            argument: down
cg@2262
  2451
          )
cg@2262
  2452
         (MenuItem
cg@2262
  2453
            label: '-'
cg@2262
  2454
          )
cg@2262
  2455
         (MenuItem
cg@2262
  2456
            label: 'Separators'
cg@2262
  2457
            translateLabel: true
cg@2262
  2458
            submenu: 
cg@2262
  2459
           (Menu
cg@2262
  2460
              (
cg@2262
  2461
               (MenuItem
cg@2262
  2462
                  label: 'Label Columns'
cg@2262
  2463
                  translateLabel: true
cg@2262
  2464
                  submenu: 
cg@2262
  2465
                 (Menu
cg@2262
  2466
                    (
cg@2262
  2467
                     (MenuItem
cg@2262
  2468
                        enabled: hasSelection
cg@2262
  2469
                        label: 'Add Separators'
cg@2262
  2470
                        itemValue: addLabelColumnSeparators
cg@2262
  2471
                        translateLabel: true
cg@2262
  2472
                      )
cg@2262
  2473
                     (MenuItem
cg@2262
  2474
                        enabled: hasSelection
cg@2262
  2475
                        label: 'Remove Separators'
cg@2262
  2476
                        itemValue: removeLabelColumnSeparators
cg@2262
  2477
                        translateLabel: true
cg@2262
  2478
                      )
cg@2262
  2479
                     )
cg@2262
  2480
                    nil
cg@2262
  2481
                    nil
cg@2262
  2482
                  )
cg@2262
  2483
                )
cg@2262
  2484
               (MenuItem
cg@2262
  2485
                  label: 'Label Row && Columns'
cg@2262
  2486
                  translateLabel: true
cg@2262
  2487
                  submenu: 
cg@2262
  2488
                 (Menu
cg@2262
  2489
                    (
cg@2262
  2490
                     (MenuItem
cg@2262
  2491
                        enabled: hasSelection
cg@2262
  2492
                        label: 'Add Separators'
cg@2262
  2493
                        itemValue: addLabelSeparators
cg@2262
  2494
                        translateLabel: true
cg@2262
  2495
                      )
cg@2262
  2496
                     (MenuItem
cg@2262
  2497
                        enabled: hasSelection
cg@2262
  2498
                        label: 'Remove Separators'
cg@2262
  2499
                        itemValue: removeLabelSeparators
cg@2262
  2500
                        translateLabel: true
cg@2262
  2501
                      )
cg@2262
  2502
                     )
cg@2262
  2503
                    nil
cg@2262
  2504
                    nil
cg@2262
  2505
                  )
cg@2262
  2506
                )
cg@2262
  2507
               (MenuItem
cg@2262
  2508
                  label: '-'
cg@2262
  2509
                )
cg@2262
  2510
               (MenuItem
cg@2262
  2511
                  label: 'Cell Rows'
cg@2262
  2512
                  translateLabel: true
cg@2262
  2513
                  submenu: 
cg@2262
  2514
                 (Menu
cg@2262
  2515
                    (
cg@2262
  2516
                     (MenuItem
cg@2262
  2517
                        enabled: hasSelection
cg@2262
  2518
                        label: 'Add Separators'
cg@2262
  2519
                        itemValue: addRowSeparators
cg@2262
  2520
                        translateLabel: true
cg@2262
  2521
                      )
cg@2262
  2522
                     (MenuItem
cg@2262
  2523
                        enabled: hasSelection
cg@2262
  2524
                        label: 'Remove Separators'
cg@2262
  2525
                        itemValue: removeRowSeparators
cg@2262
  2526
                        translateLabel: true
cg@2262
  2527
                      )
cg@2262
  2528
                     )
cg@2262
  2529
                    nil
cg@2262
  2530
                    nil
cg@2262
  2531
                  )
cg@2262
  2532
                )
cg@2262
  2533
               (MenuItem
cg@2262
  2534
                  label: 'Cell Columns'
cg@2262
  2535
                  translateLabel: true
cg@2262
  2536
                  submenu: 
cg@2262
  2537
                 (Menu
cg@2262
  2538
                    (
cg@2262
  2539
                     (MenuItem
cg@2262
  2540
                        enabled: hasSelection
cg@2262
  2541
                        label: 'Add Separators'
cg@2262
  2542
                        itemValue: addLabelColumnSeparators
cg@2262
  2543
                        translateLabel: true
cg@2262
  2544
                      )
cg@2262
  2545
                     (MenuItem
cg@2262
  2546
                        enabled: hasSelection
cg@2262
  2547
                        label: 'Remove'
cg@2262
  2548
                        itemValue: removeLabelColumnSeparators
cg@2262
  2549
                        translateLabel: true
cg@2262
  2550
                      )
cg@2262
  2551
                     )
cg@2262
  2552
                    nil
cg@2262
  2553
                    nil
cg@2262
  2554
                  )
cg@2262
  2555
                )
cg@2262
  2556
               (MenuItem
cg@2262
  2557
                  label: 'Cell Rows && Columns'
cg@2262
  2558
                  translateLabel: true
cg@2262
  2559
                  submenu: 
cg@2262
  2560
                 (Menu
cg@2262
  2561
                    (
cg@2262
  2562
                     (MenuItem
cg@2262
  2563
                        enabled: hasSelection
cg@2262
  2564
                        label: 'Add Separators'
cg@2262
  2565
                        itemValue: addCellSeparators
cg@2262
  2566
                        translateLabel: true
cg@2262
  2567
                      )
cg@2262
  2568
                     (MenuItem
cg@2262
  2569
                        enabled: hasSelection
cg@2262
  2570
                        label: 'Remove Separators'
cg@2262
  2571
                        itemValue: removeCellSeparators
cg@2262
  2572
                        translateLabel: true
cg@2262
  2573
                      )
cg@2262
  2574
                     )
cg@2262
  2575
                    nil
cg@2262
  2576
                    nil
cg@2262
  2577
                  )
cg@2262
  2578
                )
cg@2262
  2579
               )
cg@2262
  2580
              nil
cg@2262
  2581
              nil
ca@332
  2582
            )
cg@2262
  2583
          )
cg@2380
  2584
         (MenuItem
cg@2262
  2585
            label: 'Alignment'
cg@2262
  2586
            translateLabel: true
cg@2262
  2587
            submenu: 
cg@2262
  2588
           (Menu
cg@2262
  2589
              (
cg@2262
  2590
               (MenuItem
cg@2262
  2591
                  enabled: hasSelection
cg@2262
  2592
                  label: 'Make Labels Left Aligned'
cg@2262
  2593
                  itemValue: alignLabelsLeft
cg@2262
  2594
                  translateLabel: true
cg@2262
  2595
                )
cg@2262
  2596
               (MenuItem
cg@2262
  2597
                  enabled: hasSelection
cg@2262
  2598
                  label: 'Make Labels Centered'
cg@2262
  2599
                  itemValue: alignLabelsCentered
cg@2262
  2600
                  translateLabel: true
cg@2262
  2601
                )
cg@2262
  2602
               (MenuItem
cg@2262
  2603
                  enabled: hasSelection
cg@2262
  2604
                  label: 'Make Labels Right Aligned'
cg@2262
  2605
                  itemValue: alignLabelsRight
cg@2262
  2606
                  translateLabel: true
cg@2262
  2607
                )
cg@2262
  2608
               (MenuItem
cg@2262
  2609
                  label: '-'
cg@2262
  2610
                )
cg@2262
  2611
               (MenuItem
cg@2262
  2612
                  enabled: hasSelection
cg@2262
  2613
                  label: 'Make Cell Left Aligned'
cg@2262
  2614
                  itemValue: alignColumnsLeft
cg@2262
  2615
                  translateLabel: true
cg@2262
  2616
                )
cg@2262
  2617
               (MenuItem
cg@2262
  2618
                  enabled: hasSelection
cg@2262
  2619
                  label: 'Make Cell Centered'
cg@2262
  2620
                  itemValue: alignColumnsCentered
cg@2262
  2621
                  translateLabel: true
cg@2262
  2622
                )
cg@2262
  2623
               (MenuItem
cg@2262
  2624
                  enabled: hasSelection
cg@2262
  2625
                  label: 'Make Cell Right Aligned'
cg@2262
  2626
                  itemValue: alignColumnsRight
cg@2262
  2627
                  translateLabel: true
cg@2262
  2628
                )
cg@2262
  2629
               )
cg@2262
  2630
              nil
cg@2262
  2631
              nil
tz@408
  2632
            )
cg@2262
  2633
          )
cg@2262
  2634
         (MenuItem
cg@2371
  2635
            label: 'Colors'
cg@2371
  2636
            translateLabel: true
cg@2371
  2637
            submenu: 
cg@2371
  2638
           (Menu
cg@2371
  2639
              (
cg@2371
  2640
               (MenuItem
cg@2371
  2641
                  enabled: hasSelection
cg@2371
  2642
                  label: 'Set Cell Color Selectors'
cg@2371
  2643
                  itemValue: setCellColorSelectors
cg@2371
  2644
                  translateLabel: true
cg@2371
  2645
                )
cg@2371
  2646
               (MenuItem
cg@2371
  2647
                  enabled: hasSelection
cg@2371
  2648
                  label: 'Set Selected Cell Color Selectors'
cg@2371
  2649
                  itemValue: setSelectedCellColorSelectors
cg@2371
  2650
                  translateLabel: true
cg@2371
  2651
                )
cg@2371
  2652
               )
cg@2371
  2653
              nil
cg@2371
  2654
              nil
cg@2371
  2655
            )
cg@2371
  2656
          )
cg@2371
  2657
         (MenuItem
cg@2380
  2658
            label: 'Behavior'
cg@2380
  2659
            translateLabel: true
cg@2380
  2660
            submenu: 
cg@2380
  2661
           (Menu
cg@2380
  2662
              (
cg@2380
  2663
               (MenuItem
cg@2380
  2664
                  enabled: hasSelection
cg@2380
  2665
                  label: 'Make Selected Cells Unselectable'
cg@2380
  2666
                  itemValue: makeSelectedCellsUnselectable
cg@2380
  2667
                  translateLabel: true
cg@2380
  2668
                )
cg@2380
  2669
               (MenuItem
cg@2380
  2670
                  enabled: hasSelection
cg@2380
  2671
                  label: 'Make Selected Cells Selectable'
cg@2380
  2672
                  itemValue: makeSelectedCellsSelectable
cg@2380
  2673
                  translateLabel: true
cg@2380
  2674
                )
cg@3045
  2675
         (MenuItem
cg@3045
  2676
            label: '-'
cg@3045
  2677
          )
cg@3045
  2678
cg@3045
  2679
               (MenuItem
cg@3181
  2680
                  label: 'Make all Cells Unselectable'
cg@3045
  2681
                  itemValue: makeAllCellsUnselectable
cg@3045
  2682
                  translateLabel: true
cg@3045
  2683
                )
cg@3045
  2684
               (MenuItem
cg@3181
  2685
                  label: 'Make all Cells Selectable'
cg@3045
  2686
                  itemValue: makeAllCellsSelectable
cg@3045
  2687
                  translateLabel: true
cg@3045
  2688
                )
cg@2380
  2689
               )
cg@2380
  2690
              nil
cg@2380
  2691
              nil
cg@2380
  2692
            )
cg@2380
  2693
          )
cg@2380
  2694
         (MenuItem
cg@2262
  2695
            label: '-'
cg@2262
  2696
          )
cg@2262
  2697
         (MenuItem
cg@2262
  2698
            enabled: hasSelection
cg@2262
  2699
            label: 'Make Selectable'
cg@2262
  2700
            itemValue: makeColumnsSelectable
cg@2262
  2701
            translateLabel: true
cg@2262
  2702
          )
cg@2262
  2703
         (MenuItem
cg@2262
  2704
            enabled: hasSelection
cg@2262
  2705
            label: 'Make Unselectable'
cg@2262
  2706
            itemValue: makeColumnsUnselectable
cg@2262
  2707
            translateLabel: true
cg@2262
  2708
          )
cg@2262
  2709
         )
cg@2262
  2710
        nil
cg@2262
  2711
        nil
ca@332
  2712
      )
ca@332
  2713
!
ca@332
  2714
cg@2262
  2715
menuEditWithoutAccelerators
cg@2321
  2716
    ^ self menuEdit decodeAsLiteralArray removeAllAccelerators
cg@2262
  2717
!
cg@2262
  2718
tz@408
  2719
menuToolbar
tz@825
  2720
    "This resource specification was automatically generated
tz@825
  2721
     by the MenuEditor of ST/X."
ca@332
  2722
tz@825
  2723
    "Do not manually edit this!! If it is corrupted,
tz@825
  2724
     the MenuEditor may not be able to read the specification."
ca@332
  2725
ca@332
  2726
    "
tz@408
  2727
     MenuEditor new openOnClass:DataSetBuilder andSelector:#menuToolbar
tz@408
  2728
     (Menu new fromLiteralArrayEncoding:(DataSetBuilder menuToolbar)) startUp
ca@332
  2729
    "
ca@332
  2730
ca@332
  2731
    <resource: #menu>
ca@332
  2732
cg@1757
  2733
    ^ 
cg@1757
  2734
     #(Menu
cg@1757
  2735
        (
cg@1757
  2736
         (MenuItem
cg@1757
  2737
            activeHelpKey: fileNew
cg@1757
  2738
            label: 'New'
cg@1757
  2739
            itemValue: doNew
cg@1757
  2740
            translateLabel: true
cg@1757
  2741
            isButton: true
cg@1887
  2742
            labelImage: (ResourceRetriever ToolbarIconLibrary newDataSetIcon)
cg@1757
  2743
          )
cg@1757
  2744
         (MenuItem
cg@2262
  2745
            label: '-'
cg@2262
  2746
          )
cg@2262
  2747
         (MenuItem
cg@1757
  2748
            activeHelpKey: fileLoad
cg@1757
  2749
            label: 'Load'
cg@1757
  2750
            itemValue: doLoad
cg@1757
  2751
            translateLabel: true
cg@1757
  2752
            isButton: true
cg@1757
  2753
            submenuChannel: menuHistory
cg@1887
  2754
            labelImage: (ResourceRetriever ToolbarIconLibrary loadFromMethodIcon)
cg@1757
  2755
          )
cg@1757
  2756
         (MenuItem
cg@2549
  2757
            activeHelpKey: fileSaveMethod
cg@2549
  2758
            label: 'Save'
cg@2549
  2759
            itemValue: doSave
cg@2549
  2760
            translateLabel: true
cg@2549
  2761
            isButton: true
cg@2549
  2762
            isVisible: notEditingSpecOnly
cg@2549
  2763
            labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon)
cg@2549
  2764
          )
cg@2549
  2765
         (MenuItem
cg@1757
  2766
            activeHelpKey: fileSave
cg@1757
  2767
            label: 'Save'
cg@1757
  2768
            itemValue: doSave
cg@1757
  2769
            translateLabel: true
cg@1757
  2770
            isButton: true
cg@2549
  2771
            isVisible: editingSpecOnly
cg@2549
  2772
            labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileIcon)
cg@1757
  2773
          )
cg@1757
  2774
         (MenuItem
cg@1887
  2775
            label: '-'
cg@1757
  2776
          )
cg@1757
  2777
         (MenuItem
cg@1757
  2778
            activeHelpKey: editCut
cg@1757
  2779
            enabled: isColumnSelected
cg@1757
  2780
            label: 'Cut'
cg@1757
  2781
            itemValue: doCut
cg@1757
  2782
            translateLabel: true
cg@1757
  2783
            isButton: true
cg@1887
  2784
            labelImage: (ResourceRetriever ToolbarIconLibrary cutWidgetIcon)
cg@1757
  2785
          )
cg@1757
  2786
         (MenuItem
cg@1757
  2787
            activeHelpKey: editCopy
cg@1757
  2788
            enabled: isColumnSelected
cg@1757
  2789
            label: 'Copy'
cg@1757
  2790
            itemValue: doCopy
cg@1757
  2791
            translateLabel: true
cg@1757
  2792
            isButton: true
cg@1887
  2793
            labelImage: (ResourceRetriever ToolbarIconLibrary copyWidgetIcon)
cg@1757
  2794
          )
cg@1757
  2795
         (MenuItem
cg@1757
  2796
            activeHelpKey: editPaste
cg@1990
  2797
            enabled: canPasteHolder
cg@1757
  2798
            label: 'Paste'
cg@1757
  2799
            itemValue: doPaste
cg@1757
  2800
            translateLabel: true
cg@1757
  2801
            isButton: true
cg@1887
  2802
            labelImage: (ResourceRetriever ToolbarIconLibrary pasteWidgetIcon)
cg@1757
  2803
          )
cg@1757
  2804
         (MenuItem
cg@1757
  2805
            activeHelpKey: editDelete
cg@1757
  2806
            enabled: isColumnSelected
cg@1757
  2807
            label: 'Delete'
cg@1757
  2808
            itemValue: doDelete
cg@1757
  2809
            translateLabel: true
cg@1757
  2810
            isButton: true
cg@1887
  2811
            isVisible: false
cg@1887
  2812
            labelImage: (ResourceRetriever ToolbarIconLibrary deleteWidgetIcon)
cg@1757
  2813
          )
cg@1757
  2814
         (MenuItem
cg@1887
  2815
            label: '-'
cg@1757
  2816
          )
cg@1757
  2817
         (MenuItem
cg@1757
  2818
            activeHelpKey: addColumn
cg@1757
  2819
            enabled: columnIsNotEditing
cg@1757
  2820
            label: 'Add Column'
cg@1757
  2821
            itemValue: doCreateColumn
cg@1757
  2822
            translateLabel: true
cg@1757
  2823
            isButton: true
cg@1757
  2824
            labelImage: (ResourceRetriever nil newColumnIcon)
cg@1757
  2825
          )
cg@1757
  2826
         (MenuItem
cg@2262
  2827
            activeHelpKey: addNonSelectableColumn
cg@2262
  2828
            enabled: columnIsNotEditing
cg@2262
  2829
            label: 'Add Column (Non Selectable)'
cg@2262
  2830
            itemValue: doCreateNonSelectableColumn
cg@2262
  2831
            translateLabel: true
cg@2262
  2832
            isButton: true
cg@2262
  2833
            labelImage: (ResourceRetriever DataSetBuilder newColumnNonSelectableIcon)
cg@2262
  2834
          )
cg@2262
  2835
         (MenuItem
cg@2262
  2836
            label: ''
cg@1757
  2837
          )
cg@1757
  2838
         (MenuItem
cg@1757
  2839
            activeHelpKey: editMoveUp
cg@1757
  2840
            enabled: isColumnSelected
cg@1757
  2841
            label: 'Move Up'
cg@1757
  2842
            itemValue: doMoveColumn:
cg@1757
  2843
            translateLabel: true
cg@1757
  2844
            isButton: true