--- a/UIGalleryView.st Fri Jan 17 15:52:22 2003 +0100
+++ b/UIGalleryView.st Fri Jan 17 21:55:37 2003 +0100
@@ -412,17 +412,21 @@
startDragFrom:aPoint
"start drag at a point
"
- |spec dragObj offset clickPos|
+ |spec dragObj offset clickPos oldSelect|
clickPos := lastClickPoint.
clickPos isNil ifTrue:[^ self].
lastClickPoint := nil.
+ oldSelect := selection.
self selection:(self findObjectAtX:(clickPos x) y:(clickPos y)).
spec := self findSpecFor:selection.
spec isNil ifTrue:[^ self].
+ oldSelect == selection ifTrue:[
+ self hideSelection
+ ].
dragMode := true.
spec := self buildSpecFrom:spec.
spec name:(spec copy userFriendlyName, $1).
@@ -478,6 +482,8 @@
x := anEvent x.
y := anEvent y.
p := device translatePoint:(x@y) fromView:evView toView:self.
+ x := p x.
+ y := p y.
anEvent isButtonPressEvent ifTrue:[ |button application|
button := anEvent button.
@@ -557,6 +563,7 @@
"
|point p|
+ subViews size == 0 ifTrue:[^ nil].
point := Point x:x y:y.
subViews do:[:v|