cocoa: fix `show #f' on already unshown frame shows it briefly

Merge to 5.2
This commit is contained in:
Matthew Flatt 2011-10-08 16:47:19 -06:00
parent 1bc80310e3
commit bf3f09a3c1

View File

@ -324,8 +324,9 @@
(send p set-sheet #f)
(tell (tell NSApplication sharedApplication)
endSheet: cocoa))))
(tellv cocoa deminiaturize: #f)
(tellv cocoa orderOut: #f)
(when (is-shown?) ; otherwise, `deminiaturize' can show the window
(tellv cocoa deminiaturize: #f)
(tellv cocoa orderOut: #f))
(force-window-focus)))
(register-frame-shown this on?)
(let ([num (tell #:type _NSInteger cocoa windowNumber)])