DataSetBuilder.st
changeset 2380 4dc5c818aa21
parent 2371 233e1bda3570
child 2382 f90f0f66793a
--- a/DataSetBuilder.st	Fri Jul 18 11:55:06 2008 +0200
+++ b/DataSetBuilder.st	Wed Jul 23 00:31:45 2008 +0200
@@ -2330,7 +2330,7 @@
               nil
             )
           )
-        (MenuItem
+         (MenuItem
             label: 'Alignment'
             translateLabel: true
             submenu: 
@@ -2404,6 +2404,29 @@
             )
           )
          (MenuItem
+            label: 'Behavior'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Make Selected Cells Unselectable'
+                  itemValue: makeSelectedCellsUnselectable
+                  translateLabel: true
+                )
+               (MenuItem
+                  enabled: hasSelection
+                  label: 'Make Selected Cells Selectable'
+                  itemValue: makeSelectedCellsSelectable
+                  translateLabel: true
+                )
+               )
+              nil
+              nil
+            )
+          )
+         (MenuItem
             label: '-'
           )
          (MenuItem
@@ -3282,6 +3305,20 @@
     self makeColumnsSelectable:false
 !
 
+makeSelectedCellsSelectable
+    self selectedColumnsDo:[:eachColDescr |
+        eachColDescr canSelect:true
+    ].
+    self updateAfterOperation.
+!
+
+makeSelectedCellsUnselectable
+    self selectedColumnsDo:[:eachColDescr |
+        eachColDescr canSelect:false
+    ].
+    self updateAfterOperation.
+!
+
 removeCellSeparators
     self removeRowSeparators.
     self removeColumnSeparators.