# HG changeset patch
# User ca
# Date 1042836937 -3600
# Node ID 5ec4b63a862aed4ca6bdbf28eb35f2a44b4c66e0
# Parent  5e89f5959780c3c59d834b9a0da23a1b9b83e3f6
*** empty log message ***

diff -r 5e89f5959780 -r 5ec4b63a862a UIGalleryView.st
--- 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|