[Win32forth-cvs] win32forth/src/lib MDI.F,1.7,1.8

[Dirk B. <db...@us...>]

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

Modified Files:
	MDI.F 
Log Message:
Changed the super class for MDIChildWindow from window to child-window.

Index: MDI.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/MDI.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** MDI.F	6 Feb 2006 17:48:17 -0000	1.7
--- MDI.F	5 Jun 2006 06:40:35 -0000	1.8
***************
*** 78,84 ****
  
  :M MDIClient: ( -- handle of MDICLient window )
! \         MDIClient dup IF drop GetHandle: MDIClient  THEN
!         GetHandle: MDIClient
!         ;M
  
  :M Classinit: ( -- )
--- 78,82 ----
  
  :M MDIClient: ( -- handle of MDICLient window )
!         GetHandle: MDIClient ;M
  
  :M Classinit: ( -- )
***************
*** 93,97 ****
  
  :M On_Init: ( -- )
- \         New> MDIClientWindow to MDIClient
          WindowMenuNo: [ self ]
          NULL LoadMenu: self
--- 91,94 ----
***************
*** 265,269 ****
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
! :Class MDIChildWindow   <super Window
  \ *G This is the base class for all windows that should be displayed
  \ ** within the client area of a MDIFrameWindow.
--- 262,266 ----
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
! :Class MDIChildWindow   <super child-window
  \ *G This is the base class for all windows that should be displayed
  \ ** within the client area of a MDIFrameWindow.