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

update WNDCLASSEX

db4
Doug Coleman 2009-08-27 20:43:42 -05:00
parent 065db08680
commit 7df875c7fe
2 changed files with 23 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
basis/ui/backend/windows/windows.factor
View File

@ -589,19 +589,18 @@ M: windows-ui-backend do-events
] if ; ] if ;
:: register-window-class ( class-name-ptr -- ) :: register-window-class ( class-name-ptr -- )
"WNDCLASSEX" <c-object> f GetModuleHandle WNDCLASSEX <struct> f GetModuleHandle
class-name-ptr pick GetClassInfoEx 0 = [ class-name-ptr pick GetClassInfoEx 0 = [
"WNDCLASSEX" heap-size over set-WNDCLASSEX-cbSize WNDCLASSEX heap-size >>cbSize
{ CS_HREDRAW CS_VREDRAW CS_OWNDC } flags over set-WNDCLASSEX-style { CS_HREDRAW CS_VREDRAW CS_OWNDC } flags >>style
ui-wndproc over set-WNDCLASSEX-lpfnWndProc ui-wndproc >>lpfnWndProc
0 over set-WNDCLASSEX-cbClsExtra 0 >>cbClsExtra
0 over set-WNDCLASSEX-cbWndExtra 0 >>cbWndExtra
f GetModuleHandle over set-WNDCLASSEX-hInstance f GetModuleHandle >>hInstance
f GetModuleHandle "fraptor" utf16n string>alien LoadIcon f GetModuleHandle "fraptor" utf16n string>alien LoadIcon >>hIcon
over set-WNDCLASSEX-hIcon f IDC_ARROW LoadCursor >>hCursor
f IDC_ARROW LoadCursor over set-WNDCLASSEX-hCursor
class-name-ptr over set-WNDCLASSEX-lpszClassName class-name-ptr >>lpszClassName
RegisterClassEx win32-error=0/f RegisterClassEx win32-error=0/f
] [ drop ] if ; ] [ drop ] if ;

26
basis/windows/types/types.factor
View File

@ -228,19 +228,19 @@ C-STRUCT: WNDCLASS
{ "LPCTSTR" "lpszMenuName" } { "LPCTSTR" "lpszMenuName" }
{ "LPCTSTR" "lpszClassName" } ; { "LPCTSTR" "lpszClassName" } ;
C-STRUCT: WNDCLASSEX STRUCT: WNDCLASSEX
{ "UINT" "cbSize" } { cbSize UINT }
{ "UINT" "style" } { style UINT }
{ "WNDPROC" "lpfnWndProc" } { lpfnWndProc WNDPROC }
{ "int" "cbClsExtra" } { cbClsExtra int }
{ "int" "cbWndExtra" } { cbWndExtra int }
{ "HINSTANCE" "hInstance" } { hInstance HINSTANCE }
{ "HICON" "hIcon" } { hIcon HICON }
{ "HCURSOR" "hCursor" } { hCursor HCURSOR }
{ "HBRUSH" "hbrBackground" } { hbrBackground HBRUSH }
{ "LPCTSTR" "lpszMenuName" } { lpszMenuName LPCTSTR }
{ "LPCTSTR" "lpszClassName" } { lpszClassName LPCTSTR }
{ "HICON" "hIconSm" } ; { hIconSm HICON } ;
C-STRUCT: RECT C-STRUCT: RECT
{ "LONG" "left" } { "LONG" "left" }