"

 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger

              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.

"

ToolApplicationModel subclass:#DataSetBuilder

	instanceVariableNames:'className superclassName hasChanged columnView columns

		selectedColumnIndex tabSelectionIndex aspects'

	classVariableNames:'Number'

	poolDictionaries:''

	category:'Interface-UIPainter'

!

!DataSetBuilder class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger

              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:'help specs'!

helpSpec

    "return a dictionary filled with helpKey -> helptext associations.

     These are used by the activeHelp tool."

    "

    UIHelpTool openOnClass:DataSetBuilder    

    "

  ^ super helpSpec addPairsFrom:#(

#addColumn

'Adds a new column.'

#basicsEditor

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

#basicsFont

'Sets the font of the label text.'

#basicsJustification

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

#basicsLabel

'The label of the column or a selector returning a string an image.'

#basicsLabelIsImage

'Turns on/off image behavior of the label string; i.e. it is used as selector returning an image.'

#basicsRenderer

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

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

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

#selectionCellClickSelector

'A selector called if cell was selected. '

#selectionCellDoubleClickSelector

'A selector called if cell was double clicked.'

#selectionCellSelector

'An optional selector, which is used to test whether the cell in the column is selectable; the ''Is Selectable'' flag must be enabled.'

#selectionIsSelectable

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

#selectionLabelClickSelector

'A selector called if label cell was clicked.'

#selectionLabelSelectorArgument

'An argument passed to label selection selector. '

#valuesChoiceSelector

'A selector returning a collection of choices for a cell having a ComboBox or a ComboList widget.'

#valuesMenuSelector

'A selector returning a middle button menu.'

#valuesPrintSelector

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

#valuesReadSelector

'A selector used to get (string or a bitmap) or set (if the write selector is undefined) the contents of a cell.'

#valuesWriteSelector

'A selector used to set the value of a cell.'

)

! !

!DataSetBuilder class methodsFor:'interface specs'!

basicsEditSpec

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:DataSetBuilder andSelector:#basicsEditSpec

     DataSetBuilder new openInterface:#basicsEditSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'DataSet Basic'

              #layout: #(#LayoutFrame 299 0 234 0 587 0 489 0)

              #label: 'DataSet Basic'

              #min: #(#Point 10 10)

              #max: #(#Point 1280 1024)

              #bounds: #(#Rectangle 299 234 588 490)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#FramedBoxSpec

                    #name: 'framedBox1'

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

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#LabelSpec

                              #name: 'label1'

                              #layout: #(#AlignmentOrigin 107 0 32 0 1 0.5)

                              #label: 'Label:'

                              #resizeForLabel: true

                          )

                           #(#InputFieldSpec

                              #name: 'labelField'

                              #layout: #(#LayoutFrame 110 0 21 0 15 1.0 43 0)

                              #activeHelpKey: #basicsLabel

                              #tabable: true

                              #model: #label

                          )

                           #(#CheckBoxSpec

                              #name: 'labelIsImage'

                              #layout: #(#LayoutOrigin 107 0 103 0)

                              #activeHelpKey: #basicsLabelIsImage

                              #tabable: true

                              #model: #labelIsImage

                              #label: 'Label Is Image'

                          )

                           #(#UISubSpecification

                              #name: 'fontSubSpec'

                              #layout: #(#LayoutFrame 60 0.0 47 0 15 1.0 75 0)

                              #activeHelpKey: #basicsFont

                              #majorKey: #UISpecification

                              #minorKey: #fontSpec

                          )

                           #(#PopUpListSpec

                              #name: 'Alignment'

                              #layout: #(#LayoutFrame 110 0 78 0 15 1.0 100 0)

                              #activeHelpKey: #basicsJustification

                              #label: 'Alignment'

                              #model: #labelAlignment

                              #menu: 

                               #(#left

                                  #right #center

                              )

                              #useIndex: false

                          )

                           #(#LabelSpec

                              #name: 'JustificationLabel'

                              #layout: #(#AlignmentOrigin 107 0 89 0 1 0.5)

                              #label: 'Justification:'

                              #adjust: #left

                              #resizeForLabel: true

                          )

                        )

                    )

                    #label: 'Header:'

                    #labelPosition: #topLeft

                )

                 #(#FramedBoxSpec

                    #name: 'typesFrame'

                    #layout: #(#LayoutFrame 0 0.0 145 0 0 1.0 227 0)

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#LabelSpec

                              #name: 'rendererLabel'

                              #layout: #(#AlignmentOrigin 107 0 29 0 1 0.5)

                              #label: 'Renderer:'

                              #resizeForLabel: true

                          )

                           #(#ComboListSpec

                              #name: 'rendererField'

                              #layout: #(#LayoutFrame 110 0 18 0 15 1.0 40 0)

                              #activeHelpKey: #basicsRenderer

                              #tabable: true

                              #model: #rendererType

                              #comboList: #rendererTypeList

                              #useIndex: false

                          )

                           #(#LabelSpec

                              #name: 'editorLabel'

                              #layout: #(#AlignmentOrigin 107 0 55 0 1 0.5)

                              #label: 'Editor:'

                              #resizeForLabel: true

                          )

                           #(#ComboBoxSpec

                              #name: 'editorField'

                              #layout: #(#LayoutFrame 110 0 44 0 15 1.0 66 0)

                              #activeHelpKey: #basicsEditor

                              #tabable: true

                              #model: #editorType

                              #type: #symbolOrNil

                              #comboList: #editorTypeList

                              #useIndex: false

                          )

                        )

                    )

                    #label: 'Cell Type:'

                    #labelPosition: #topLeft

                )

              )

          )

      )

