Index: dragsite.tcl
==================================================================
--- dragsite.tcl
+++ dragsite.tcl
@@ -1,9 +1,9 @@
 # ------------------------------------------------------------------------------
 #  dragsite.tcl
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: dragsite.tcl,v 1.1.1.1 1999/08/03 20:20:23 ericm Exp $
+#  $Id: dragsite.tcl,v 1.1.1.1.2.1 1999/11/12 04:12:46 sven Exp $
 # ------------------------------------------------------------------------------
 #  Index of commands:
 #     - DragSite::include
 #     - DragSite::setdrag
 #     - DragSite::register
@@ -157,11 +157,13 @@
             }
             pack  $_topw.l
         }
         wm geometry $_topw +[expr $X+1]+[expr $Y+1]
         wm deiconify $_topw
-        tkwait visibility $_topw
+        if {[catch {tkwait visibility $_topw}]} {
+            return
+        }
         BWidget::grab  set $_topw
         BWidget::focus set $_topw
 
         bindtags $_topw [list $_topw DragTop]
         DropSite::_init_drag $_topw $drag(evt) $source $state $X $Y $type $ops $data