[Win32forth-cvs] win32forth-stc/src Window.f,1.2,1.3

[George H. <geo...@us...>]

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