"

 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'

	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

        label

        canSelect

        choices

        editorType

        formatString

        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

     )

    "Modified: / 19.5.1998 / 21:27:06 / 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 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.'

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

#valuesChoiceSelector

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

)

! !

!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

    "

    <resource: #image>

    ^Icon

        constantNamed:#'DataSetBuilder newColumnIcon'

        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UT@@@@UPUTUUUXUPUTZ**,UPUTZB",UPUTX*H,UYUTX*H,UPUTZB",UPQTZ**,UPUTX*H,UPUTX*H,UPUTX*H,UPUTXB@,UPUTZ**,UPUTZ**,UPUTX"H,UYUTXB@,UPUTX"@,UPUTX"H,UPUTZ**,UPUTZ**,UPUT/??<UPUT@@@@UP') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A??@A??@A??@A??@A??@A??@A??@A??@A??CA??@A??@A??@A??@A??CA??AA??@A??CA??@A??CA??@A??@A??A') ; 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 304)

        )

        component: 

       (SpecCollection

          collection: (

           (FramedBoxSpec

              label: 'Header:'

              name: 'framedBox1'

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

              labelPosition: topLeft

              component: 

             (SpecCollection

                collection: (

                 (LabelSpec

                    label: 'ID:'

                    name: 'idLabel'

                    layout: (AlignmentOrigin 94 0 14 0 1 0.5)

                    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)

                    resizeForLabel: true

                  )

                 (InputFieldSpec

                    name: 'labelField'

                    layout: (LayoutFrame 97 0 28 0 2 1.0 50 0)

                    activeHelpKey: basicsLabel

                    tabable: true

                    model: label

                    group: inputGroup

                    type: smalltalkObject

                    immediateAccept: false

                    acceptOnLeave: false

                    acceptOnLostFocus: false

                    acceptChannel: acceptChannel

                    modifiedChannel: modifiedChannel

                    acceptOnPointerLeave: false

                  )

                 (LabelSpec

                    label: 'Font:'

                    name: 'LabelFont'

                    layout: (AlignmentOrigin 94 0 68 0 1 0.5)

                    resizeForLabel: true

                    adjust: left

                  )

                 (FontMenuSpec

                    name: 'fontMenu'

                    layout: (LayoutFrame 97 0 56 0 0 1.0 78 0)

                    activeHelpKey: labelFont

                    model: style

                  )

                 (LabelSpec

                    label: 'Type:'

                    name: 'Type'

                    layout: (AlignmentOrigin 52 0 105 0 1 0.5)

                    translateLabel: true

                    resizeForLabel: true

                    adjust: right

                  )

                 (ComboListSpec

                    name: 'labelButtonType'

                    layout: (LayoutFrame 57 0 96 0 182 0 116 0)

                    tabable: true

                    model: labelButtonType

                    comboList: 

                   (None

                      Button Group

                    )

                    useIndex: false

                    hidePullDownMenuButton: false

                  )

                 (LabelSpec

                    label: 'Align:'

                    name: 'JustificationLabel'

                    layout: (LayoutFrame 186 0 97 0 243 0 118 0)

                    resizeForLabel: true

                    adjust: right

                  )

                 (PopUpListSpec

                    label: 'Alignment'

                    name: 'Alignment'

                    layout: (LayoutFrame 248 0 97 0 2 1.0 119 0)

                    activeHelpKey: basicsJustification

                    tabable: true

                    model: labelAlignment

                    menu: 

                   (left

                      right center

                    )

                  )

                 (CheckBoxSpec

                    label: 'Label Is Image'

                    name: 'labelIsImage'

                    layout: (LayoutOrigin -3 0 126 0)

                    activeHelpKey: basicsLabelIsImage

                    tabable: true

                    model: labelIsImage

                  )

                 (CheckBoxSpec

                    label: 'Translate Label'

                    name: 'CheckBox2'

                    layout: (LayoutOrigin 160 0 126 0)

                    activeHelpKey: basicsLabelTranslate

                    tabable: true

                    model: translateLabel

                  )

                 )