Update of /cvsroot/win32forth/win32forth/demos
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20895
Modified Files:
ListViewDemo.f
Log Message:
Jos: Removed a backup definition.
Index: ListViewDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/ListViewDemo.f,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** ListViewDemo.f 2 Sep 2008 06:46:27 -0000 1.17
--- ListViewDemo.f 10 Sep 2008 11:23:46 -0000 1.18
***************
*** 111,125 ****
;M
- : 0GetParmsItem ( nItem - Z$text Lparm flNew )
- LVIF_TEXT LVIF_PARAM or SetMask: LvItem
- out$: RightTopPane SetpszText: LvItem
- maxstring SetcchTextMax: LvItem
- SetiItem: LvItem
- Addr: LvItem GetItem: ListViewLeft drop out$: RightTopPane
- GetlParam: LvItem dup SelectedItemLeft <>
- if dup to SelectedItemLeft true
- else false
- then ;
-
: GetParmsItem ( nItem - Z$text Lparm flNew )
>r LVIF_TEXT LVIF_PARAM or SetMask: LvItem
--- 111,114 ----
|
