Added support for same window opening through opener and browse in html view

1 files changed, 4 insertions, 3 deletions

diff --git a/viewhtml b/viewhtml
index 82dcac1..b56b6ac 100755
--- a/viewhtml
+++ b/viewhtml
@@ -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} {