diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-04-30 10:48:28 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-04-30 10:48:28 +0000 |
| commit | a6981e0b64403e110b56fe03527e3ab9aabaff14 (patch) | |
| tree | 4b8dfe5c5c95dceff3a9198451ea0135d936de32 /wizards | |
| parent | 745c9166f0ecacf2b71d21258fc510ee96dcb4ce (diff) | |
## filtername for globaldocuments replaced
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/importwizard/DialogModul.xba | 2 | ||||
| -rw-r--r-- | wizards/source/importwizard/Main.xba | 14 |
2 files changed, 9 insertions, 7 deletions
diff --git a/wizards/source/importwizard/DialogModul.xba b/wizards/source/importwizard/DialogModul.xba index fbc58bd03d45..bc50d35f7271 100644 --- a/wizards/source/importwizard/DialogModul.xba +++ b/wizards/source/importwizard/DialogModul.xba @@ -402,7 +402,7 @@ Sub SetupXMLConfiguration() ' ToDo: define Filter for Masterdocument XMLFilterName(7,0) = "sgl" - XMLFilterName(7,1) = "swriter: writer_globaldocument_StarOffice_XML_Writer_GlobalDocument" + XMLFilterName(7,1) = "swriter/GlobalDocument: writer_globaldocument_StarOffice_XML_Writer_GlobalDocument" XMLFilterName(7,2) = "sxg" End Sub diff --git a/wizards/source/importwizard/Main.xba b/wizards/source/importwizard/Main.xba index f599af53b499..dd3e52558d11 100644 --- a/wizards/source/importwizard/Main.xba +++ b/wizards/source/importwizard/Main.xba @@ -1,16 +1,17 @@ <?xml version="1.0" encoding="UTF-8"?> <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Main" script:language="StarBasic">' ***** BASIC ***** -' Todo: Problematik der VBA-Makros, die angeblich nicht mit abgespeichert werden koennen. +' Todo: Problematik der VBA-Makros, die angeblich nicht mit abgespeichert werden können. ' Evt. Erkennen der Arbeitsverzeichnisse von MS Office -' Filternamen fuer Ziel-XML-Dokumente und deren Extensionen feststellen (auch fuer StarMath) -' Extension fuer XML-Vorlagen klaeren +' Filternamen für Ziel-XML-Dokumente und deren Extensionen feststellen (auch für StarMath) +' Extension für XML-Vorlagen klären +' Todo: In Checkbox bei Texvorlagen darauf hinweisen, dass keine writer/Web Vorlagen konvertiert werden! Public HeaderPreviews(4) as Object Public ImportDialog as Object Public ImportDialogArea as Object Sub Main - BasicLibraries.LoadLibrary("Tools") + BasicLibraries.LoadLibrary("Tools") sCRLF = CHR(10) & CHR(13) oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") If Not bDebugWizard Then @@ -92,7 +93,7 @@ Dim iCurStep as Integer Case 4 FillStep_Summary() Case 3 -'Todo: muessen auch beim Zuruecksteppen wirklich die Importpfade auf ihre Gueltigkeit hin Ueberprueft werden? +'Todo: müssen auch beim Zurücksteppen wirklich die Importpfade auf ihre Gültigkeit hin überprüft werden? FillStep_InputPaths(Applcount-1, False) Case 2 If SaveStep_InputPath Then @@ -157,6 +158,7 @@ Dim sBitmapPath as String Else sBitmapPath = SOBitmapPath & "Import_" & CurStep & ".bmp" End If + Set Bitmap = LoadPicture (sBitmapPath) ImportDialog.ImportPreview.ImageURL = sBitmapPath End Sub @@ -220,4 +222,4 @@ End Sub Function ControlStateToBool(iState) ControlStateToBool = (Val(iState) = 1) End Function -</script:module> +</script:module>
\ No newline at end of file |