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
|
