[Win32forth-cvs] win32forth/src/lib bitmap.f,1.3,1.4

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13273/win32forth/src/lib

Modified Files:
	bitmap.f 
Log Message:
gah: altered method to fix bug in forthform

Index: bitmap.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/bitmap.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** bitmap.f	21 Aug 2005 06:22:01 -0000	1.3
--- bitmap.f	24 Sep 2005 10:37:06 -0000	1.4
***************
*** 414,418 ****
  :M WM_LBUTTONUP     ( h w m l -- )
                      WM_LBUTTONUP WM: Super
!                     Paint: self
                      0 ;M
  
--- 414,420 ----
  :M WM_LBUTTONUP     ( h w m l -- )
                      WM_LBUTTONUP WM: Super
!                     hwnd  Call IsWindow
!                     if    Paint: self
!                     then
                      0 ;M