diff options
author | Aki <please@ignore.pl> | 2021-07-24 23:10:47 +0200 |
---|---|---|
committer | Aki <please@ignore.pl> | 2021-07-24 23:10:47 +0200 |
commit | 9dca05999d355deb225938ba4f57858ca27ca130 (patch) | |
tree | be930230eec6f600a53847b20410935d0644ee59 /viewhtml | |
parent | 4910f79dd2553af5ed83a2c46f5e42f99424ac59 (diff) | |
download | browse-9dca05999d355deb225938ba4f57858ca27ca130.zip browse-9dca05999d355deb225938ba4f57858ca27ca130.tar.gz browse-9dca05999d355deb225938ba4f57858ca27ca130.tar.bz2 |
Diffstat (limited to 'viewhtml')
-rwxr-xr-x | viewhtml | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -53,7 +53,7 @@ proc click {w x y} { global baseAddress set range [$w tag prevrange href [$w index @$x,$y]] set address [eval $w get $range] - set result [exec ./browse -f ./viewhtml [makeAddress $address]] + set result [exec browse -f viewhtml [makeAddress $address]] if {[llength $result] == 2} { displayPage $w [lindex $result 0] [lindex $result 1] } @@ -72,7 +72,7 @@ proc displayNode {w node tagList} { $w insert end "\n" set lattr [array get $attributes] set path [makeAddress [lindex $lattr [expr [lsearch -exact $lattr src] + 1]]] - set localPath [lindex [split [exec ./phttp $path] { }] 2] + set localPath [lindex [split [exec phttp $path] { }] 2] image create photo $path -file $localPath $w image create end -image $path $w insert end "\n" |