--- tkdesk.main.orig	Sun Nov 14 16:07:45 1999
+++ tkdesk.main	Sun May 28 16:30:32 2000
@@ -682,6 +682,12 @@
     blt_drag&drop errors ""
 }
 
+# Disable BLT's built-in d&d bindings (except for motion):
+catch {
+    bind BltDrag&DropButton2 <Button-2> {}
+    bind BltDrag&DropButton2 <ButtonRelease-2> {}
+}
+
 #
 # ====  Set misc. global variables ============================================
 #
@@ -1004,7 +1010,7 @@
     }
 
     foreach obj [itcl_info objects -class dsk_Editor] {
-	if [winfo exists $obj] {
+	if [winfo exists [$obj getToplevel]] {
 	    if {[$obj close_win] == "cancel"} {
 		return
 	    }
