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
|
