Eskil

Differences From Artifact [1af724785f]:

• Executable file src/debug.tcl — part of check-in [7abe7c695a] at 2011-10-14 23:57:03 on branch trunk — Added procedure editor. (user: peter.spjuth@gmail.com size: 3939)

To Artifact [c29a2779dc]:

• Executable file src/debug.tcl — part of check-in [63cd9c7aa2] at 2015-02-22 23:46:40 on branch trunk — Code polish to silence syntax warnings. (user: peter size: 3941)

62
63
64
65
66
67
68
69
70
71
72
73
74
75
76

    if {$p eq ""} {
        set ::ProcEditor(args) ""
        $::ProcEditor(bodyW) delete 1.0 end
        return
    }
    if {$p ne $::ProcEditor(proc)} {
        after idle [list set ::ProcEditor(proc) $p]
        after idle [list $::ProcEditor(procW) selection range insert end]
    }

    after idle ProcEditorSelected
}

proc ProcEditorSelected {} {

|

62
63
64
65
66
67
68
69
70
71
72
73
74
75
76

    if {$p eq ""} {
        set ::ProcEditor(args) ""
        $::ProcEditor(bodyW) delete 1.0 end
        return
    }
    if {$p ne $::ProcEditor(proc)} {
        after idle [list set "::ProcEditor(proc)" $p]
        after idle [list $::ProcEditor(procW) selection range insert end]
    }

    after idle ProcEditorSelected
}

proc ProcEditorSelected {} {