diff options
author | Tom Verbeek <tv@openoffice.org> | 2001-05-16 11:48:54 +0000 |
---|---|---|
committer | Tom Verbeek <tv@openoffice.org> | 2001-05-16 11:48:54 +0000 |
commit | 3c9942db1ccb44392be1261061dd2335898149e2 (patch) | |
tree | 6ea3041569602dd30e13010c4dc3fd8285eb1dd9 /wizards/source/webwizard/HtmlAutoPilotBasic.xba | |
parent | 8977c7a2fe82cd2176e0c2e7f989e5a7cbce5ef1 (diff) |
#75761# fixed sorting of webwizard and calc styles
Diffstat (limited to 'wizards/source/webwizard/HtmlAutoPilotBasic.xba')
-rw-r--r-- | wizards/source/webwizard/HtmlAutoPilotBasic.xba | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba index 576667416fc7..a605c04c0655 100644 --- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba +++ b/wizards/source/webwizard/HtmlAutoPilotBasic.xba @@ -304,6 +304,7 @@ Dim LocMaxIndex as Integer bItemFound = False TemplatePath = GetOfficeSubPath("Template", "wizard/web/") DirContent() = oUcb.GetFolderContents(TemplatePath,True) + DirContent() = BubbleSortList(DirContent()) LocMaxIndex = Ubound(DirContent()) a = 0 For i = 0 To LocMaxIndex @@ -529,4 +530,4 @@ Sub SetTileBackgroundorNot(DialogModel as Object, oStyle as Object) End If End Sub -</script:module> +</script:module>
\ No newline at end of file |