Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7534/win32forth-stc/src
Modified Files:
Window.f
Log Message:
gah:Made TheWndProc a constant for correct working of child windows and apps that register their own window class(es)
Index: Window.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/Window.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Window.f 1 May 2007 07:41:55 -0000 1.2
--- Window.f 4 May 2007 08:03:30 -0000 1.3
***************
*** 222,226 ****
\ it is found we execute the method, otherwise we just call
\ DefWindowProc.
! 4 callback: TheWndProc ( hwnd msg wparam lparam -- res )
GWL_USERDATA 4 pick Call GetWindowLong ( object address )
?dup 0=
--- 222,226 ----
\ it is found we execute the method, otherwise we just call
\ DefWindowProc.
! 4 callback: (WndProc) ( hwnd msg wparam lparam -- res )
GWL_USERDATA 4 pick Call GetWindowLong ( object address )
?dup 0=
***************
*** 252,255 ****
--- 252,256 ----
\ 4 callback TheWndProc (wndproc)
+ ' (wndproc) constant TheWndProc \ For consistency with apps.
\ -----------------------------------------------------------------
***************
*** 273,277 ****
\ Fill in the defaults for the window class.
WndClassStyle: [ self ] to Style
! ['] TheWndProc to wndProc
0 to clsExtra
4 to wndExtra
--- 274,278 ----
\ Fill in the defaults for the window class.
WndClassStyle: [ self ] to Style
! TheWndProc to wndProc
0 to clsExtra
4 to wndExtra
|
