diff options
author | Behrend Cornelius <bc@openoffice.org> | 2001-09-13 13:23:36 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2001-09-13 13:23:36 +0000 |
commit | 83ef3d38f7668ec31981a87c95b43997d812ef54 (patch) | |
tree | 5d91be0ebd26f5beab2eb4bbcde19adb4c45c2cc /wizards/source/tools/Misc.xba | |
parent | 35a37cfbfa7b79fbf44643ae9d0571d5714d29f1 (diff) |
#91712# String in '%productname%' in Filtername now evaluated
Diffstat (limited to 'wizards/source/tools/Misc.xba')
-rw-r--r-- | wizards/source/tools/Misc.xba | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index 1b1c414e0e20..cfc9684c65ed 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -101,7 +101,6 @@ End Function Function GetProductname() as String Dim oProdNameAccess as Object -Dim omyNames(100) as Object Dim sVersion as String Dim sProdName as String oProdNameAccess = GetRegistryKeyContent("org.openoffice.Setup/Product") @@ -281,7 +280,7 @@ Dim iFileLen as Integer If iFileLen < 44 Then sViewPath = Left(sViewPath,57-iFileLen-10) & "..." & Right(sViewPath,iFileLen + 10) Else - sViewPath = Left(sViewPath,27) & "..." & Right(sViewPath,30) + sViewPath = Left(sViewPath,27) & " ... " & Right(sViewPath,28) End If End If CutPathView = sViewPath |