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 | 6efd763dfe70528c90f4304043321759e3014c37 (patch) | |
| tree | 52248a5b5bf42ab06d3883e58f2d94c9967c7926 /wizards/source/tools | |
| parent | 141562f9b196e25868f039d8704671e37ba52959 (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 2a023c17accc..01e62e7d6715 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 |