From: George H. <geo...@us...> - 2007-05-09 07:46:43
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5664/win32forth/src Modified Files: CHILDWND.F CONTROL.F CONTROLS.F WINMSG.F Log Message: gah:added dependencies plus bugfix for child windows Index: CONTROLS.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CONTROLS.F,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** CONTROLS.F 6 Feb 2006 17:48:17 -0000 1.9 --- CONTROLS.F 9 May 2007 07:46:40 -0000 1.10 *************** *** 18,21 **** --- 18,23 ---- \ *T Controls -- Classes for standard windows controls. + Require Control.f + cr .( Loading Low Level Controls...) Index: WINMSG.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/WINMSG.F,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** WINMSG.F 27 Jan 2006 10:10:25 -0000 1.4 --- WINMSG.F 9 May 2007 07:46:40 -0000 1.5 *************** *** 3,6 **** --- 3,8 ---- \ WINMSG.F Windows Message Window Class by Tom Zimmer + Require window.f + cr .( Loading Message Window...) Index: CONTROL.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CONTROL.F,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** CONTROL.F 8 Nov 2006 11:11:24 -0000 1.8 --- CONTROL.F 9 May 2007 07:46:40 -0000 1.9 *************** *** 5,8 **** --- 5,10 ---- \ *T Control -- Class for child controls with subclassing. + Require WinMsg.f + cr .( Loading Control Window...) *************** *** 123,127 **** ?dup if r@ WndProcError ! then r>drop r> sp0 ! else --- 125,129 ---- ?dup if r@ WndProcError ! then rdrop r> sp0 ! else Index: CHILDWND.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CHILDWND.F,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** CHILDWND.F 16 Apr 2007 08:29:05 -0000 1.10 --- CHILDWND.F 9 May 2007 07:46:40 -0000 1.11 *************** *** 33,37 **** :M SetParent: ( parent -- ) \ *G Set the object address of the parent window. ! Parent ;M :M GetParent: ( -- parent ) --- 33,37 ---- :M SetParent: ( parent -- ) \ *G Set the object address of the parent window. ! to Parent ;M :M GetParent: ( -- parent ) |