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

Joe Groff 2009-06-17 23:00:30 -05:00
parent 7d1b67b098
commit 6e334026bc
1 changed files with 1 additions and 1 deletions

View File

@ -158,7 +158,7 @@ M: cocoa-ui-backend (ungrab-input) ( handle -- )
M: cocoa-ui-backend close-window ( gadget -- ) M: cocoa-ui-backend close-window ( gadget -- )
find-world [ find-world [
handle>> [ handle>> [
window>> f -> performClose: window>> -> close
] when* ] when*
] when* ; ] when* ;