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