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

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

Browse Source 
Merge to 5.2
(cherry picked from commit bf3f09a3c1)
This commit is contained in:
Matthew Flatt 2011-10-08 16:47:19 -06:00 committed by Eli Barzilay
parent e1dfd37f75
commit bdddffaa9b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/private/wx/cocoa/frame.rkt
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)])