[Win32forth-cvs] win32forth/demos ListViewDemo.f,1.2,1.3

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/demos
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6718/demos

Modified Files:
	ListViewDemo.f 
Log Message:
Jos:  Erase the topwindow before repainting it.

Index: ListViewDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/ListViewDemo.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ListViewDemo.f	2 May 2006 12:14:09 -0000	1.2
--- ListViewDemo.f	2 May 2006 12:29:03 -0000	1.3
***************
*** 39,45 ****
  
  :M On_Paint:    ( -- )
                  Out$ c@ 0<>
                       if  SaveDC: dc                      \ save device context
-                          GetSize: Self white Fillarea: dc
                           vFont    SelectObject: dc
                           ltblue   SetTextColor: dc
--- 39,45 ----
  
  :M On_Paint:    ( -- )
+                 GetSize: Self white Fillarea: dc
                  Out$ c@ 0<>
                       if  SaveDC: dc                      \ save device context
                           vFont    SelectObject: dc
                           ltblue   SetTextColor: dc