diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2005-03-23 22:28:07 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2005-03-23 22:28:07 +0000 |
| commit | 77a319a2956576e5fc9a0aa5d1bbc9740e7c0f62 (patch) | |
| tree | b379ecf5e06345b5491b33154581cbf05137de3b /wizards/source/tools | |
| parent | d233016aecb9b7ec491a0260c02c7bd195519d1c (diff) | |
INTEGRATION: CWS extras18 (1.12.256); FILE MERGED
2005/03/17 16:32:04 va 1.12.256.1: #i40799# A minor bugfix.
Diffstat (limited to 'wizards/source/tools')
| -rw-r--r-- | wizards/source/tools/Listbox.xba | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/wizards/source/tools/Listbox.xba b/wizards/source/tools/Listbox.xba index 2a023c17a..01e62e7d6 100644 --- a/wizards/source/tools/Listbox.xba +++ b/wizards/source/tools/Listbox.xba @@ -297,7 +297,7 @@ End Sub Function GetSelectedListboxItems(oListbox as Object) -Dim SelList() as String +Dim SelList(Ubound(oListBox.SelectedItems())) as String Dim i as Integer Dim CurIndex as Integer For i = 0 To Ubound(oListbox.SelectedItems()) @@ -349,4 +349,5 @@ Dim i as Integer End If Next i GetItemPos() = -1 -End Function</script:module>
\ No newline at end of file +End Function +</script:module>
\ No newline at end of file |