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

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

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

Modified Files:
	Listview.f 
Log Message:
Jos: Changed the return parameters of GetItemText: into a counted string

Index: Listview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/Listview.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Listview.f	6 May 2006 16:14:06 -0000	1.6
--- Listview.f	7 May 2006 10:54:26 -0000	1.7
***************
*** 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
--- 314,319 ----
  :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 -- adr count )   >r dup r>
!                       LVM_GETITEMTEXT hWnd Call SendMessage swap 5 cells+ @ swap ;M
  :M GetSelectedCount:  ( -- n ) 0 0 LVM_GETSELECTEDCOUNT hWnd Call SendMessage ;M
  :M InsertItem:        ( pitem -- index | -1 ) 0 LVM_INSERTITEM hWnd Call SendMessage ;M