? patch
Index: apps/tkchat/tkchat.tcl
===================================================================
RCS file: /cvsroot/tcllib/tclapps/apps/tkchat/tkchat.tcl,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 tkchat.tcl
--- apps/tkchat/tkchat.tcl	2001/09/27 18:00:16	1.1.1.1
+++ apps/tkchat/tkchat.tcl	2001/09/27 19:29:39
@@ -593,25 +593,28 @@
     } else {
 	# assume a raw url
     }
-    global tcl_platform env
+    global tcl_platform Options
     # this code from  http://mini.net/tcl/557.html
     switch $tcl_platform(platform) {
 	"unix" {
 	    expr {
-		[info exists env(BROWSER)]
-		|| [findExecutable netscape	env(BROWSER)]
-		|| [findExecutable iexplorer	env(BROWSER)]
-		|| [findExecutable $env(NETSCAPE)	env(BROWSER)]
-		|| [findExecutable lynx		env(BROWSER)]
+		[info exists Options(BROWSER)]
+		|| [findExecutable netscape	Options(BROWSER)]
+		|| [findExecutable iexplorer	Options(BROWSER)]
+		|| [findExecutable $Options(NETSCAPE)	Options(BROWSER)]
+		|| [findExecutable lynx		Options(BROWSER)]
 	    }
 	    # lynx can also output formatted text to a variable
 	    # with the -dump option, as a last resort:
 	    # set formatted_text [ exec lynx -dump $url ] - PSE
-	    if {[catch {exec $env(BROWSER) -remote $url}]} {
-		# perhaps browser doesn't understand -remote flag
-		if {[catch {exec $env(BROWSER) $url &} emsg]} {
-		    tk_messageBox -message \
-			    "Error displaying $url in browser\n$emsg"
+	    if {[catch {exec $Options(BROWSER) -remote $url}]} {
+		# -remote argument might need formatting as a command
+	        if {[catch {exec $Options(BROWSER) -remote openURL($url)}]} {
+		    # perhaps browser doesn't understand -remote flag
+		    if {[catch {exec $Options(BROWSER) $url &} emsg]} {
+		        tk_messageBox -message \
+			        "Error displaying $url in browser\n$emsg"
+		    }
 		}
 	    }
 	}
@@ -992,7 +995,9 @@
 }
 
 proc init {} {
-    global Options
+    global Options env
+    catch {set Options(BROWSER) $env(BROWSER)}
+    catch {set Options(NETSCAPE) $env(NETSCAPE)}
     set ::URLID 0
     # set intial defaults
     set ::tkchat::pause 0
