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

..

Browse Source 
original commit: 6bd6189f11980d73a822fa8497ceb6cfdb2f8154
This commit is contained in:
Robby Findler 2002-06-04 03:20:01 +00:00
parent 6816de50a4
commit b64702832b
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/net/sendurl.ss
View File

@ -14,15 +14,16 @@
(parameterize ([current-input-port null-input]
[current-error-port null-output] ; comment out this line to see error messages
[current-output-port null-output])
(case (system-type)
[(macos)
(cond
[(eq? (system-type) 'macos)
;; actually, I think GURL means something slightly different...
(send-event "MACS" "GURL" "GURL" str)]
[(macosx)
[(or (eq? (system-type) 'macosx)
(equal? "ppc-macosxonx" (system-library-subpath)))
(system (format "osascript -e 'open location \"~a\"'" str))]
[(windows)
[(eq? (system-type) 'windows)
(shell-execute #f str "" (current-directory) 'SW_SHOWNORMAL)]
[(unix)
[(eq? (system-type) 'unix)
(let ([preferred (get-preference 'external-browser (lambda () #f))])
(cond
[(and (or (not preferred)