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
|
