[Win32forth-cvs] win32forth/src/lib Listview.f,1.8,1.9

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27118/src/lib

Modified Files:
	Listview.f 
Log Message:
Fixed a bug in the definition of the LV_FINDINFO class and added some helper words for WM_NOTIFY handling.

Index: Listview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/Listview.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Listview.f	23 May 2006 19:42:38 -0000	1.8
--- Listview.f	5 Jun 2006 06:39:23 -0000	1.9
***************
*** 169,175 ****
  ( LV_FINDINFO )
  
! :Class _LV_FINDINFO <Super Object
  
! Record: LV_FINDINFO
      int flags
      int psz
--- 169,175 ----
  ( LV_FINDINFO )
  
! :Class LV_FINDINFO <Super Object
  
! Record: _LV_FINDINFO
      int flags
      int psz
***************
*** 442,445 ****
--- 442,467 ----
  ;Class
  
+ ( -------------------------------------------------------------------)
+ ( Helper words for WM_NOTIFY handling
+ ( -------------------------------------------------------------------)
+ 
+ : LVN_GetNotifyItem     ( addr -- Item )
+         3 cells + @ ;
+ 
+ : LVN_GetNotifySubItem  ( addr -- SubItem )
+         4 cells + @ ;
+ 
+ : LVN_GetNotifyNewState ( addr -- NewState )
+         6 cells + @ ;
+ 
+ : LVN_GetNotifyOldState ( addr -- OldState )
+         7 cells + @ ;
+ 
+ : LVN_GetNotifyChanged  ( addr -- Changed )
+         8 cells + @ ;
+ 
+ : LVN_GetNotifyParam    ( addr -- lParam )
+         10 cells + @ ;
+ 
  module