From 145c42b91abefe9490b85d6ff0aaa23c172b7042 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 5 Jul 2009 00:53:24 +0000 Subject: [PATCH] fixed how maximization is saved in the preferences svn: r15384 --- collects/drscheme/private/unit.ss | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 78a88be540..d32a80d963 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -2613,8 +2613,9 @@ module browser threading seems wrong. (inherit is-maximized?) (define/override (on-size w h) - (preferences:set 'drscheme:unit-window-width w) - (preferences:set 'drscheme:unit-window-height h) + (unless (is-maximized?) + (preferences:set 'drscheme:unit-window-width w) + (preferences:set 'drscheme:unit-window-height h)) (preferences:set 'drscheme:unit-window-max? (is-maximized?)) (super on-size w h)) @@ -3800,6 +3801,9 @@ module browser threading seems wrong. (style '(toolbar-button)) (width (preferences:get 'drscheme:unit-window-width)) (height (preferences:get 'drscheme:unit-window-height))) + (inherit maximize) + (when (preferences:get 'drscheme:unit-window-max?) + (maximize #t)) (initialize-menus) @@ -4523,10 +4527,7 @@ module browser threading seems wrong. (when first-frame? (let ([pos (preferences:get 'drscheme:frame:initial-position)]) (when pos - (send frame move (car pos) (cdr pos)))) - (unless (eq? (system-type) 'macosx) - ;; mac os x has a bug where maximizing can make the window too big. - (send frame maximize (preferences:get 'drscheme:unit-window-max?)))) + (send frame move (car pos) (cdr pos))))) (send frame update-toolbar-visibility) (send frame show #t) (set! first-frame? #f)