blob: 8499cceb284b8615b649a880c7ac402483ebe9bd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- ../src/plugin2tcl.tcl.orig Sun Mar 19 20:33:42 2000
+++ ../src/plugin2tcl.tcl Sun Mar 19 20:35:39 2000
@@ -8,7 +8,7 @@
puts $file "set createrules \"$createrules\""
foreach ary {tooldata mediadata fmts protos protonames fmtnames mappings attrs attrnames attrvaluenames attrflags noattrflags noattrlist defattrlist withattrs macros macrokeys fmtlayers} {
foreach key [array names $ary] {
- puts $file "set [set ary]($key) \"[set [set ary]($key)]\""
+ puts $file [list set [set ary]($key) [set [set ary]($key)]]
}
}
close $file
|