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

fixed how maximization is saved in the preferences

Browse Source 
svn: r15384
This commit is contained in:
Robby Findler 2009-07-05 00:53:24 +00:00
parent a70bf64fd9
commit 145c42b91a
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/drscheme/private/unit.ss
View File

@ -2613,8 +2613,9 @@ module browser threading seems wrong.
(inherit is-maximized?) (inherit is-maximized?)
(define/override (on-size w h) (define/override (on-size w h)
(unless (is-maximized?)
(preferences:set 'drscheme:unit-window-width w) (preferences:set 'drscheme:unit-window-width w)
(preferences:set 'drscheme:unit-window-height h) (preferences:set 'drscheme:unit-window-height h))
(preferences:set 'drscheme:unit-window-max? (is-maximized?)) (preferences:set 'drscheme:unit-window-max? (is-maximized?))
(super on-size w h)) (super on-size w h))
@ -3800,6 +3801,9 @@ module browser threading seems wrong.
(style '(toolbar-button)) (style '(toolbar-button))
(width (preferences:get 'drscheme:unit-window-width)) (width (preferences:get 'drscheme:unit-window-width))
(height (preferences:get 'drscheme:unit-window-height))) (height (preferences:get 'drscheme:unit-window-height)))
(inherit maximize)
(when (preferences:get 'drscheme:unit-window-max?)
(maximize #t))
(initialize-menus) (initialize-menus)
@ -4523,10 +4527,7 @@ module browser threading seems wrong.
(when first-frame? (when first-frame?
(let ([pos (preferences:get 'drscheme:frame:initial-position)]) (let ([pos (preferences:get 'drscheme:frame:initial-position)])
(when pos (when pos
(send frame move (car pos) (cdr 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 update-toolbar-visibility) (send frame update-toolbar-visibility)
(send frame show #t) (send frame show #t)
(set! first-frame? #f) (set! first-frame? #f)