[Win32forth-cvs] win32forth/src/lib MDI.F,1.4,1.5

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22456/win32forth/src/lib

Modified Files:
	MDI.F 
Log Message:
gah: removed int parent from MDIChildWindow class since it's now defined in class Window

Index: MDI.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/MDI.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** MDI.F	20 Jun 2005 07:40:47 -0000	1.4
--- MDI.F	26 Sep 2005 10:53:54 -0000	1.5
***************
*** 9,12 ****
--- 9,15 ----
  \         ( 0 @ returns 0 in v5.2 but in v6.09.07 causes an exception )
  
+ \         Monday, September 26 2005 removed parent from MDIChildWindow class since it's now
+ \         defined in Window class
+ 
  cr .( Loading Multiple Document Interface classes...)
  
***************
*** 91,95 ****
  
  \ :M WM_SIZE  ( h m w l -- f )   DefFrameProc ;M   \ remove if MDIClient window does not fill entire
!                                                    \ client area, use On_Size instead to Move: MDIClient 
  :M WM_MENUCHAR ( h m w l -- f )   DefFrameProc ;M
  :M WM_SETFOCUS ( h m w l -- f )   DefFrameProc ;M
--- 94,98 ----
  
  \ :M WM_SIZE  ( h m w l -- f )   DefFrameProc ;M   \ remove if MDIClient window does not fill entire
!                                                    \ client area, use On_Size instead to Move: MDIClient
  :M WM_MENUCHAR ( h m w l -- f )   DefFrameProc ;M
  :M WM_SETFOCUS ( h m w l -- f )   DefFrameProc ;M
***************
*** 138,145 ****
  
  int hChild
! :M GetFirstChild: ( -- hWndChild ) \ get handle of the first child window 
  	GW_CHILD MDIClient: self call GetWindow dup to hChild ;M
  
! :M GetNextChild: ( -- hWndChild ) \ get handle of the next child window 
  	GW_HWNDNEXT hChild call GetWindow dup to hChild ;M
  
--- 141,148 ----
  
  int hChild
! :M GetFirstChild: ( -- hWndChild ) \ get handle of the first child window
  	GW_CHILD MDIClient: self call GetWindow dup to hChild ;M
  
! :M GetNextChild: ( -- hWndChild ) \ get handle of the next child window
  	GW_HWNDNEXT hChild call GetWindow dup to hChild ;M
  
***************
*** 147,151 ****
  	GetFirstChild: self ?dup
  	if   begin >r lParam wParam msg r> call SendMessage drop
! 		   GetNextChild: self dup 0=	
  	     until drop
  	then ;M
--- 150,154 ----
  	GetFirstChild: self ?dup
  	if   begin >r lParam wParam msg r> call SendMessage drop
! 		   GetNextChild: self dup 0=
  	     until drop
  	then ;M
***************
*** 154,158 ****
  	GetFirstChild: self ?dup
  	if   begin >r lParam wParam msg r> call PostMessage drop
! 		   GetNextChild: self dup 0=	
  	     until drop
  	then ;M
--- 157,161 ----
  	GetFirstChild: self ?dup
  	if   begin >r lParam wParam msg r> call PostMessage drop
! 		   GetNextChild: self dup 0=
  	     until drop
  	then ;M
***************
*** 167,172 ****
  :Class MDIChildWindow  <super Window
  
- int Parent
- 
  :M Classinit: ( -- )
          ClassInit: super
--- 170,173 ----
***************
*** 336,344 ****
  
  : DoMDIMsg ( pMsg f  -- pMsg f )
!         dup MDIClient: Frame 0<> and  
          IF
              drop dup MDIClient: Frame Call TranslateMDISysAccel 0=
!         THEN               
          ;
  msg-chain chain-add DoMDIMsg
-