[Win32forth-cvs] win32forth/src/lib Listview.f,1.5,1.6

[Jos v.d.V. <jo...@us...>]

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