blob: e42da816f80d45ce15e06fd03b6cc40f0b90bdad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
$NetBSD: patch-ah,v 1.1.1.1 2002/07/03 09:27:00 dmcmahill Exp $
--- 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
}
|