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

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

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

Modified Files:
	ListViewDemo.f 
Log Message:
Jos: WS_CLIPCHILDREN reduces the flickering in the window

Index: ListViewDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/ListViewDemo.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ListViewDemo.f	2 May 2006 09:57:16 -0000	1.1
--- ListViewDemo.f	2 May 2006 12:14:09 -0000	1.2
***************
*** 142,155 ****
  0 value SeparatorY
  
! :M ClassInit:     ( -- )
!                 ClassInit: super
!                 \ Insert your code here
!                 ;M
  
- : 0position-windows ( -- ) \ auto adjust windows
-                 0 toolbarH SeparatorX 1- Height toolbarH - statusbarH - Move: LeftPane
-                 SeparatorX 2+ dup>r toolbarH Width r@ - SeparatorY 1- toolbarH - Move: RightTopPane
-                 r@ SeparatorY 2+ Width r> - Height 2 pick - statusbarH - Move: RightBottomPane
-                 self OnPosition ;
  
  : position-windows ( -- ) \ auto adjust windows
--- 142,149 ----
  0 value SeparatorY
  
! :M ClassInit:     ( -- )         ClassInit: super  ;M
! 
! :M WindowStyle:    ( -- style )  WindowStyle: Super  WS_CLIPCHILDREN or ;M
  
  
  : position-windows ( -- ) \ auto adjust windows