[Win32forth-cvs] win32forth/demos ListViewDemo.f,1.9,1.10

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

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

Modified Files:
	ListViewDemo.f 
Log Message:
Removed some of my bad mods...

Index: ListViewDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/ListViewDemo.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** ListViewDemo.f	6 May 2006 07:59:48 -0000	1.9
--- ListViewDemo.f	6 May 2006 12:31:16 -0000	1.10
***************
*** 26,29 ****
--- 26,34 ----
          ;M
  
+ :M On_Init:     ( -- )
+         \ CS_DBLCLKS only to prevent flicker in window on sizing.
+         CS_DBLCLKS GCL_STYLE hWnd  Call SetClassLong  drop
+         ;M
+ 
  ;object
  
***************
*** 38,41 ****
--- 43,51 ----
          ;M
  
+ :M On_Init:     ( -- )
+         \ CS_DBLCLKS only to prevent flicker in window on sizing.
+         CS_DBLCLKS GCL_STYLE hWnd  Call SetClassLong  drop
+         ;M
+ 
  ;object
  
***************
*** 52,63 ****
          out$  ;M
  
- :M WindowStyle:    ( -- style )
-         WindowStyle: Super
- 
-         \ CS_DBLCLKS to prevent flicker in window on sizing.
-         \ (But why should this be needed, to prevent flicker?!?
-         \  Samstag, Mai 06 2006 dbu)
-         CS_DBLCLKS or ;M
- 
  :M ExWindowStyle:    ( -- style )
          ExWindowStyle: Super WS_EX_CLIENTEDGE or ;M
--- 62,65 ----
***************
*** 68,71 ****
--- 70,76 ----
          s" Courier" SetFaceName: vFont
          Create: vFont
+ 
+         \ CS_DBLCLKS only to prevent flicker in window on sizing.
+         CS_DBLCLKS GCL_STYLE hWnd  Call SetClassLong  drop
          ;M
  
***************
*** 158,161 ****
--- 163,171 ----
          ;M
  
+ :M On_Init:     ( -- )
+         \ CS_DBLCLKS only to prevent flicker in window on sizing.
+         CS_DBLCLKS GCL_STYLE hWnd  Call SetClassLong  drop
+         ;M
+ 
  ;Object
  
***************
*** 181,184 ****
--- 191,199 ----
          ;M
  
+ :M On_Init:     ( -- )
+         \ CS_DBLCLKS only to prevent flicker in window on sizing.
+         CS_DBLCLKS GCL_STYLE hWnd  Call SetClassLong  drop
+         ;M
+ 
  ;Object
  
***************
*** 207,210 ****
--- 222,230 ----
          ;M
  
+ :M On_Init:     ( -- )
+         \ CS_DBLCLKS only to prevent flicker in window on sizing.
+         CS_DBLCLKS GCL_STYLE hWnd  Call SetClassLong  drop
+         ;M
+ 
  ;Object
  
***************
*** 294,302 ****
  :M WindowStyle: ( -- style )
                  WindowStyle: Super
! 
!                 \ CS_DBLCLKS to prevent flicker in window on sizing.
!                 \ (But why should this be needed, to prevent flicker?!?
!                 \  Samstag, Mai 06 2006 dbu)
!                 [ WS_CLIPCHILDREN CS_DBLCLKS or ] literal or ;M
  
  :M StartSize:   ( -- w h )
--- 314,318 ----
  :M WindowStyle: ( -- style )
                  WindowStyle: Super
!                 WS_CLIPCHILDREN or ;M
  
  :M StartSize:   ( -- w h )
***************
*** 312,315 ****
--- 328,334 ----
                  self Start: Splitter
                  self OnInit    \ perform user function
+ 
+                 \ CS_DBLCLKS only to prevent flicker in window on sizing.
+                 CS_DBLCLKS GCL_STYLE hWnd  Call SetClassLong  drop
                  ;M