12 lines
544 B
Plaintext
12 lines
544 B
Plaintext
--- ../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
|