added galeon support (I hope it works) based on Neil W. Van Dyke's code.

original commit: 7fc3ca807a94a48daff0dd3c22947eba5cd47011
2002-07-09 19:17:15 +00:00 · 2002-07-09 19:17:15 +00:00 · b0ce6ac5b0
commit b0ce6ac5b0
parent 619a309d1b
1 changed files with 6 additions and 0 deletions
--- a/collects/net/sendurl.ss
+++ b/collects/net/sendurl.ss
@ -37,6 +37,12 @@
 						(if separate-window?
 						    (format "~a,new-window" str)
 						    str))))]
+               [(use-browser 'galeon preferred)
+                =>
+		(lambda (browser-path)
+		  (process*/close-ports browser-path
+					(if separate-window? "-w" "-x")
+					str))]
 	       [(or (use-browser 'mozilla preferred)
 		    (use-browser 'netscape preferred))
 		=>