# HG changeset patch
# User ca
# Date 1244647246 -7200
# Node ID 1acb2765094d9f76367b4fc18fdc685fcb751071
# Parent  befc1c21628763a8152128e30d473bd144488998
move columns up or down

diff -r befc1c216287 -r 1acb2765094d DataSetBuilder.st
--- a/DataSetBuilder.st	Wed Jun 10 15:25:54 2009 +0200
+++ b/DataSetBuilder.st	Wed Jun 10 17:20:46 2009 +0200
@@ -4156,14 +4156,17 @@
 doMoveColumn:upOrDown
     "move selected column up or down"
 
-    |idx list label col size|
+    |idx list label col size tabIndex|
 
     (idx := self singleSelectedColumnIndex) == 0 ifTrue:[^self].
     list := self seqList.
     size := list size.
 
-    size == 1 ifTrue:[^self].
+    size > 1 ifFalse:[ ^ self ].
+
     selectedColumnIndex := 0.
+    tabIndex := self tabModel value.
+
     label := list at:idx.
     col   := columns at:idx.
     list    removeIndex:idx.
@@ -4177,9 +4180,12 @@
                    ifFalse:[idx := idx + 1]
     ].
     columns add:col   beforeIndex:idx.
-    list    add:label beforeIndex:idx.  
+    list    add:label beforeIndex:idx.
+
     self selectedColumnModel value:idx.
     self updateColumnView.
+    self tabModel value:tabIndex.
+
     self setModified.
 !