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

fixed macos x version to use appleevents

Browse Source 
original commit: a5f2c5477efb323219e35c52bc775544c363f746
This commit is contained in:
Robby Findler 2002-06-04 02:39:36 +00:00
parent d30eb0f299
commit 6816de50a4
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/net/sendurl.ss
View File

@ -15,9 +15,11 @@
[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) (case (system-type)
[(macos macosx) [(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)
(system (format "osascript -e 'open location \"~a\"'" str))]
[(windows) [(windows)
(shell-execute #f str "" (current-directory) 'SW_SHOWNORMAL)] (shell-execute #f str "" (current-directory) 'SW_SHOWNORMAL)]
[(unix) [(unix)