diff -r 5ea743a4ac48 -r 4f5e12eb7525 DataSetBuilder.st
--- a/DataSetBuilder.st	Wed May 12 10:56:16 2010 +0200
+++ b/DataSetBuilder.st	Wed Jun 16 16:05:21 2010 +0200
@@ -133,9 +133,10 @@
         maxValue
         isSortable
         sortSelector
+        sortBlockSelector
      )
 
-    "Modified: / 26-03-2007 / 14:05:10 / cg"
+    "Modified: / 16-06-2010 / 15:58:54 / cg"
 ! !
 
 !DataSetBuilder class methodsFor:'help specs'!
@@ -350,6 +351,9 @@
 #showSelectionHighLighted
 'Show selected cell highligthened (change fg/bg color).'
 
+#sortBlockSelector
+'Sent to the row to retrieve a selector which is sent to the application to provide a block for sorting.'
+
 #sortSelector
 'Sent to the row to extract the value used for sorting. If a block is returned, that one is used as sortBlock.'
 
@@ -378,6 +382,8 @@
 'Selector to get a collection of translated choices for a cell having a ComboBox or a ComboList widget.'
 
 )
+
+    "Modified: / 16-06-2010 / 16:04:22 / cg"
 ! !
 
 !DataSetBuilder class methodsFor:'image specs'!
@@ -1571,7 +1577,7 @@
           label: 'DataSet Basic'
           name: 'DataSet Basic'
           min: (Point 10 10)
-          bounds: (Rectangle 0 0 389 473)
+          bounds: (Rectangle 0 0 430 473)
         )
         component: 
        (SpecCollection
@@ -1606,7 +1612,7 @@
                        (LabelSpec
                           label: 'Sort Selector:'
                           name: 'sortSelector'
-                          layout: (LayoutFrame 18 0 33 0 90 0 51 0)
+                          layout: (LayoutFrame 35 0 33 0 107 0 51 0)
                           activeHelpKey: sortSelector
                           translateLabel: true
                           resizeForLabel: true
@@ -1614,7 +1620,7 @@
                         )
                        (InputFieldSpec
                           name: 'EntryField3'
-                          layout: (LayoutFrame 93 0 30 0 2 1 56 0)
+                          layout: (LayoutFrame 110 0 30 0 2 1 56 0)
                           activeHelpKey: sortSelector
                           enableChannel: isSortable
                           tabable: true
@@ -1628,10 +1634,35 @@
                           modifiedChannel: modifiedChannel
                           acceptOnPointerLeave: false
                         )
+                       (LabelSpec
+                          label: 'Sort Block Selector:'
+                          name: 'Label1'
+                          layout: (LayoutFrame -5 0 66 0 107 0 84 0)
+                          activeHelpKey: sortBlockSelector
+                          translateLabel: true
+                          resizeForLabel: true
+                          adjust: right
+                        )
+                       (InputFieldSpec
+                          name: 'EntryField4'
+                          layout: (LayoutFrame 110 0 63 0 2 1 89 0)
+                          activeHelpKey: sortBlockSelector
+                          enableChannel: isSortable
+                          tabable: true
+                          model: sortBlockSelector
+                          group: inputGroup
+                          type: symbolOrNil
+                          immediateAccept: false
+                          acceptOnLeave: false
+                          acceptOnLostFocus: false
+                          acceptChannel: acceptChannel
+                          modifiedChannel: modifiedChannel
+                          acceptOnPointerLeave: false
+                        )
                        )
                      
                     )
-                    extent: (Point 389 94)
+                    extent: (Point 430 122)
                   )
                  )