Differences From Artifact [ef49f5c3d9]:
- File src/plugin.tcl — part of check-in [35db83fb5f] at 2008-05-22 20:06:39 on branch trunk — Added plugins (user: peter size: 3600)
To Artifact [9bad71ce12]:
- File src/plugin.tcl — part of check-in [b5abba5fa8] at 2008-05-23 04:50:12 on branch trunk — Push Prefs into plugin (user: peter size: 3673)
| ︙ | |||
66 67 68 69 70 71 72 73 74 75 76 77 78 79 | 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | + |
return $pi
}
proc preparePlugin {top} {
#FIXA: plugin miffo
disallowEdit $top
$::diff($top,plugin) eval [list array set ::Pref [array get ::Pref]]
set out1 [tmpFile]
set out2 [tmpFile]
set chi [open $::diff($top,leftFile) r]
set cho [open $out1 w]
interp share {} $chi $::diff($top,plugin)
interp share {} $cho $::diff($top,plugin)
|
| ︙ |