+ at least output a message when catching errors
authorClaus Gittinger <cg@exept.de>
Mon, 11 Feb 2002 10:29:58 +0100
changeset 1553 acdc694c9232
parent 1552 9b200b9dd032
child 1554 d01ffa42ca7a
+ at least output a message when catching errors
DragAndDropManager.st
--- a/DragAndDropManager.st	Mon Jan 07 18:25:09 2002 +0100
+++ b/DragAndDropManager.st	Mon Feb 11 10:29:58 2002 +0100
@@ -1300,9 +1300,10 @@
     "/ new mechanism to get a dropTarget
     "/
     aView messageNotUnderstoodSignal handle:[:ex|
+        Transcript showCR:'DragAndDropManager: error while asking view for droptarget cought'.
         target := nil.
     ] do:[
-        target := aView dropTarget
+        target := aView dropTarget.
     ].
     target notNil ifTrue:[ ^ target ].
     "/
@@ -1392,6 +1393,6 @@
 !DragAndDropManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.35 2001-10-10 13:41:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.36 2002-02-11 09:29:58 cg Exp $'
 ! !
 DragAndDropManager initialize!