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