diff -r 96674f49b8d7 -r d76ed66a63ed DataSetBuilder.st
--- a/DataSetBuilder.st	Fri Jul 04 18:47:41 2003 +0200
+++ b/DataSetBuilder.st	Wed Jul 16 15:32:40 2003 +0200
@@ -111,6 +111,7 @@
         printSelector
         readSelector
         writeSelector
+        visibilitySelector
         rendererType
         showColSeparator
         showSelectionHighLighted
@@ -144,7 +145,7 @@
 
     <resource: #help>
 
-    ^super helpSpec addPairsFrom:#(
+    ^ super helpSpec addPairsFrom:#(
 
 #addColumn
 'Adds a new column.'
@@ -285,7 +286,10 @@
 '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).'
+'Selector returning the label to be displayed (string, bitmap or a collection).'
+
+#valuesVisibilitySelector
+'Boolean message selector controlling the columns visibility.'
 
 #valuesWriteSelector
 'Selector used to set the value derived from the editor.'
@@ -1258,7 +1262,7 @@
           #name: 'DataSet Basic'
           #min: #(#Point 10 10)
           #max: #(#Point 1280 1024)
-          #bounds: #(#Rectangle 13 23 309 329)
+          #bounds: #(#Rectangle 16 42 312 356)
         )
         #component: 
        #(#SpecCollection
@@ -1266,7 +1270,7 @@
            #(#FramedBoxSpec
               #label: 'Value Selectors:'
               #name: 'valuesBox'
-              #layout: #(#LayoutFrame 0 0.0 3 0 0 1.0 138 0)
+              #layout: #(#LayoutFrame 0 0.0 3 0 0 1.0 160 0)
               #labelPosition: #topLeft
               #component: 
              #(#SpecCollection
@@ -1279,10 +1283,6 @@
                     #adjust: #right
                   )
                  #(#InputFieldSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
                     #name: 'readSelector'
                     #layout: #(#LayoutFrame 97 0 4 0 2 1.0 26 0)
                     #activeHelpKey: #valuesReadSelector
@@ -1303,10 +1303,6 @@
                     #adjust: #right
                   )
                  #(#InputFieldSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
                     #name: 'writeSelector'
                     #layout: #(#LayoutFrame 97 0 29 0 2 1.0 51 0)
                     #activeHelpKey: #valuesWriteSelector
@@ -1327,10 +1323,6 @@
                     #adjust: #right
                   )
                  #(#InputFieldSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
                     #name: 'converterField'
                     #layout: #(#LayoutFrame 97 0 54 0 2 1.0 76 0)
                     #activeHelpKey: #converterSelector
@@ -1351,10 +1343,6 @@
                     #adjust: #right
                   )
                  #(#InputFieldSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
                     #name: 'printSelector'
                     #layout: #(#LayoutFrame 97 0 79 0 2 1.0 101 0)
                     #activeHelpKey: #valuesPrintSelector
@@ -1367,6 +1355,26 @@
                     #modifiedChannel: #modifiedChannel
                     #acceptOnPointerLeave: false
                   )
+                 #(#LabelSpec
+                    #label: 'Visibility:'
+                    #name: 'visibilityLabel'
+                    #layout: #(#AlignmentOrigin 94 0 115 0 1 0.5)
+                    #resizeForLabel: true
+                    #adjust: #right
+                  )
+                 #(#InputFieldSpec
+                    #name: 'visibilitySelector'
+                    #layout: #(#LayoutFrame 97 0 104 0 2 1.0 126 0)
+                    #activeHelpKey: #valuesVisibilitySelector
+                    #tabable: true
+                    #model: #visibilitySelector
+                    #group: #inputGroup
+                    #type: #symbolOrNil
+                    #acceptOnLostFocus: false
+                    #acceptChannel: #acceptChannel
+                    #modifiedChannel: #modifiedChannel
+                    #acceptOnPointerLeave: false
+                  )
                  )
                
               )
@@ -1374,7 +1382,7 @@
            #(#FramedBoxSpec
               #label: 'Menu:'
               #name: 'menusBox'
-              #layout: #(#LayoutFrame 0 0.0 143 0 0 1.0 200 0)
+              #layout: #(#LayoutFrame 0 0.0 161 0 0 1.0 218 0)
               #labelPosition: #topLeft
               #component: 
              #(#SpecCollection
@@ -1387,10 +1395,6 @@
                     #adjust: #right
                   )
                  #(#InputFieldSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
                     #name: 'menuSelector'
                     #layout: #(#LayoutFrame 97 0 1 0 2 1.0 23 0)
                     #activeHelpKey: #valuesMenuSelector
@@ -1410,7 +1414,7 @@
            #(#FramedBoxSpec
               #label: 'Combo List/Box Selectors:'
               #name: 'framedBox1'
-              #layout: #(#LayoutFrame 1 0.0 205 0 1 1.0 293 0)
+              #layout: #(#LayoutFrame 1 0.0 223 0 1 1.0 311 0)
               #labelPosition: #topLeft
               #component: 
              #(#SpecCollection
@@ -1424,10 +1428,6 @@
                     #adjust: #right
                   )
                  #(#InputFieldSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
                     #name: 'ChoicesField'
                     #layout: #(#LayoutFrame 97 0 4 0 2 1.0 26 0)
                     #activeHelpKey: #valuesChoiceSelector
@@ -1450,10 +1450,6 @@
                     #adjust: #right
                   )
                  #(#InputFieldSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
                     #name: 'ShowInputFieldField'
                     #layout: #(#LayoutFrame 97 0 30 0 2 1.0 52 0)
                     #activeHelpKey: #showComboFieldSelector
@@ -1475,8 +1471,6 @@
          
         )
       )
-
-    "Modified: / 30.1.2000 / 02:39:03 / cg"
 !
 
 windowSpec
@@ -2600,7 +2594,8 @@
                 previewColumns add:(aCol copy)
             ].
             previewColumns keysAndValuesDo:[:anIndex :column| 
-                column readSelector:  #at:;
+                column 
+                    readSelector:  #at:;
                     writeSelector: #at:put:;
                     backgroundSelector:nil;
                     foregroundSelector:nil;
@@ -2610,6 +2605,7 @@
                     selectSelector: nil;
                     doubleClickedSelector: nil;
                     printSelector: nil;
+                    visibilitySelector: nil;
                     menu: nil;
                     labelActionSelector:#labelInPreviewPressed:;
                     labelActionArgument:anIndex;
@@ -2779,7 +2775,9 @@
     type := (aspects at:#rendererType) value.
 
     type == #rowSelector ifTrue:[
-        #(label width minWidth usePreferredWidth editorType choices readSelector writeSelector printSelector
+        #(label 
+          width minWidth usePreferredWidth editorType choices 
+          readSelector writeSelector printSelector visibilitySelector
           formatString type converterSelector size height canSelect selectSelector showComboFieldSelector
          ) do:[:aKey|
             (aspects at:aKey) value:nil
@@ -2792,7 +2790,6 @@
     self updateColumnView.
     self cancel.
     modified := true.
-
 !
 
 cancel