--- a/ObjectView.st Fri Oct 27 14:06:31 2006 +0200
+++ b/ObjectView.st Fri Oct 27 14:32:02 2006 +0200
@@ -1083,7 +1083,7 @@
]
]
- "Modified: / 4.7.1999 / 18:58:08 / cg"
+ "Modified: / 27-10-2006 / 14:32:12 / cg"
!
startRootObjectMove:something at:aPoint
@@ -1107,7 +1107,11 @@
self invertDragRectangle.
self cursor:oldCursor.
- self selectAllIn:dragObject
+ self selectAllIn:dragObject.
+
+ releaseAction := nil.
+
+ "Modified: / 27-10-2006 / 14:21:11 / cg"
!
invertDragRectangle
@@ -2894,9 +2898,10 @@
selection isCollection ifFalse:[
selection isNil ifTrue:[
- ^ self select:anObject
- ].
- selection := OrderedCollection with:selection
+ selection := OrderedCollection new
+ ] ifFalse:[
+ selection := OrderedCollection with:selection
+ ]
].
(selection includes:anObject) ifFalse:[
@@ -2911,7 +2916,7 @@
self changed:#selection with:selection.
].
- "Modified: / 4.7.1999 / 15:22:13 / cg"
+ "Modified: / 27-10-2006 / 14:16:04 / cg"
!
hideSelection
@@ -3426,5 +3431,5 @@
!ObjectView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.122 2006-10-27 12:06:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.123 2006-10-27 12:32:02 cg Exp $'
! !