blob: 3a97c00b0a31adbb4a0c3460956f91f7405f3b58 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
--- tcldesk/appbar.tcl.orig Sun Nov 14 16:07:47 1999
+++ tcldesk/appbar.tcl Sun May 28 16:30:32 2000
@@ -631,12 +631,13 @@
}
}
-proc _appbar_dd_action {cmd flist} {
+proc _appbar_dd_action {cmd args} {
global tkdesk
catch "wm withdraw $tkdesk(dd_token_window)"
update
+ set flist $args
if {[string first %A $cmd] > -1} {
set cmd [string_replace $cmd %A $flist]
} else {
|