[Win32forth-cvs] win32forth/src GENERIC.F, 1.18, 1.19 Window.f, 1.18, 1.19

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24599/src

Modified Files:
	GENERIC.F Window.f 
Log Message:
- Fixed some smal bugs
- Clean up of some demos

Index: Window.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** Window.f	1 May 2007 07:32:55 -0000	1.18
--- Window.f	26 Apr 2008 11:14:36 -0000	1.19
***************
*** 539,545 ****
                  \ If not don't call On_Paint:
                  0 0 hWnd call GetUpdateRect
!                 if   &ps BeginPaint: self SetHandle: dc
                       On_Paint: [ self ]
!                      &ps EndPaint: self 0 SetHandle: dc
                  then 0 ;M
  
--- 539,545 ----
                  \ If not don't call On_Paint:
                  0 0 hWnd call GetUpdateRect
!                 if   &ps BeginPaint: self PutHandle: dc
                       On_Paint: [ self ]
!                      &ps EndPaint: self 0 PutHandle: dc
                  then 0 ;M
  

Index: GENERIC.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** GENERIC.F	27 Jun 2007 07:31:16 -0000	1.18
--- GENERIC.F	26 Apr 2008 11:14:36 -0000	1.19
***************
*** 174,177 ****
--- 174,181 ----
                  then ;M
  
+ :M IsVisible?:  ( -- f )
+ \ *G Check if the window is visible or not.
+                 hWnd call IsWindowVisible ;M
+ 
  :M SetRedraw:   ( f -- )
  \ *G Set the redraw state of the window.