[Win32forth-cvs] win32forth/demos MultiHello.f, 1.6, 1.7 WINHELLO.F, 1.7, 1.8

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

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

Modified Files:
	MultiHello.f WINHELLO.F 
Log Message:
Minor optimisation

Index: WINHELLO.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/WINHELLO.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** WINHELLO.F	2 Sep 2008 06:46:27 -0000	1.7
--- WINHELLO.F	14 Feb 2010 17:42:07 -0000	1.8
***************
*** 40,45 ****
  
                  \ check if our drawing area is visible or not
!                 0 0 170 90 SetRect: wRect
!                 AddrOf: wRect GetHandle: dc call RectVisible
                  if   \ let's draw...
                       black   SetBkColor: dc
--- 40,45 ----
  
                  \ check if our drawing area is visible or not
!                 0 0 170 90 SetRect: winRect
!                 AddrOf: winRect GetHandle: dc call RectVisible
                  if   \ let's draw...
                       black   SetBkColor: dc
***************
*** 62,67 ****
                  \ of the window only the the part of the window in whitch we
                  \ are going to draw is marked as invalid.
!                 0 0 170 90 SetRect: wRect
!                 1 AddrOf: wRect hWnd Call InvalidateRect ?win-error
                  ;M
  
--- 62,67 ----
                  \ of the window only the the part of the window in whitch we
                  \ are going to draw is marked as invalid.
!                 0 0 170 90 SetRect: winRect
!                 1 AddrOf: winRect hWnd Call InvalidateRect ?win-error
                  ;M
  

Index: MultiHello.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/MultiHello.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** MultiHello.f	2 Sep 2008 06:46:27 -0000	1.6
--- MultiHello.f	14 Feb 2010 17:42:01 -0000	1.7
***************
*** 134,139 ****
  
                  \ get the Client area of the window and fill it black
!                 AddrOf: wRect GetClientRect: self
!                 black AddrOf: wRect FillRect: dc
  
                  \ set the backgroundcolor for text to black
--- 134,139 ----
  
                  \ get the Client area of the window and fill it black
!                 AddrOf: winRect GetClientRect: self
!                 black AddrOf: winRect FillRect: dc
  
                  \ set the backgroundcolor for text to black