Update of /cvsroot/winguitest/Win32-GuiTest
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11122
Modified Files:
guitest.pm guitest.xs readme readme.html
Log Message:
SelListViewItem* function can now multi-select.
Index: readme.html
===================================================================
RCS file: /cvsroot/winguitest/Win32-GuiTest/readme.html,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** readme.html 17 Nov 2004 00:21:52 -0000 1.12
--- readme.html 17 Nov 2004 17:57:31 -0000 1.13
***************
*** 725,729 ****
Returns a list of the contents of the specified list view.</pre>
</dd>
! <dt><strong><a name="item_sellistviewitem">SelListViewItem($window, $idx)</a></strong><br />
</dt>
<dd>
--- 725,729 ----
Returns a list of the contents of the specified list view.</pre>
</dd>
! <dt><strong><a name="item_sellistviewitem">SelListViewItem($window, $idx, [$multi_select])</a></strong><br />
</dt>
<dd>
***************
*** 731,739 ****
Selects an item in the list view based off an index.</pre>
</dd>
! <dt><strong><a name="item_sellistviewitemtext">SelListViewItemText($window, $txt)</a></strong><br />
</dt>
<dd>
<pre>
! Selects an item in the list view based off text.</pre>
</dd>
<dt><strong><a name="item_islistviewitemsel">IsListViewItemSel($window, $txt)</a></strong><br />
--- 731,753 ----
Selects an item in the list view based off an index.</pre>
</dd>
! <dd>
! <pre>
! # Select first item, clears out any previous selections.
! SelListViewItem($win, 0);
! # Select an *additional* item.
! SelListViewItem($win, 1, 1);</pre>
! </dd>
! <dt><strong><a name="item_sellistviewitemtext">SelListViewItemText($window, $txt, [$multi_select])</a></strong><br />
</dt>
<dd>
<pre>
! Selects an item in the list view based off text (case insensitive).</pre>
! </dd>
! <dd>
! <pre>
! # Select first item, clears out any previous selections.
! SelListViewItemText($win, 'Temp');
! # Select an *additional* item.
! SelListViewItemText($win, 'cabs', 1);</pre>
</dd>
<dt><strong><a name="item_islistviewitemsel">IsListViewItemSel($window, $txt)</a></strong><br />
***************
*** 759,763 ****
<dd>
<pre>
! Selects a tab based off text label.</pre>
</dd>
<dt><strong><a name="item_istabitemsel">IsTabItemSel($window, $txt)</a></strong><br />
--- 773,777 ----
<dd>
<pre>
! Selects a tab based off text label (case insensitive).</pre>
</dd>
<dt><strong><a name="item_istabitemsel">IsTabItemSel($window, $txt)</a></strong><br />
***************
*** 771,779 ****
<dd>
<pre>
! Selects a tree view item based off a "path".</pre>
</dd>
<dd>
<pre>
- SelTreeViewItemPath($window, "Machine|Processors");
SelTreeViewItemPath($window, "Item");</pre>
</dd>
--- 785,797 ----
<dd>
<pre>
! Selects a tree view item based off a "path" (case insensitive).</pre>
! </dd>
! <dd>
! <pre>
! # Select Machine item and Processors sub-item.
! SelTreeViewItemPath($window, "Machine|Processors");</pre>
</dd>
<dd>
<pre>
SelTreeViewItemPath($window, "Item");</pre>
</dd>
Index: readme
===================================================================
RCS file: /cvsroot/winguitest/Win32-GuiTest/readme,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** readme 17 Nov 2004 00:21:52 -0000 1.12
--- readme 17 Nov 2004 17:57:31 -0000 1.13
***************
*** 474,482 ****
Returns a list of the contents of the specified list view.
! SelListViewItem($window, $idx)
Selects an item in the list view based off an index.
! SelListViewItemText($window, $txt)
! Selects an item in the list view based off text.
IsListViewItemSel($window, $txt)
--- 474,492 ----
Returns a list of the contents of the specified list view.
! SelListViewItem($window, $idx, [$multi_select])
Selects an item in the list view based off an index.
! # Select first item, clears out any previous selections.
! SelListViewItem($win, 0);
! # Select an *additional* item.
! SelListViewItem($win, 1, 1);
!
! SelListViewItemText($window, $txt, [$multi_select])
! Selects an item in the list view based off text (case insensitive).
!
! # Select first item, clears out any previous selections.
! SelListViewItemText($win, 'Temp');
! # Select an *additional* item.
! SelListViewItemText($win, 'cabs', 1);
IsListViewItemSel($window, $txt)
***************
*** 490,494 ****
SelTabItemText($window, $txt)
! Selects a tab based off text label.
IsTabItemSel($window, $txt)
--- 500,504 ----
SelTabItemText($window, $txt)
! Selects a tab based off text label (case insensitive).
IsTabItemSel($window, $txt)
***************
*** 496,502 ****
SelTreeViewItemPath($window, $path)
! Selects a tree view item based off a "path".
SelTreeViewItemPath($window, "Machine|Processors");
SelTreeViewItemPath($window, "Item");
--- 506,514 ----
SelTreeViewItemPath($window, $path)
! Selects a tree view item based off a "path" (case insensitive).
+ # Select Machine item and Processors sub-item.
SelTreeViewItemPath($window, "Machine|Processors");
+
SelTreeViewItemPath($window, "Item");
Index: guitest.xs
===================================================================
RCS file: /cvsroot/winguitest/Win32-GuiTest/guitest.xs,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** guitest.xs 17 Nov 2004 00:21:52 -0000 1.13
--- guitest.xs 17 Nov 2004 17:57:31 -0000 1.14
***************
*** 150,155 ****
int iCount = ListView_GetItemCount(g_hWnd);
int iSel = pCW->wParam;
! // Clear out any previous selections
! if (ListView_GetSelectedCount(g_hWnd) > 0) {
for (int i = 0; i < iCount; i++) {
ListView_SetItemState(g_hWnd, i, 0, LVIS_SELECTED);
--- 150,156 ----
int iCount = ListView_GetItemCount(g_hWnd);
int iSel = pCW->wParam;
! BOOL bMulti = pCW->lParam;
! // Clear out any previous selections if needed
! if (!bMulti && ListView_GetSelectedCount(g_hWnd) > 0) {
for (int i = 0; i < iCount; i++) {
ListView_SetItemState(g_hWnd, i, 0, LVIS_SELECTED);
***************
*** 163,168 ****
char szItem[MAX_DATA_BUF+1] = "";
int iCount = ListView_GetItemCount(g_hWnd);
! // Clear out any previous selections
! if (ListView_GetSelectedCount(g_hWnd) > 0) {
for (int i = 0; i < iCount; i++) {
ListView_SetItemState(g_hWnd, i, 0, LVIS_SELECTED);
--- 164,170 ----
char szItem[MAX_DATA_BUF+1] = "";
int iCount = ListView_GetItemCount(g_hWnd);
! BOOL bMulti = pCW->lParam;
! // Clear out any previous selections if needed
! if (!bMulti && ListView_GetSelectedCount(g_hWnd) > 0) {
for (int i = 0; i < iCount; i++) {
ListView_SetItemState(g_hWnd, i, 0, LVIS_SELECTED);
***************
*** 297,301 ****
}
! BOOL SelLVItem(HWND hWnd, int iItem)
{
g_hWnd = hWnd;
--- 299,303 ----
}
! BOOL SelLVItem(HWND hWnd, int iItem, BOOL bMulti)
{
g_hWnd = hWnd;
***************
*** 309,318 ****
WM_LV_SELBYINDEX = RegisterWindowMessage("WM_LV_SELBYINDEX_RM");
! SendMessage(hWnd, WM_LV_SELBYINDEX, iItem, 0);
return g_bRetVal;
}
! BOOL SelLVItemText(HWND hWnd, char *lpItem)
{
g_hWnd = hWnd;
--- 311,320 ----
WM_LV_SELBYINDEX = RegisterWindowMessage("WM_LV_SELBYINDEX_RM");
! SendMessage(hWnd, WM_LV_SELBYINDEX, iItem, bMulti);
return g_bRetVal;
}
! BOOL SelLVItemText(HWND hWnd, char *lpItem, BOOL bMulti)
{
g_hWnd = hWnd;
***************
*** 327,331 ****
lstrcpy(g_szBuffer, lpItem);
! SendMessage(hWnd, WM_LV_SELBYTEXT, 0, 0);
return g_bRetVal;
--- 329,333 ----
lstrcpy(g_szBuffer, lpItem);
! SendMessage(hWnd, WM_LV_SELBYTEXT, 0, bMulti);
return g_bRetVal;
***************
*** 828,849 ****
for (int i = 0; i < iCount; i++) {
GetLVItemText(hWnd, i, szItem);
! XPUSHs(sv_2mortal(newSVpv(szItem, 0)));
}
BOOL
! SelListViewItem(hWnd, iItem)
HWND hWnd
int iItem
CODE:
! RETVAL = SelLVItem(hWnd, iItem);
OUTPUT:
RETVAL
BOOL
! SelListViewItemText(hWnd, lpItem)
HWND hWnd
char *lpItem
CODE:
! RETVAL = SelLVItemText(hWnd, lpItem);
OUTPUT:
RETVAL
--- 830,853 ----
for (int i = 0; i < iCount; i++) {
GetLVItemText(hWnd, i, szItem);
! XPUSHs(sv_2mortal(newSVpv(szItem, 0)));
}
BOOL
! SelListViewItem(hWnd, iItem, bMulti=FALSE)
HWND hWnd
int iItem
+ BOOL bMulti
CODE:
! RETVAL = SelLVItem(hWnd, iItem, bMulti);
OUTPUT:
RETVAL
BOOL
! SelListViewItemText(hWnd, lpItem, bMulti=FALSE)
HWND hWnd
char *lpItem
+ BOOL bMulti
CODE:
! RETVAL = SelLVItemText(hWnd, lpItem, bMulti);
OUTPUT:
RETVAL
Index: guitest.pm
===================================================================
RCS file: /cvsroot/winguitest/Win32-GuiTest/guitest.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** guitest.pm 17 Nov 2004 00:21:52 -0000 1.22
--- guitest.pm 17 Nov 2004 17:57:31 -0000 1.23
***************
*** 960,972 ****
=cut
! =item SelListViewItem($window, $idx)
Selects an item in the list view based off an index.
=cut
! =item SelListViewItemText($window, $txt)
! Selects an item in the list view based off text.
=cut
--- 960,982 ----
=cut
! =item SelListViewItem($window, $idx, [$multi_select])
Selects an item in the list view based off an index.
+ # Select first item, clears out any previous selections.
+ SelListViewItem($win, 0);
+ # Select an *additional* item.
+ SelListViewItem($win, 1, 1);
+
=cut
! =item SelListViewItemText($window, $txt, [$multi_select])
! Selects an item in the list view based off text (case insensitive).
!
! # Select first item, clears out any previous selections.
! SelListViewItemText($win, 'Temp');
! # Select an *additional* item.
! SelListViewItemText($win, 'cabs', 1);
=cut
***************
*** 992,996 ****
=item SelTabItemText($window, $txt)
! Selects a tab based off text label.
=cut
--- 1002,1006 ----
=item SelTabItemText($window, $txt)
! Selects a tab based off text label (case insensitive).
=cut
***************
*** 1004,1010 ****
=item SelTreeViewItemPath($window, $path)
! Selects a tree view item based off a "path".
SelTreeViewItemPath($window, "Machine|Processors");
SelTreeViewItemPath($window, "Item");
--- 1014,1022 ----
=item SelTreeViewItemPath($window, $path)
! Selects a tree view item based off a "path" (case insensitive).
+ # Select Machine item and Processors sub-item.
SelTreeViewItemPath($window, "Machine|Processors");
+
SelTreeViewItemPath($window, "Item");
|