"{ Encoding: utf8 }"

"

 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' }"

"{ NameSpace: Smalltalk }"

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

        menuFromApplication

        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

        sortSelector

        sortBlockSelector

     )

    "Modified: / 25-10-2010 / 10:31:51 / cg"

! !

!DataSetBuilder class methodsFor:'help specs'!

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 colum'

#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'

#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 (with optional row/column args)'

#colorsForegroundCellColor

'The foreground color of the cell (with optional row/column args)'

#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.\For numbers: printf-format - for example: %5.4f gives 0.0000\For time&date: time-formatting; for example: %(day)-%(monthName) %h:%m:%s\\More info in the online doc.'

#frameColumnWidth

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

#frameMinWidth

'Minimum width of the column (optional)'

#frameRowHeight

'Height of the row (0 -> ask some rows; -1 / #fontHeight -> font; #heightOfFirstRow -> ask first row; >0 -> constant)'

#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'

#isSortable

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

#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)'

#sortBlockSelector

'Sent to the row to retrieve a selector which is sent to the application to provide a block for sorting'

#sortSelector

'Sent to the row to extract the value used for sorting. If a block is returned, that one is used as sortBlock'

#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'

#valuesMenuFromApplication

'Fetch the menu from the application (instead of the row)'

#valuesMenuSelector

'Selector to retrieve 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'

#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'

)

    "Modified: / 09-08-2012 / 09:36:06 / cg"

! !

!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:((ImageMask new) width: 19; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@') ; yourself); yourself]

!

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:((ImageMask new) width: 19; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@G?<@') ; yourself); yourself]

! !

!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

                         group: inputGroup

                         acceptOnLostFocus: false

                         acceptChannel: acceptChannel

                         modifiedChannel: modifiedChannel

                         acceptOnPointerLeave: false

                       )

                      (LabelSpec

                         label: 'Label:'

                         name: 'label1'

                         layout: (AlignmentOrigin 94 0 39 0 1 0.5)

                         translateLabel: true

                         resizeForLabel: true

                       )

                      (InputFieldSpec