DSVColumnView.st
changeset 2732 0d3258f88f58
parent 2730 77bab35466a3
child 2733 7b5a0d80c4a8
--- a/DSVColumnView.st	Tue Jul 13 10:46:33 2004 +0200
+++ b/DSVColumnView.st	Thu Aug 05 12:13:31 2004 +0200
@@ -3968,7 +3968,7 @@
     ].
 
     multipleSelectOk ifFalse:[
-        newSel isNumber ifFalse:[
+        newSel isInteger ifFalse:[
             newSel := self identityIndexOfRow:aSelection.
         ].
         ^ (self isRowSelectable:newSel) ifTrue:[newSel] ifFalse:[0].
@@ -3977,7 +3977,7 @@
     "multiple selection
     "
     aSelection size ~~ 0 ifTrue:[
-        aSelection first isNumber ifTrue:[
+        aSelection first isInteger ifTrue:[
             newSel := aSelection select:[:idx| self isRowSelectable:idx ].
         ] ifFalse:[
             newSel := aSelection 
@@ -3988,7 +3988,7 @@
             ^ newSel
         ].
     ] ifFalse:[
-        (newSel isNumber and:[self isRowSelectable:newSel]) ifTrue:[
+        (newSel isInteger and:[self isRowSelectable:newSel]) ifTrue:[
             ^ Array with:newSel
         ].
     ].
@@ -3998,5 +3998,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.188 2004-07-08 09:51:58 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.189 2004-08-05 10:13:31 martin Exp $'
 ! !