Eskil

Check-in [b5abba5fa8]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Push Prefs into plugin
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b5abba5fa88055caca861070e18f0cbc632bf5b1
User & Date: peter 2008-05-23 04:50:12.000
Context
2008-05-23
04:59
More plugin examples check-in: c0f250b652 user: peter tags: trunk
04:50
Push Prefs into plugin check-in: b5abba5fa8 user: peter tags: trunk
2008-05-22
20:06
Added plugins check-in: 35db83fb5f user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/plugin.tcl.
︙︙
66
67
68
69
70
71
72

73
74
75
76
77
78
79


    return $pi
}

proc preparePlugin {top} {
    #FIXA: plugin miffo
    disallowEdit $top

    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)








>








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)
︙︙