DataSetBuilder.st
changeset 1824 bbc564bddd31
parent 1823 de7fbe3fde6d
child 1825 58bcec422efd
equal deleted inserted replaced
1823:de7fbe3fde6d 1824:bbc564bddd31
   213 'Install the column description'
   213 'Install the column description'
   214 
   214 
   215 #fileSaveAs
   215 #fileSaveAs
   216 'Specify class/selector and install the column description'
   216 'Specify class/selector and install the column description'
   217 
   217 
       
   218 #formatFormatSelector
       
   219 'Selector sent to the row to get the Format string.'
       
   220 
   218 #formatInputType
   221 #formatInputType
   219 'A type converter symbol used by the input field.'
   222 'A type converter symbol used by the input field.'
   220 
   223 
   221 #formatMaxSize
   224 #formatMaxSize
   222 'Maximum size of the string which can be typed in. 0 or nil means unlimited.'
   225 'Maximum size of the string which can be typed in. 0 or nil means unlimited.'
   223 
   226 
   224 #formatTextFormat
   227 #formatTextFormat
   225 'Format string specifying the output format of the cell text. In this release, only numbers are supported (for example: 0.0000).'
   228 'Format string specifying the output format of the cell text. (for example: %5.4f gives 0.0000).'
   226 
   229 
   227 #frameColumnWidth
   230 #frameColumnWidth
   228 'Width (fixed or relative) of a column (optional).'
   231 'Width (fixed or relative) of a column (optional).'
   229 
   232 
   230 #frameMinWidth
   233 #frameMinWidth
   798         window: 
   801         window: 
   799        (WindowSpec
   802        (WindowSpec
   800           label: 'DataSet Details'
   803           label: 'DataSet Details'
   801           name: 'DataSet Details'
   804           name: 'DataSet Details'
   802           min: (Point 10 10)
   805           min: (Point 10 10)
   803           bounds: (Rectangle 14 46 402 338)
   806           bounds: (Rectangle 0 0 388 149)
   804         )
   807         )
   805         component: 
   808         component: 
   806        (SpecCollection
   809        (SpecCollection
   807           collection: (
   810           collection: (
   808            (FramedBoxSpec
   811            (FramedBoxSpec
   809               label: 'Input Format'
   812               label: 'Input Format'
   810               name: 'framedBox1'
   813               name: 'framedBox1'
   811               layout: (LayoutFrame 0 0.0 3 0 0 1.0 127 0)
   814               layout: (LayoutFrame 0 0.0 3 0 0 1.0 149 0)
   812               labelPosition: topLeft
   815               labelPosition: topLeft
   813               component: 
   816               component: 
   814              (SpecCollection
   817              (SpecCollection
   815                 collection: (
   818                 collection: (
   816                  (LabelSpec
   819                  (LabelSpec
   817                     label: 'Input Type:'
   820                     label: 'Input Type:'
   818                     name: 'typeLabel'
   821                     name: 'typeLabel'
   819                     layout: (AlignmentOrigin 115 0 26 0 1 0.5)
   822                     layout: (AlignmentOrigin 115 0 26 0 1 0.5)
       
   823                     translateLabel: true
   820                     resizeForLabel: true
   824                     resizeForLabel: true
   821                   )
   825                   )
   822                  (ComboListSpec
   826                  (ComboListSpec
   823                     name: 'typeCombo'
   827                     name: 'typeCombo'
   824                     layout: (LayoutFrame 118 0 15 0 3 1.0 37 0)
   828                     layout: (LayoutFrame 118 0 15 0 3 1.0 37 0)
   829                    (string
   833                    (string
   830                       password number
   834                       password number
   831                       numberOrNil symbolOrNil
   835                       numberOrNil symbolOrNil
   832                     )
   836                     )
   833                     useIndex: false
   837                     useIndex: false
       
   838                     hidePullDownMenuButton: false
   834                   )
   839                   )
   835                  (LabelSpec
   840                  (LabelSpec
   836                     label: 'Max Size:'
   841                     label: 'Max Size:'
   837                     name: 'sizeLabel'
   842                     name: 'sizeLabel'
   838                     layout: (AlignmentOrigin 115 0 52 0 1 0.5)
   843                     layout: (AlignmentOrigin 115 0 52 0 1 0.5)
       
   844                     translateLabel: true
   839                     resizeForLabel: true
   845                     resizeForLabel: true
   840                   )
   846                   )
   841                  (InputFieldSpec
   847                  (InputFieldSpec
   842                     name: 'sizeField'
   848                     name: 'sizeField'
   843                     layout: (LayoutFrame 118 0 41 0 3 1.0 63 0)
   849                     layout: (LayoutFrame 118 0 41 0 3 1.0 63 0)
   853                   )
   859                   )
   854                  (LabelSpec
   860                  (LabelSpec
   855                     label: 'Text Format:'
   861                     label: 'Text Format:'
   856                     name: 'formatLabel'
   862                     name: 'formatLabel'
   857                     layout: (AlignmentOrigin 115 0 77 0 1 0.5)
   863                     layout: (AlignmentOrigin 115 0 77 0 1 0.5)
       
   864                     translateLabel: true
   858                     resizeForLabel: true
   865                     resizeForLabel: true
   859                   )
   866                   )
   860                  (InputFieldSpec
   867                  (InputFieldSpec
   861                     name: 'formatField'
   868                     name: 'formatField'
   862                     layout: (LayoutFrame 118 0 66 0 3 1.0 88 0)
   869                     layout: (LayoutFrame 118 0 66 0 3 1.0 88 0)
   863                     activeHelpKey: formatTextFormat
   870                     activeHelpKey: formatTextFormat
   864                     tabable: true
   871                     tabable: true
   865                     model: formatString
   872                     model: formatString
   866                     group: inputGroup
   873                     group: inputGroup
       
   874                     acceptOnLostFocus: false
       
   875                     acceptChannel: acceptChannel
       
   876                     modifiedChannel: modifiedChannel
       
   877                     acceptOnPointerLeave: false
       
   878                   )
       
   879                  (LabelSpec
       
   880                     label: 'Format Selector:'
       
   881                     name: 'formatSelectorLabel'
       
   882                     layout: (AlignmentOrigin 115 0 103 0 1 0.5)
       
   883                     translateLabel: true
       
   884                     resizeForLabel: true
       
   885                   )
       
   886                  (InputFieldSpec
       
   887                     name: 'formatSelector'
       
   888                     layout: (LayoutFrame 118 0 92 0 3 1.0 114 0)
       
   889                     activeHelpKey: formatTextFormat
       
   890                     tabable: true
       
   891                     model: formatSelector
       
   892                     group: inputGroup
       
   893                     formatString: ''
   867                     acceptOnLostFocus: false
   894                     acceptOnLostFocus: false
   868                     acceptChannel: acceptChannel
   895                     acceptChannel: acceptChannel
   869                     modifiedChannel: modifiedChannel
   896                     modifiedChannel: modifiedChannel
   870                     acceptOnPointerLeave: false
   897                     acceptOnPointerLeave: false
   871                   )
   898                   )
  2583     selectedColumnIndex := 0.
  2610     selectedColumnIndex := 0.
  2584     columns     := OrderedCollection new.
  2611     columns     := OrderedCollection new.
  2585     modalOpened := false.
  2612     modalOpened := false.
  2586     listOfSpecViews := Array new:(self class slices size).
  2613     listOfSpecViews := Array new:(self class slices size).
  2587 
  2614 
       
  2615 !
       
  2616 
       
  2617 setDefaultValuesInNewColumn:aDataSetColumnSpec
       
  2618     aDataSetColumnSpec readSelector: #'valueAtColumnIndex:'.
       
  2619     aDataSetColumnSpec writeSelector: #'valueAtColumnIndex:put:'.
       
  2620     aDataSetColumnSpec backgroundSelector: #'bgAtRowIndex:columnIndex:'.
       
  2621     aDataSetColumnSpec foregroundSelector: #'fgAtRowIndex:columnIndex:'.
       
  2622     aDataSetColumnSpec selectSelector: #'selectAtColumnIndex:'.
       
  2623     aDataSetColumnSpec editorType: #InputField.
  2588 ! !
  2624 ! !
  2589 
  2625 
  2590 !DataSetBuilder methodsFor:'private'!
  2626 !DataSetBuilder methodsFor:'private'!
  2591 
  2627 
  2592 askForListModification
  2628 askForListModification