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