# HG changeset patch
# User ca
# Date 940951902 -7200
# Node ID 247e8db2d0e76d737522d3bcec9472082be44b9c
# Parent  6f81c1d73e7549ea0f8b458ba20ec16cb9b36360
add type converter support

diff -r 6f81c1d73e75 -r 247e8db2d0e7 DataSetBuilder.st
--- a/DataSetBuilder.st	Tue Oct 26 15:42:21 1999 +0200
+++ b/DataSetBuilder.st	Tue Oct 26 17:31:42 1999 +0200
@@ -101,6 +101,7 @@
         doubleClickedSelector
         rowSeparatorSelector
         selectSelector
+        converterSelector
         showComboFieldSelector
         printSelector
         readSelector
@@ -139,7 +140,7 @@
 
     <resource: #help>
 
-    ^ super helpSpec addPairsFrom:#(
+    ^super helpSpec addPairsFrom:#(
 
 #addColumn
 'Adds a new column.'
@@ -192,12 +193,15 @@
 #colorsForegroundSelector
 'Selector returning the foreground color for a cell (optional).'
 
-#fileNew
-'Discard changes and continue with a new, empty column description'
+#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'
 
@@ -231,9 +235,6 @@
 #frameShowRowSeparatorSelector
 'An optional selector, which is used to test whether the row separator at the bottom is shown.'
 
-#generate
-'Code generation.'
-
 #generateCode
 'Generate code and install in the selected class/selector.'
 
@@ -280,8 +281,6 @@
 'Selector used to set the value derived from the editor.'
 
 )
-
-    "Modified: / 19.5.1998 / 23:20:51 / cg"
 ! !
 
 !DataSetBuilder class methodsFor:'image specs'!
@@ -1209,14 +1208,9 @@
        #(#WindowSpec
           #label: 'DataSet Basic'
           #name: 'DataSet Basic'
-          #layout: #(#LayoutFrame 699 0 270 0 994 0 575 0)
-          #level: 0
           #min: #(#Point 10 10)
           #max: #(#Point 1280 1024)
-          #bounds: #(#Rectangle 699 270 995 576)
-          #usePreferredExtent: false
-          #returnIsOKInDialog: true
-          #escapeIsCancelInDialog: true
+          #bounds: #(#Rectangle 12 22 308 328)
         )
         #component: 
        #(#SpecCollection
@@ -1224,7 +1218,7 @@
            #(#FramedBoxSpec
               #label: 'Value Selectors:'
               #name: 'valuesBox'
-              #layout: #(#LayoutFrame 0 0.0 3 0 0 1.0 110 0)
+              #layout: #(#LayoutFrame 0 0.0 3 0 0 1.0 138 0)
               #labelPosition: #topLeft
               #component: 
              #(#SpecCollection
@@ -1270,15 +1264,35 @@
                     #acceptOnPointerLeave: false
                   )
                  #(#LabelSpec
-                    #label: 'Print:'
-                    #name: 'printLabel'
+                    #label: 'Converter:'
+                    #name: 'converterLabel'
                     #layout: #(#AlignmentOrigin 94 0 65 0 1 0.5)
                     #resizeForLabel: true
                     #adjust: #right
                   )
                  #(#InputFieldSpec
+                    #name: 'converterField'
+                    #layout: #(#LayoutFrame 97 0 54 0 2 1.0 76 0)
+                    #activeHelpKey: #converterSelector
+                    #tabable: true
+                    #model: #converterSelector
+                    #group: #inputGroup
+                    #type: #symbolOrNil
+                    #acceptOnLostFocus: false
+                    #acceptChannel: #acceptChannel
+                    #modifiedChannel: #modifiedChannel
+                    #acceptOnPointerLeave: false
+                  )
+                 #(#LabelSpec
+                    #label: 'Print:'
+                    #name: 'printLabel'
+                    #layout: #(#AlignmentOrigin 94 0 97 0 1 0.5)
+                    #resizeForLabel: true
+                    #adjust: #right
+                  )
+                 #(#InputFieldSpec
                     #name: 'printSelector'
-                    #layout: #(#LayoutFrame 97 0 54 0 2 1.0 76 0)
+                    #layout: #(#LayoutFrame 97 0 86 0 2 1.0 108 0)
                     #activeHelpKey: #valuesPrintSelector
                     #tabable: true
                     #model: #printSelector
@@ -1296,7 +1310,7 @@
            #(#FramedBoxSpec
               #label: 'Menu:'
               #name: 'menusBox'
-              #layout: #(#LayoutFrame 0 0.0 119 0 0 1.0 176 0)
+              #layout: #(#LayoutFrame 0 0.0 143 0 0 1.0 200 0)
               #labelPosition: #topLeft
               #component: 
              #(#SpecCollection
@@ -1328,7 +1342,7 @@
            #(#FramedBoxSpec
               #label: 'Combo List/Box Selectors:'
               #name: 'framedBox1'
-              #layout: #(#LayoutFrame 1 0.0 191 0 1 1.0 279 0)
+              #layout: #(#LayoutFrame 1 0.0 205 0 1 1.0 293 0)
               #labelPosition: #topLeft
               #component: 
              #(#SpecCollection
@@ -2520,6 +2534,7 @@
                     rowSeparatorSelector:nil;
                     selectSelector: nil;
                     showComboFieldSelector: nil;
+                    selectSelector: nil;
                     doubleClickedSelector: nil;
                     printSelector: nil;
                     menu: nil;
@@ -2673,7 +2688,7 @@
 
     type == #rowSelector ifTrue:[
         #(label width minWidth usePreferredWidth editorType choices readSelector writeSelector printSelector
-          formatString type size height canSelect selectSelector showComboFieldSelector
+          formatString type converterSelector size height canSelect selectSelector showComboFieldSelector
          ) do:[:aKey|
             (aspects at:aKey) value:nil
         ]