!

colorsEditSpec

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:DataSetBuilder andSelector:#colorsEditSpec

     DataSetBuilder new openInterface:#colorsEditSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'DataSet Misc'

              #layout: #(#LayoutFrame 383 0 282 0 751 0 581 0)

              #label: 'DataSet Misc'

              #min: #(#Point 10 10)

              #max: #(#Point 1280 1024)

              #bounds: #(#Rectangle 383 282 752 582)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#FramedBoxSpec

                    #name: 'ColorsBox'

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

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#LabelSpec

                              #name: 'label1'

                              #layout: #(#AlignmentOrigin 107 0 27 0 1 0.5)

                              #label: 'Foreground:'

                              #adjust: #right

                              #resizeForLabel: true

                          )

                           #(#ColorMenuSpec

                              #name: 'colorMenu1'

                              #layout: #(#LayoutFrame 110 0 15 0 12 1.0 37 0)

                              #activeHelpKey: #colorsForegroundLabelColor

                              #model: #labelForegroundColor

                              #labelsAreColored: true

                          )

                           #(#LabelSpec

                              #name: 'label2'

                              #layout: #(#AlignmentOrigin 107 0 55 0 1 0.5)

                              #label: 'Background:'

                              #adjust: #right

                              #resizeForLabel: true

                          )

                           #(#ColorMenuSpec

                              #name: 'colorMenu2'

                              #layout: #(#LayoutFrame 110 0 43 0 12 1.0 65 0)

                              #activeHelpKey: #colorsBackgroundLabelColor

                              #model: #labelBackgroundColor

                              #labelsAreColored: false

                          )

                        )

                    )

                    #label: 'Label Colors:'

                    #labelPosition: #topLeft

                )

                 #(#FramedBoxSpec

                    #name: 'defaultColorsBox'

                    #layout: #(#LayoutFrame 0 0.0 88 0 0 1.0 230 0)

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#LabelSpec

                              #name: 'fgLabel'

                              #layout: #(#AlignmentOrigin 107 0 27 0 1 0.5)

                              #label: 'Foreground:'

                              #adjust: #right

                              #resizeForLabel: true

                          )

                           #(#ColorMenuSpec

                              #name: 'fgMenu'

                              #layout: #(#LayoutFrame 110 0 15 0 12 1.0 37 0)

                              #activeHelpKey: #colorsForegroundCellColor

                              #model: #foregroundColor

                              #labelsAreColored: true

                          )

                           #(#LabelSpec

                              #name: 'bgLabel'

                              #layout: #(#AlignmentOrigin 107 0 55 0 1 0.5)

                              #label: 'Background:'

                              #adjust: #right

                              #resizeForLabel: true

                          )

                           #(#ColorMenuSpec

                              #name: 'bgMenu'

                              #layout: #(#LayoutFrame 110 0 43 0 12 1.0 65 0)

                              #activeHelpKey: #colorsBackgroundCellColor

                              #model: #backgroundColor

                              #labelsAreColored: false

                          )

                           #(#LabelSpec

                              #name: 'fgSelLabel'

                              #layout: #(#AlignmentOrigin 107 0 89 0 1 0.5)

                              #label: 'FG-Selector:'

                              #adjust: #right

                              #resizeForLabel: true

                          )

                           #(#InputFieldSpec

                              #name: 'fgSelField'

                              #layout: #(#LayoutFrame 110 0 78 0 15 1.0 100 0)

                              #activeHelpKey: #colorsForegroundSelector

                              #tabable: true

                              #model: #foregroundSelector

                              #type: #symbolOrNil

                          )

                           #(#LabelSpec

                              #name: 'bgSelLabel'

                              #layout: #(#AlignmentOrigin 107 0 114 0 1 0.5)

                              #label: 'BG-Selector:'

                              #adjust: #right

                              #resizeForLabel: true

                          )

                           #(#InputFieldSpec

                              #name: 'bgSelField'

                              #layout: #(#LayoutFrame 110 0 103 0 15 1.0 125 0)

                              #activeHelpKey: #colorsBackgroundSelector

                              #tabable: true

                              #model: #backgroundSelector

                              #type: #symbolOrNil

                          )

                        )

                    )

                    #label: 'Cell Colors:'

                    #labelPosition: #topLeft

                )

              )

          )

      )

!

defineClassNameSpec

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:DataSetBuilder andSelector:#defineClassNameSpec

     DataSetBuilder new openInterface:#defineClassNameSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'Data Set Builder'

              #layout: #(#LayoutFrame 425 0 253 0 751 0 388 0)

              #label: 'Data Set Builder'

              #min: #(#Point 10 10)

              #max: #(#Point 1152 900)

              #bounds: #(#Rectangle 425 253 752 389)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#FramedBoxSpec

                    #name: 'framedBox1'

                    #layout: #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -34 1.0)

                    #label: 'Classes for code'

                    #labelPosition: #topLeft

                )

                 #(#LabelSpec