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.
|
