From b0ce6ac5b0e50622491e1502db24d4dfee407bce Mon Sep 17 00:00:00 2001
From: Paul Graunke <ptg@ccs.neu.edu>
Date: Tue, 9 Jul 2002 19:17:15 +0000
Subject: [PATCH] added galeon support (I hope it works) based on Neil W. Van
 Dyke's code.

original commit: 7fc3ca807a94a48daff0dd3c22947eba5cd47011
---
 collects/net/sendurl.ss | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss
index 700954d654..1420042c5b 100644
--- 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))
 		=>