From 25955a0c3a51b0afa0b2dbb45e2365b2f7eaa633 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 2 Jun 2013 20:39:36 -0500 Subject: [PATCH] dont open the initial window if a window has already been opened via the application-file-handler closes PR 13811 --- collects/drracket/private/main.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/main.rkt b/collects/drracket/private/main.rkt index 253f4ba33f..7b72b207c7 100644 --- a/collects/drracket/private/main.rkt +++ b/collects/drracket/private/main.rkt @@ -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)))