"

 COPYRIGHT (c) 1997 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool2' }"

ResourceSpecEditor subclass:#DataSetBuilder

	instanceVariableNames:'rowClass rowSuperClass columnView columns selectedColumnIndex

		modalOpened listOfSpecViews listOfItemsView editingSpecOnly

		acceptedColumns'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

Array variableSubclass:#Row

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:DataSetBuilder

!

!DataSetBuilder class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    create and modify or inspect dataset columns; used by UIPainter (DataSetColumnSpec)

    [see also:]

        DataSetColumnSpec

        DataSetSpec

        DataSetView

        DataSetColumn

    [author:]

        Claus Atzkern, eXept Software AG

"

! !

!DataSetBuilder class methodsFor:'accessing'!

resourceType

    "get the type of resource of the method generated by the MenuEditor"

    ^#tableColumns

! !

!DataSetBuilder class methodsFor:'aspects'!

aspects

    "get the aspects for the attributes of the table columns"

    ^#(

        id

        activeHelpKey

        activeHelpKeyForLabel

        label

        canSelect

        choices

        translatedChoices

        editorType

        formatString

        formatSelector

        labelIsImage

        labelButtonType

        translateLabel

        longStringCompression

        size

        type

        width

        minWidth

        usePreferredWidth

        isResizeable

        height

        menu

        foregroundSelector

        backgroundSelector

        selectedForegroundSelector

        selectedBackgroundSelector

        doubleClickedSelector

        rowSeparatorSelector

        selectSelector

        converterSelector

        showComboFieldSelector

        printSelector

        readSelector

        writeSelector

        visibilitySelector

        rendererType

        showColSeparator

        showSelectionHighLighted

        showRowSeparator

        backgroundColor

        foregroundColor

        selectedBackgroundColor

        selectedForegroundColor

        labelForegroundColor

        labelBackgroundColor

        labelFont

        labelActionSelector

        labelActionArgument

        labelAlignment

        columnAlignment

        minValue

        maxValue

        isSortable

     )

    "Modified: / 26-03-2007 / 14:05:10 / cg"

! !

!DataSetBuilder class methodsFor:'help specs'!

flyByHelpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIHelpTool may not be able to read the specification."

    "

     UIHelpTool openOnClass:DataSetBuilder    

    "

    <resource: #help>

    ^ super flyByHelpSpec addPairsFrom:#(

#addColumn

'Add a Column'

#addNonSelectableColumn

'Add a Non-Selectable Column'

#fileLoad

'Load Column Description from Method'

#fileNew

'New Column Description'

#fileSave

'Save the Column Description'

#fileSaveMethod

'Save Column Description as Method'

#fileSaveAsMethod

'Save Column Description as Method (ask for Class/Selector)'

#editCut

'Cut Column'

#editCopy

'Copy Column'

#editPaste

'Paste Column'

)

!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIHelpTool may not be able to read the specification."

    "

     UIHelpTool openOnClass:DataSetBuilder    

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#addColumn

'Adds a new column.'

#addNonSelectableColumn

'Adds a new non-selectable column.'

#basicsEditor

'Default widget type or a selector returning an instance of a user defined widget opened in the cell.'

#basicsFont

'Sets the font of the labeled text.'

#isSortable

'Adds indicator to allow user to sort rows based on this column.'

#sortSelector

'Sent to the row to extract the column-value used for sorting'

#basicsJustification

'Aligns the label to the left, right, or center in the cell.'

#basicsJustificationEditor

'Aligns the column editor to the left, right, or center in the cell.'

#basicsLabel

'The label of the column, a String or an array of Strings.'

#basicsLabelId

'Unique identifier of the column (optional).'

#basicsLabelIsImage

'Label is actually the selector of a message providing an image-label.'

#basicsLabelTranslate

'Translate the label via the resource mechanism to a national language string.'

#basicsRenderer

'Specifies displaying cell as Text, CheckToggle, ComboBox, ComboList or as a RowSelector.'

#browseRowClass

'Open a browser on the row class'

#colorsBackgroundCellColor

'The background color of the cell.'

#colorsBackgroundLabelColor

'The background color of the label.'

#colorsBackgroundSelector

'Optional selector returning the background color for the cell.'

#colorsForegroundCellColor

'The foreground color of the cell.'

#colorsForegroundLabelColor

'The foreground color of the label.'

#colorsForegroundSelector

'Optional selector returning the foreground color for a cell.'

#converterSelector

'Selector returning a TypeConverter on the model the argument or nil.'

#fileLoad

'Specify class/selector and edit that column description'

#fileNew

'Discard changes and continue with a new, empty column description'

#fileSave

'Install the column description'

#fileSaveAs

'Specify class/selector and install the column description'

#formatFormatSelector

'Selector sent to the row to get the format string.'

#formatInputType

'A type converter symbol used by the input field.'

#formatMaxSize

'Maximum size of the string which can be typed in. 0 or nil means unlimited.'

