--- 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.