Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25122/src/lib
Modified Files:
Listview.f
Log Message:
Jos: Changed GetItemText:. It is better to leave the count of the found string on the stack.
Index: Listview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/Listview.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Listview.f 3 May 2006 17:34:06 -0000 1.5
--- Listview.f 6 May 2006 16:14:06 -0000 1.6
***************
*** 314,318 ****
:M GetItemSpacing: ( fsmall -- f ) 0 swap LVM_GETITEMSPACING hWnd Call SendMessage ;M
:M GetItemState: ( mask i -- f ) LVM_GETITEMSTATE hWnd Call SendMessage ;M
! :M GetItemText: ( pitem iItem -- ) LVM_GETITEMTEXT hWnd Call SendMessage drop ;M
:M GetSelectedCount: ( -- n ) 0 0 LVM_GETSELECTEDCOUNT hWnd Call SendMessage ;M
:M InsertItem: ( pitem -- index | -1 ) 0 LVM_INSERTITEM hWnd Call SendMessage ;M
--- 314,318 ----
:M GetItemSpacing: ( fsmall -- f ) 0 swap LVM_GETITEMSPACING hWnd Call SendMessage ;M
:M GetItemState: ( mask i -- f ) LVM_GETITEMSTATE hWnd Call SendMessage ;M
! :M GetItemText: ( pitem iItem -- count ) LVM_GETITEMTEXT hWnd Call SendMessage ;M
:M GetSelectedCount: ( -- n ) 0 0 LVM_GETSELECTEDCOUNT hWnd Call SendMessage ;M
:M InsertItem: ( pitem -- index | -1 ) 0 LVM_INSERTITEM hWnd Call SendMessage ;M
|
