[Win32forth-cvs] win32forth/src CHILDWND.F,1.4,1.5 Window.f,1.11,1.12

[Rod O. <rod...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8152/src

Modified Files:
	CHILDWND.F Window.f 
Log Message:
Rod: Put WndClassStyle: [ self ] in WndClass

Index: Window.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Window.f	9 May 2006 16:18:48 -0000	1.11
--- Window.f	13 May 2006 08:31:24 -0000	1.12
***************
*** 264,268 ****
  
  : default-window-class ( -- )   \ fill in the defaults for the window class
!                 [ CS_DBLCLKS CS_HREDRAW CS_VREDRAW or or ] literal to Style
                  TheWndProc                                         to wndProc
                  0                                                  to clsExtra
--- 264,268 ----
  
  : default-window-class ( -- )   \ fill in the defaults for the window class
!                 WndClassStyle: [ self ]                            to Style
                  TheWndProc                                         to wndProc
                  0                                                  to clsExtra
***************
*** 344,348 ****
                  if   register-frame-window drop
                       create-frame-window dup to hWnd
!                      if   SetWndClassStyle
                            SW_SHOWNORMAL Show: self
                            Update: self
--- 344,348 ----
                  if   register-frame-window drop
                       create-frame-window dup to hWnd
!                      if
                            SW_SHOWNORMAL Show: self
                            Update: self

Index: CHILDWND.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/CHILDWND.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** CHILDWND.F	9 May 2006 16:18:48 -0000	1.4
--- CHILDWND.F	13 May 2006 08:31:24 -0000	1.5
***************
*** 52,56 ****
  
  : register-child-window  ( -- f )
!         [ CS_DBLCLKS CS_HREDRAW CS_VREDRAW or or ] literal to Style
          TheWndProc                                         to WndProc
          0                                                  to ClsExtra
--- 52,56 ----
  
  : register-child-window  ( -- f )
!         WndClassStyle: [ self ]                            to Style
          TheWndProc                                         to WndProc
          0                                                  to ClsExtra
***************
*** 95,99 ****
                  register-child-window drop
                  create-child-window dup to hWnd
!                 if   SetWndClassStyle
                       SW_SHOWNORMAL Show: self
                  then ;M
--- 95,99 ----
                  register-child-window drop
                  create-child-window dup to hWnd
!                 if
                       SW_SHOWNORMAL Show: self
                  then ;M