"

 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

        size

        type

        width

        minWidth

        usePreferredWidth

        isResizeable

        height

        menu

        foregroundSelector

        backgroundSelector

        doubleClickedSelector

        rowSeparatorSelector

        selectSelector

        converterSelector

        showComboFieldSelector

        printSelector

        readSelector

        writeSelector

        rendererType

        showColSeparator

        showSelectionHighLighted

        showRowSeparator

        backgroundColor

        foregroundColor

        labelForegroundColor

        labelBackgroundColor

        labelFont

        labelActionSelector

        labelActionArgument

        labelAlignment

        columnAlignment

     )

    "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 (String or StringCollection) or a selector returning the label.'

#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

'Sets the background color of the column.'

#colorsBackgroundLabelColor

'Sets the background color of the label.'

#colorsBackgroundSelector

'Selector returning the background color for a cell (optional).'

#colorsForegroundCellColor

'Sets the foreground color of the column.'

#colorsForegroundLabelColor

'Sets the foreground color of the label.'

#colorsForegroundSelector

'Selector returning the foreground color for a cell (optional).'

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

#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. In this release, only numbers are supported (for example: 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

'An optional selector, which is used to test whether the row separator at the bottom is shown.'

#generateCode

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

#pickColumns

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

#selectionCellClickSelector

'A selector called if cell was selected.'

#selectionCellDoubleClickSelector

'A selector called if cell was 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

'A selector called if a cell was clicked.'

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

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

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

          #max: #(#Point 1280 1024)

          #bounds: #(#Rectangle 10 149 399 475)

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#FramedBoxSpec

              #label: 'Header:'

              #name: 'framedBox1'

              #layout: #(#LayoutFrame 0 0.0 3 0 0 1.0 189 0)

              #labelPosition: #topLeft

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#LabelSpec

                    #label: 'ID:'

                    #name: 'idLabel'

                    #layout: #(#AlignmentOrigin 94 0 14 0 1 0.5)

                    #resizeForLabel: true

                  )

                 #(#InputFieldSpec

                    #attributes: 

                   #(#tabable

                      true

                    )

                    #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

                    #attributes: 

                   #(#tabable

                      true

                    )

                    #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

                  )

                 #(#ComboListSpec

                    #attributes: 

                   #(#tabable

                      true

                    )

                    #name: 'labelButtonType'

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

                    #tabable: true

                    #model: #labelButtonType

                    #comboList: 

                   #(#None

                      #Button #Group

                    )

                    #useIndex: false

                  )

                 #(#LabelSpec

                    #label: 'Align:'

                    #name: 'JustificationLabel'

                    #layout: #(#LayoutFrame 191 0 97 0 236 0 118 0)

                    #resizeForLabel: true

                    #adjust: #left

                  )

                 #(#PopUpListSpec

                    #attributes: 

                   #(#tabable

                      true

                    )

                    #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

                    )

                    #useIndex: false

                  )

                 #(#CheckBoxSpec

                    #attributes: 

                   #(#tabable

                      true

                    )

                    #label: 'Label Is Image'

                    #name: 'labelIsImage'

                    #layout: #(#LayoutOrigin -3 0 122 0)

                    #activeHelpKey: #basicsLabelIsImage

                    #tabable: true

                    #model: #labelIsImage

                  )

                 #(#CheckBoxSpec

                    #attributes: 

                   #(#tabable

                      true

                    )

                    #label: 'Translate Label'

                    #name: 'CheckBox2'

                    #layout: #(#LayoutOrigin 160 0 122 0)

                    #activeHelpKey: #basicsLabelTranslate

                    #tabable: true

                    #model: #translateLabel

                  )

                 )

              )

            )

           #(#FramedBoxSpec

              #label: 'Cell Type:'

              #name: 'typesFrame'

              #layout: #(#LayoutFrame 0 0.0 193 0 0 1.0 305 0)

              #labelPosition: #topLeft

              #component: 

             #(#SpecCollection

                #collection: #(