browser.tcl File Reference

Go to the source code of this file.

Functions/Subroutines
exec wish package require dom package require domtree package require domtext ret	Open ()

---

Function Documentation

exec wish package require dom package require domtree package require domtext ret Open

(

)

Definition at line 21 of file browser.tcl.

             {
    global tree text doc view

    set fname [tk_getOpenFile]
    if {![string length $fname]} {
        return {}
    }

    set ch [open $fname]
    set newdoc [dom::parse [read $ch]]
    close $ch

    $tree configure -rootnode {}
    $text configure -rootnode {}
    catch {dom::destroy $doc}

    set doc $newdoc
    if {[lsearch $view tree] >= 0} {
    $tree configure -rootnode $doc
    }
    if {[lsearch $view text] >= 0} {
    $text configure -rootnode $doc
    }

    return {}
}