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