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
|
