diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-09-17 13:52:00 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-09-17 13:52:00 +0000 |
| commit | 80bca2d204bcc2f869bdec367cdb70fc584a77d0 (patch) | |
| tree | 38583c9c1f596629014103d20dbd180b8f4f2300 /wizards/source/template/ModuleAgenda.xba | |
| parent | 5b12116802cf6010ff15d53f462bd44c904ed3fe (diff) | |
#99839# German Comments removed
Diffstat (limited to 'wizards/source/template/ModuleAgenda.xba')
| -rw-r--r-- | wizards/source/template/ModuleAgenda.xba | 8 |
1 files changed, 1 insertions, 7 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") |