diff options
| -rw-r--r-- | wizards/source/template/ModuleAgenda.xba | 8 | ||||
| -rw-r--r-- | wizards/source/template/Samples.xba | 2 |
2 files changed, 2 insertions, 8 deletions
diff --git a/wizards/source/template/ModuleAgenda.xba b/wizards/source/template/ModuleAgenda.xba index 8b32df4523f0..8a4e2dd2c939 100644 --- a/wizards/source/template/ModuleAgenda.xba +++ b/wizards/source/template/ModuleAgenda.xba @@ -6,7 +6,6 @@ Option Explicit ' Used for "disabling" the cancel button of the dialog Public DialogExited As Boolean Dim DlgAgenda_gMyName as String -'Dim DlgAgenda_gMsgNoCancel$ Public TemplateDialog as Object Public DialogModel as Object Public sTrueContent as String @@ -49,7 +48,6 @@ Dim i as Integer oBookMarks = oDocument.Bookmarks On Local Error Goto NOBOOKMARK -' Todo: auch beim Schließen des Dialogs muss was passieren TemplateDialog.EndExecute DialogExited = TRUE oBookmarkCursor = CreateBookmarkCursor(oDocument, BookmarkName) @@ -64,7 +62,6 @@ Dim i as Integer oBookMarkCursor = CreateBookmarkCursor(oDocument, "NextTopic") If Not IsNull(oBookMarkCursor) Then oTextField = oBookMarkCursor.TextField -' Todo: Was ist mit der Property 'TrueContent' geschehen? ' oTextField.TrueContent = sTrueContent oTextField.Content = sTrueContent End If @@ -76,16 +73,13 @@ Dim i as Integer End Sub -' Attention This Sub is also called from the correspondence stuff - - Sub NewTopic ' Add a new topic to the agenda Dim oDocument, oBookmarks, oBookmark, oBookmarkCursor, oTextField as Object Dim oBaustein, oAutoText, oAutoGroup as Object Dim i as Integer - oDocument = ThisComponent + oDocument = ThisComponent oBookMarkCursor = CreateBookMarkCursor(oDocument, "NextTopic") oTextField = oBookMarkCursor.TextField oAutoText = CreateUnoService("com.sun.star.text.AutoTextContainer") diff --git a/wizards/source/template/Samples.xba b/wizards/source/template/Samples.xba index 73e02bc35a74..53c698934d33 100644 --- a/wizards/source/template/Samples.xba +++ b/wizards/source/template/Samples.xba @@ -170,7 +170,7 @@ Sub CloseStyleDialog StylesDialog.Endexecute End Sub -' Todo:Diese Prozedur an das Dialog-Schließen Ereignis ranhängen + Sub KillTempFile() If oUcbObject.Exists(aTempUrl) Then oUcbObject.Kill(aTempUrl) |