Fix odd race condition in ui.backend.cocoa

db4
Slava Pestov 2009-04-10 06:19:46 -05:00
parent 713ab02337
commit 370e90f57b
2 changed files with 2 additions and 2 deletions

View File

@ -70,8 +70,8 @@ M:: cocoa-ui-backend (open-window) ( world -- )
world dim>> <FactorView> :> view
view world world>NSRect <ViewWindow> :> window
view -> release
window world window-loc>> auto-position
world view register-window
window world window-loc>> auto-position
world window save-position
window install-window-delegate
view window <window-handle> world (>>handle)

View File

@ -336,7 +336,7 @@ CLASS: {
! Initialization
{ "updateFactorGadgetSize:" "void" { "id" "SEL" "id" }
[ 2drop dup view-dim swap window (>>dim) yield ]
[ 2drop [ window ] [ view-dim ] bi >>dim drop yield ]
}
{ "doCommandBySelector:" "void" { "id" "SEL" "SEL" }