diff options
| -rwxr-xr-x | viewhtml | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -54,9 +54,10 @@ proc click {w x y} { global baseAddress set range [$w tag prevrange href [$w index @$x,$y]] set address [eval $w get $range] - set presult [exec "./phttp" [makeAddress $address]] - displayPage $w [lindex $presult 1] [lindex $presult 2] - # TODO: In the end it must go through browse and opener anyway, to resolve the protocol and mime. + set result [exec ./browse -f ./viewhtml [makeAddress $address]] + if {[llength $result] == 2} { + displayPage $w [lindex $result 0] [lindex $result 1] + } } proc displayNode {w node tagList} { |