--- a/SelListV.st	Wed Jan 29 13:31:23 1997 +0100
+++ b/SelListV.st	Wed Jan 29 14:12:40 1997 +0100
@@ -1203,6 +1203,14 @@
     enabled := true
 !
 
+enabled
+   "return true if selections are possible"
+
+   ^ enabled.
+
+    "Created: 29.1.1997 / 12:40:54 / stefan"
+!
+
 endDragAction:aFourArgBlock
     "if dragging is enabled, this block will be evaluated
      at drag end time.
@@ -1723,6 +1731,10 @@
 buttonMotion:buttonMask x:x y:y
     "mouse-move while button was pressed - handle selection changes"
 
+    enabled ifFalse:[
+        ^ self
+    ].
+
     "is it the select or 1-button ?"
     (device buttonMotionMask:buttonMask includesButton:#select) ifFalse:[
         (device buttonMotionMask:buttonMask includesButton:1) ifFalse:[
@@ -1757,6 +1769,7 @@
     self expandSelectionToX:x y:y.
 
     "Modified: 14.11.1996 / 15:48:56 / cg"
+    "Modified: 29.1.1997 / 12:15:31 / stefan"
 !
 
 buttonMultiPress:button x:x y:y
@@ -3102,5 +3115,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.88 1997-01-23 15:57:20 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.89 1997-01-29 13:12:40 stefan Exp $'
 ! !

--- a/SelectionInListView.st	Wed Jan 29 13:31:23 1997 +0100
+++ b/SelectionInListView.st	Wed Jan 29 14:12:40 1997 +0100
@@ -1203,6 +1203,14 @@
     enabled := true
 !
 
+enabled
+   "return true if selections are possible"
+
+   ^ enabled.
+
+    "Created: 29.1.1997 / 12:40:54 / stefan"
+!
+
 endDragAction:aFourArgBlock
     "if dragging is enabled, this block will be evaluated
      at drag end time.
@@ -1723,6 +1731,10 @@
 buttonMotion:buttonMask x:x y:y
     "mouse-move while button was pressed - handle selection changes"
 
+    enabled ifFalse:[
+        ^ self
+    ].
+
     "is it the select or 1-button ?"
     (device buttonMotionMask:buttonMask includesButton:#select) ifFalse:[
         (device buttonMotionMask:buttonMask includesButton:1) ifFalse:[
@@ -1757,6 +1769,7 @@
     self expandSelectionToX:x y:y.
 
     "Modified: 14.11.1996 / 15:48:56 / cg"
+    "Modified: 29.1.1997 / 12:15:31 / stefan"
 !
 
 buttonMultiPress:button x:x y:y
@@ -3102,5 +3115,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.88 1997-01-23 15:57:20 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.89 1997-01-29 13:12:40 stefan Exp $'
 ! !