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
|
