fix cocoa close-window to work on windows without close buttons
parent
7d1b67b098
commit
6e334026bc
|
@ -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* ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue