diff options
Diffstat (limited to 'wizards/source/gimmicks/ReadDir.xba')
| -rw-r--r-- | wizards/source/gimmicks/ReadDir.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/gimmicks/ReadDir.xba b/wizards/source/gimmicks/ReadDir.xba index b5184d8c8..223249d3e 100644 --- a/wizards/source/gimmicks/ReadDir.xba +++ b/wizards/source/gimmicks/ReadDir.xba @@ -47,13 +47,13 @@ Dim oStandardTemplate as Object BasicLibraries.LoadLibrary("Tools") oDocument = StarDesktop.LoadComponentFromURL("private:factory/sdraw","_blank",0, NoArgs()) oPage = oDocument.DrawPages(0) - oStandardTemplate = oDocument.StyleFamilies.GetByName("graphics").GetByName("Standard") + oStandardTemplate = oDocument.StyleFamilies.GetByName("graphics").GetByName("Default") oStandardTemplate.CharHeight = 10 oStandardTemplate.TextLeftDistance = 100 oStandardTemplate.TextRightDistance = 100 oStandardTemplate.TextUpperDistance = 50 oStandardTemplate.TextLowerDistance = 50 - DlgReadDir = LoadDialog("Gimmicks","ReadDirDlg") + DlgReadDir = LoadDialog("Gimmicks","ReadDirdlg") oProgressBar = DlgReadDir.Model.ProgressBar1 DlgReadDir.Model.TextField1.Text = ConvertFromUrl(GetPathSettings("Work")) DlgReadDir.Model.cmdGoOn.DefaultButton = True |