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

made opera open a new subwindow

Browse Source 
original commit: a885a7d8887bdf05f755e27a7cefa7578d251390
This commit is contained in:
Robby Findler 2002-01-15 14:16:17 +00:00
parent 05b3a0cab1
commit 3b96f6069f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/net/sendurl.ss
View File

@ -34,9 +34,10 @@
(lambda (browser-path) (lambda (browser-path)
;; opera may not return -- always open asyncronously ;; opera may not return -- always open asyncronously
;; opera starts a new browser automatically, if it can't find one ;; opera starts a new browser automatically, if it can't find one
(let-values ([(out in id err status) (apply (let-values ([(out in id err status)
(apply
values values
(process* browser-path "-remote" (format "openURL(~a)" str)))]) (process* browser-path "-remote" (format "openURL(~a,new-window)" str)))])
(close-output-port in) (close-output-port in)
(close-input-port out) (close-input-port out)
(close-input-port err)))] (close-input-port err)))]