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

dont open the initial window if a window has already

Browse Source 
been opened via the application-file-handler

closes PR 13811
This commit is contained in:
Robby Findler 2013-06-02 20:39:36 -05:00
parent 081542da3c
commit 25955a0c3a
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drracket/private/main.rkt
View File

@ -37,9 +37,11 @@
(frame:current-icon todays-icon)
(define file-opened-via-application-file-handler? #f)
(application-file-handler
(let ([default (application-file-handler)])
(λ (name)
(set! file-opened-via-application-file-handler? #t)
(if (null? (get-top-level-windows))
(handler:edit-file name)
(default name)))))
@ -789,7 +791,8 @@
f
(λ () (drracket:unit:open-drscheme-window f))))
no-dups)])
(when (null? (filter (λ (x) x) frames))
(when (and (null? (filter (λ (x) x) frames))
(not file-opened-via-application-file-handler?))
(make-basic))
(when (and (preferences:get 'drracket:open-in-tabs)
(not (null? no-dups)))