diff options
Diffstat (limited to 'viewhtml')
-rwxr-xr-x | viewhtml | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -70,8 +70,9 @@ proc displayNode {node tagList} { } elseif {$tag == "img"} { $w insert end "\n" set lattr [array get $attributes] - set path "$baseAddress/[lindex $lattr [expr [lsearch -exact $lattr src] + 1]]" - image create photo $path -file $path + set path "$baseAddress[lindex $lattr [expr [lsearch -exact $lattr src] + 1]]" + set localPath [lindex [split [exec ./phttp $path] { }] 2] + image create photo $path -file $localPath $w image create end -image $path $w insert end "\n" } |