--- a/UIGalleryView.st	Mon Sep 14 19:58:20 1998 +0200
+++ b/UIGalleryView.st	Mon Sep 14 19:59:10 1998 +0200
@@ -427,7 +427,7 @@
 
         self showUnselected.
         dragObj := DropSpec for:selection specification:spec.
-        self showSelected.
+        "/ self showSelected.
         DragAndDropManager startDrag:dragObj from:inputView.
     ]
 
@@ -446,7 +446,7 @@
 
         self showUnselected.
         dragObj := DropSpec for:selection specification:spec.
-        self showSelected.
+        "/ self showSelected.
 
         o := lastClickPoint - selection origin.
 
@@ -630,7 +630,7 @@
 showSelected
     "show selected
     "
-    self shown ifFalse:[^ self].
+    shown ifFalse:[^ self].
 
     selection notNil ifTrue:[
         self clippedByChildren:false.
@@ -652,8 +652,8 @@
     (currSel := selection) isNil ifTrue:[
         ^ self
     ].
+    shown ifFalse:[^ self].
     selection := nil.
-    self shown ifFalse:[^ self].
 
     self clippedByChildren:false.