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
|
