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

.

Browse Source 
original commit: 320d57608949cf51ca008358f995a371ef5164c2
This commit is contained in:
Matthew Flatt 2002-04-21 16:23:41 +00:00
parent b6429f88a7
commit 33f070b826
1 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/net/sendurl.ss
View File

@ -19,18 +19,7 @@
;; 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)]
[(windows) [(windows)
;; Try to get a MrEd function... (shell-execute #f str "" (current-directory) 'SW_SHOWNORMAL)]
(let ([get-res (with-handlers ([not-break-exn? (lambda (x) #f)])
(dynamic-require '(lib "mred.ss" "mred") 'get-resource))])
(if get-res
(let ([b (box "")])
(unless (get-res "HKEY_CLASSES_ROOT" "htmlfile\\shell\\open\\command" b)
(error 'send-url "couldn't find URL opener in the registry"))
(apply
process*/close-ports
(append (parse-command.com (open-input-string (unbox b)))
(list str))))
(error 'send-url "don't know how to open URL in Windows without MrEd")))]
[(unix) [(unix)
(let ([preferred (get-preference 'external-browser (lambda () #f))]) (let ([preferred (get-preference 'external-browser (lambda () #f))])
(cond (cond