suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
original commit: 7fc3ca807a94a48daff0dd3c22947eba5cd47011
This commit is contained in:
Paul Graunke 2002-07-09 19:17:15 +00:00
parent 619a309d1b
commit b0ce6ac5b0
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/net/sendurl.ss
View File

@ -37,6 +37,12 @@
(if separate-window? (if separate-window?
(format "~a,new-window" str) (format "~a,new-window" str)
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) [(or (use-browser 'mozilla preferred)
(use-browser 'netscape preferred)) (use-browser 'netscape preferred))
=> =>