steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update window while resizing on Windows

slava 2006-11-05 01:54:02 +00:00
parent ffe524feef
commit 58e30dda3a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/ui/windows/ui.factor
View File

@ -13,7 +13,7 @@ SYMBOL: msg-obj
SYMBOL: class-name
SYMBOL: track-mouse-state
: random-class-name "Factor" 100000000 random-int unparse append ;
: random-class-name "Factor" (random-int) number>string append ;
: style ( -- n ) WS_OVERLAPPEDWINDOW ; inline
: ex-style ( -- n ) WS_EX_APPWINDOW WS_EX_WINDOWEDGE bitor ; inline
@ -40,7 +40,7 @@ SYMBOL: track-mouse-state
: handle-wm-size ( hWnd uMsg wParam lParam -- )
[ lo-word ] keep hi-word make-RECT get-RECT-dimensions 2array
2nip
dup { 0 0 } = [ 2drop ] [ swap window set-gadget-dim ] if ;
dup { 0 0 } = [ 2drop ] [ swap window set-gadget-dim ui-step ] if ;
: wm-keydown-codes ( -- key )
H{