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] (parameterize ([current-input-port null-input]
[current-error-port null-output] ; comment out this line to see error messages [current-error-port null-output] ; comment out this line to see error messages
[current-output-port null-output]) [current-output-port null-output])
(case (system-type) (cond
[(macos) [(eq? (system-type) 'macos)
;; actually, I think GURL means something slightly different... ;; actually, I think GURL means something slightly different...
(send-event "MACS" "GURL" "GURL" str)] (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))] (system (format "osascript -e 'open location \"~a\"'" str))]
[(windows) [(eq? (system-type) 'windows)
(shell-execute #f str "" (current-directory) 'SW_SHOWNORMAL)] (shell-execute #f str "" (current-directory) 'SW_SHOWNORMAL)]
[(unix) [(eq? (system-type) 'unix)
(let ([preferred (get-preference 'external-browser (lambda () #f))]) (let ([preferred (get-preference 'external-browser (lambda () #f))])
(cond (cond
[(and (or (not preferred) [(and (or (not preferred)