fix cocoa close-window to work on windows without close buttons

2009-06-17 23:00:30 -05:00 · 2009-06-17 23:00:30 -05:00 · 6e334026bc
parent 7d1b67b098
commit 6e334026bc
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/backend/cocoa/cocoa.factor
+++ b/basis/ui/backend/cocoa/cocoa.factor
@ -158,7 +158,7 @@ M: cocoa-ui-backend (ungrab-input) ( handle -- )
 M: cocoa-ui-backend close-window ( gadget -- )
    find-world [
        handle>> [
-            window>> f -> performClose:
+            window>> -> close
        ] when*
    ] when* ;