#formatTextFormat

'Format string specifying the output format of the cell text. (printf-format - for example: %5.4f gives 0.0000).'

#frameColumnWidth

'Width (fixed or relative) of a column (optional).'

#frameMinWidth

'Minimum width of the column (optional).'

#frameRowHeight

'Height of the row (optional).'

#frameShowColumnSeparator

'Turns on/off displaying column separators.'

#frameShowRowSeparator

'Turns on/off displaying row separators.'

#frameShowRowSeparatorSelector

'Message selector to test if the bottom separator is shown.'

#generateCode

'Generate code and install in the selected class/selector.'

#isResizable

'Column can be resized by user.'

#pickColumns

'Select an open view and readOut the column specification from it.'

#selectedBackgroundCellColor

'Optional background color of a selected cell.'

#selectedBackgroundCellColorSelector

'Optional selector returning the background color for a selected cell.'

#selectedForegroundCellColor

'Optional foreground color of a selected cell.'

#selectedForegroundCellColorSelector

'Optional selector returning the foreground color for a selected cell.'

#selectionCellClickSelector

'Message sent if cell is about to be selected - return boolean to en/disable editing'

#selectionCellDoubleClickSelector

'Message sent if cell is double clicked'

#selectionCellSelector

'Name of the message sent to the row to validate a selection.'

#selectionIsSelectable

'Turns on/off selection behavior of a column.'

#selectionLabelClickSelector

'Message sent if a columns label was clicked on'

#selectionLabelSelectorArgument

'An optional argument passed with the message above.'

#showComboFieldSelector

'Selector which returns true if the editor on the ComboBox/List has an input field.'

#showSelectionHighLighted

'Show selected cell highligthened (change fg/bg color).'

#usePreferredWidth

'Compute width from first 10 row items.'

#valuesChoicesSelector

'Selector to get a collection of choices for a cell having a ComboBox or a ComboList widget.'

#valuesMenuSelector

'Selector to retrive the middle button menu.'

#valuesPrintSelector

'Selector used to register images on a DSVColumnView (the arg). For more detailed info see #register... methods in DSVColumnView.'

#valuesReadSelector

'Selector returning the label to be displayed (string, bitmap or a collection).'

#valuesVisibilitySelector

'Boolean message selector controlling the columns visibility.'

#valuesWriteSelector

'Selector used to set the value derived from the editor.'

#valuesXChoicesSelector

'Selector to get a collection of translated choices for a cell having a ComboBox or a ComboList widget.'

)

! !

!DataSetBuilder class methodsFor:'image specs'!

newColumnIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self newColumnIcon inspect

     ImageEditor openOnClass:self andSelector:#newColumnIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:#'DataSetBuilder class newColumnIcon'

        ifAbsentPut:[(Depth2Image new) width: 19; height: 22; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

U@@@@EQTUUUXUEQ***1TUF (+EQTX*H,UEQ"("1TUF (+EQTZ**,UEQ"("1TUFJ"KEQTX*H,UEQ HB1TUF**+EQTZ**,UEQ"H"1TUF@ KEQTX"@,UEQ"H"1T

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]

!

newColumnNonSelectableIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self newColumnNonSelectableIcon inspect

     ImageEditor openOnClass:self andSelector:#newColumnNonSelectableIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:#'DataSetBuilder class newColumnNonSelectableIcon'

        ifAbsentPut:[(Depth2Image new) width: 19; height: 22; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

U@@@@EQTUUUXUEQ***1TUF**+EQTX*(,UEQ"*"1TUFB(KEQTZJ",UEQ(HJ1TUF("+EQTZ J,UEQ*@*1TUF("+EQTZBB,UEQ(*J1TUFB(KEQTX*(,UEQ"*"1T

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]

! !

!DataSetBuilder class methodsFor:'interface specs'!

basicsEditSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:DataSetBuilder andSelector:#basicsEditSpec

     DataSetBuilder new openInterface:#basicsEditSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: basicsEditSpec

        window: 

       (WindowSpec

          label: 'DataSet Basic'

          name: 'DataSet Basic'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 389 473)

        )

        component: 

       (SpecCollection

          collection: (

           (VerticalPanelViewSpec

              name: 'VerticalPanel1'

              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)

              horizontalLayout: fit

              verticalLayout: top

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (FramedBoxSpec

                    label: 'Header:'

                    name: 'headerFrame'

                    labelPosition: topLeft

                    translateLabel: true

                    component: 

                   (SpecCollection

                      collection: (

                       (LabelSpec

                          label: 'ID:'

                          name: 'idLabel'

                          layout: (AlignmentOrigin 94 0 14 0 1 0.5)

                          translateLabel: true

                          resizeForLabel: true

                        )

                       (InputFieldSpec

                          name: 'idField'

                          layout: (LayoutFrame 97 0 0 0 2 1.0 22 0)

                          activeHelpKey: basicsLabelId

                          tabable: true

                          model: id