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

PR8792

Browse Source 
svn: r6905

original commit: 816d216862
This commit is contained in:
Jay McCarthy 2007-07-13 12:07:46 +00:00
parent a79b32c87b
commit 6f145ee624
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/net/sendurl.ss
View File

@ -57,8 +57,7 @@
[(procedure? external) (external url-str)] [(procedure? external) (external url-str)]
[(eq? stype 'macosx) [(eq? stype 'macosx)
(browser-process (browser-process
(format "osascript -e 'open location \"~a\"'" (format "open \"~a\"'" url-str))]
url-str))]
[(eq? stype 'windows) [(eq? stype 'windows)
(shell-execute #f url-str "" (current-directory) 'SW_SHOWNORMAL)] (shell-execute #f url-str "" (current-directory) 'SW_SHOWNORMAL)]
[(not (eq? stype 'unix)) [(not (eq? stype 'unix))
@ -77,7 +76,8 @@
=> (lambda (exe) => (lambda (exe)
(browser-process* exe (if separate-window? "-w" "-x") url-str))] (browser-process* exe (if separate-window? "-w" "-x") url-str))]
[(or (use-browser 'netscape) [(or (use-browser 'netscape)
(use-browser 'mozilla)) (use-browser 'mozilla)
(use-browser 'firefox))
=> (lambda (exe) => (lambda (exe)
;; netscape's -remote returns with an error code, if no netscape is ;; netscape's -remote returns with an error code, if no netscape is
;; around. start a new netscape in that case. ;; around. start a new netscape in that case.