Fix some Cocoa UI issues
parent
e0f11d29ea
commit
fd5af90cb3
|
@ -297,7 +297,7 @@ CLASS: {
|
|||
{ "updateFactorGadgetSize:" "void" { "id" "SEL" "id" }
|
||||
[
|
||||
[
|
||||
2drop dup view-dim swap window set-gadget-dim
|
||||
2drop dup view-dim swap window set-gadget-dim yield
|
||||
] ui-try
|
||||
]
|
||||
}
|
||||
|
|
|
@ -119,7 +119,8 @@ SYMBOL: drag-timer
|
|||
|
||||
: stop-drag-timer ( -- )
|
||||
hand-buttons get-global empty? [
|
||||
drag-timer get-global box> cancel-alarm
|
||||
drag-timer get-global ?box
|
||||
[ cancel-alarm ] [ drop ] if
|
||||
] when ;
|
||||
|
||||
: fire-motion ( -- )
|
||||
|
|
|
@ -340,7 +340,7 @@ H{ } clone wm-handlers set-global
|
|||
[ 4dup handle-wm-keydown DefWindowProc ] { WM_KEYDOWN WM_SYSKEYDOWN } add-wm-handler
|
||||
[ 4dup handle-wm-char DefWindowProc ] { WM_CHAR WM_SYSCHAR } add-wm-handler
|
||||
[ 4dup handle-wm-keyup DefWindowProc ] { WM_KEYUP WM_SYSKEYUP } add-wm-handler
|
||||
|
||||
|
||||
[ handle-wm-syscommand ] WM_SYSCOMMAND add-wm-handler
|
||||
[ handle-wm-set-focus 0 ] WM_SETFOCUS add-wm-handler
|
||||
[ handle-wm-kill-focus 0 ] WM_KILLFOCUS add-wm-handler
|
||||
|
|
Loading…
Reference in New Issue