Eskil

Differences From Artifact [737340df9e]:

• File src/plugin.tcl — part of check-in [dbf293e7d2] at 2011-04-24 15:58:16 on branch trunk — Added basic GUI for plugin selection. (user: peter.spjuth@gmail.com size: 7787)

To Artifact [653f47c38d]:

• File src/plugin.tcl — part of check-in [3b774c1269] at 2011-04-24 16:06:50 on branch trunk — Bug fix in last commit. (user: peter.spjuth@gmail.com size: 7789)

234
235
236
237
238
239
240
241
242
243
244
245
246

}

proc EditPrefPluginsOk {top w} {
    destroy $w
    set ::diff($top,pluginname) $::diff($top,edit,pluginname) 
    set ::diff($top,plugininfo) $::diff($top,edit,plugininfo)
    if {$::diff($top,pluginname) ne ""} {
        set pinterp [createPluginInterp ::diff($top,pluginname) ::diff($top,plugininfo)]
    } else {
        set pinterp ""
    }
    set ::diff($top,plugin) $pinterp
}

|

234
235
236
237
238
239
240
241
242
243
244
245
246

}

proc EditPrefPluginsOk {top w} {
    destroy $w
    set ::diff($top,pluginname) $::diff($top,edit,pluginname) 
    set ::diff($top,plugininfo) $::diff($top,edit,plugininfo)
    if {$::diff($top,pluginname) ne ""} {
        set pinterp [createPluginInterp $::diff($top,pluginname) $::diff($top,plugininfo)]
    } else {
        set pinterp ""
    }
    set ::diff($top,plugin) $pinterp
}