--- a/DataSetBuilder.st Wed Aug 09 12:18:11 2000 +0200
+++ b/DataSetBuilder.st Wed Aug 09 12:32:38 2000 +0200
@@ -2753,6 +2753,8 @@
(view := listOfSpecViews at:tabSelection) isNil ifTrue:[
view := SimpleView new.
spec := (self class slices at:tabSelection) last.
+
+"/ view client:nil spec:(self class interfaceSpecFor:spec) builder:(self builder).
view client:self spec:spec builder:(self builder).
listOfSpecViews at:tabSelection put:view.
].
@@ -2851,22 +2853,30 @@
cutOrDelete:isCut
"remove selected column and optionally put it to the clipboard"
- |idx|
-
- ((idx := selectedColumnIndex) ~~ 0 and: [self askForItemModification])
- ifTrue:
- [
- self selectedColumnModel value:0.
- isCut ifTrue:[self clipboard: (columns at: idx)].
- columns removeIndex:idx.
- self seqList removeIndex:idx.
- columns size > 0 ifTrue: [self selectedColumnModel value: ((idx - 1) max: 1)].
- self updateColumnView.
- self updateInputFields.
- columns isEmpty ifTrue: [self isColumnSelected value: false].
- self cancel.
- modified := true.
- ]
+ |idx model|
+
+ ((idx := selectedColumnIndex) ~~ 0 and:[self askForItemModification]) ifFalse:[
+ ^ self
+ ].
+ model := self selectedColumnModel.
+ model value:0.
+
+ isCut ifTrue:[
+ self clipboard: (columns at: idx)
+ ].
+ columns removeIndex:idx.
+
+ self seqList removeIndex:idx.
+ model value:(idx min:(columns size)).
+ self updateColumnView.
+ self updateInputFields.
+
+ columns isEmpty ifTrue:[
+ self isColumnSelected value: false
+ ].
+ self cancel.
+ modified := true.
+
!
doBrowseRowClass