[Win32forth-cvs] win32forth/src CONTROLS.F, 1.11, 1.12 Window.f, 1.24, 1.25

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

Update of /cvsroot/win32forth/win32forth/src
In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv422

Modified Files:
	CONTROLS.F Window.f 
Log Message:
Minor optimisation

Index: Window.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** Window.f	9 Feb 2010 19:22:10 -0000	1.24
--- Window.f	14 Feb 2010 17:46:23 -0000	1.25
***************
*** 135,139 ****
                  to Height to Width ;M
  
! :M On_Size:     ( wParam -- )
  \ *G User windows should override the On_Size: method. When this method is
  \ ** called, the variables Width and Height will have already been set. \n
--- 135,139 ----
                  to Height to Width ;M
  
! :M On_Size:     ( hndl msg wParam -- )
  \ *G User windows should override the On_Size: method. When this method is
  \ ** called, the variables Width and Height will have already been set. \n

Index: CONTROLS.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/CONTROLS.F,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** CONTROLS.F	15 May 2008 04:28:26 -0000	1.11
--- CONTROLS.F	14 Feb 2010 17:46:21 -0000	1.12
***************
*** 35,57 ****
  int pWmKillFocus \ function returns '0' if it handled message, non-zero otherwise
  
! \ For backwards compatibility
! \ synonym ClientRect        wRect         \ made colon defs - [cdo-2008May13]
! \ synonym ClientRect.addrof wRect.addrof
! \ synonym ClientRect.left   wRect.left
! \ synonym ClientRect.right  wRect.right
! \ synonym ClientRect.top    wRect.top
  \ Synonym ClientRect.bottom wRect.bottom
! : ClientRect        \ synonym of wRect - for backwards compatibility
!                     wRect ;
! : ClientRect.addrof \ synonym of wRect.addrof - for backwards compatibility
!                     wRect.addrof ;
! : ClientRect.left   \ synonym of wRect.left - for backwards compatibility
!                     wRect.left ;
! : ClientRect.right  \ synonym of wRect.right - for backwards compatibility
!                     wRect.right ;
! : ClientRect.top    \ synonym of wRect.top - for backwards compatibility
!                     wRect.top ;
! : ClientRect.bottom \ synonym of wRect.bottom - for backwards compatibility
!                     wRect.bottom ;
  
  :M ClassInit:   ( -- )
--- 35,57 ----
  int pWmKillFocus \ function returns '0' if it handled message, non-zero otherwise
  
! \ For backwards compatibility. NOTE must be defined with synonym for typing in the object compiler.
! synonym ClientRect        wRect         \ made colon defs - [cdo-2008May13]. Undone Tuesday, February 09 2010 gah.
! synonym ClientRect.addrof wRect.addrof
! synonym ClientRect.left   wRect.left
! synonym ClientRect.right  wRect.right
! synonym ClientRect.top    wRect.top
  \ Synonym ClientRect.bottom wRect.bottom
! \ : ClientRect        \ synonym of wRect - for backwards compatibility
! \                     wRect ;
! \ : ClientRect.addrof \ synonym of wRect.addrof - for backwards compatibility
! \                     wRect.addrof ;
! \ : ClientRect.left   \ synonym of wRect.left - for backwards compatibility
! \                     wRect.left ;
! \ : ClientRect.right  \ synonym of wRect.right - for backwards compatibility
! \                     wRect.right ;
! \ : ClientRect.top    \ synonym of wRect.top - for backwards compatibility
! \                     wRect.top ;
! \ : ClientRect.bottom \ synonym of wRect.bottom - for backwards compatibility
! \                     wRect.bottom ;
  
  :M ClassInit:   ( -- )