diff options
author | Tom Verbeek <tv@openoffice.org> | 2001-11-12 14:24:05 +0000 |
---|---|---|
committer | Tom Verbeek <tv@openoffice.org> | 2001-11-12 14:24:05 +0000 |
commit | f3c91eaec4482b75277fcbf9f0d932b31e8570e6 (patch) | |
tree | bbbba4d71dfca66b0a4ee35b789d4cf362f07b40 /wizards/source/template/ModuleAgenda.xba | |
parent | 00d166ff50c8b95d5a21851285bb4624791bfc1a (diff) |
#92952# StarDesktop.ActiveFrame.Controller.Model --> ThisComponent
Diffstat (limited to 'wizards/source/template/ModuleAgenda.xba')
-rw-r--r-- | wizards/source/template/ModuleAgenda.xba | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/wizards/source/template/ModuleAgenda.xba b/wizards/source/template/ModuleAgenda.xba index b0954d769567..651a1a613eb9 100644 --- a/wizards/source/template/ModuleAgenda.xba +++ b/wizards/source/template/ModuleAgenda.xba @@ -45,7 +45,7 @@ Sub ModifyTemplate() Dim oDocument, oBookmarks, oBookmark, oBookmarkCursor, oTextField as Object Dim i as Integer - oDocument = StarDesktop.ActiveFrame.Controller.Model + oDocument = ThisComponent oBookMarks = oDocument.Bookmarks On Local Error Goto NOBOOKMARK @@ -88,7 +88,7 @@ Dim oDocument, oBookmarks, oBookmark, oBookmarkCursor, oTextField as Object Dim oBaustein, oAutoText, oAutoGroup as Object Dim i as Integer - oDocument = StarDesktop.ActiveFrame.Controller.Model + oDocument = ThisComponent oBookMarkCursor = CreateBookMarkCursor(oDocument, "NextTopic") oTextField = oBookMarkCursor.TextField oAutoText = CreateUnoService("com.sun.star.text.AutoTextContainer") @@ -117,7 +117,7 @@ Dim oFormats, oLocale as Object Dim iDateTimeKey as Integer BasicLibraries.LoadLibrary( "Tools" ) - oDocument = StarDesktop.ActiveFrame.Controller.Model + oDocument = ThisComponent oUserField = oDocument.CreateInstance("com.sun.star.text.TextField.ExtendedUser") oUserField.UserDatatype = com.sun.star.text.UserDataPart.SHORTCUT @@ -158,7 +158,7 @@ Dim AgendaFinished As Boolean Dim BtnAddAgendaTopic As Object Dim BtnFinishAgenda As Object - oDocument = StarDesktop.ActiveFrame.Controller.Model + oDocument = ThisComponent BtnAddAgendaTopic = getControlModel(oDocument, "BtnAddAgendaTopic") BtnFinishAgenda = getControlModel(oDocument, "BtnFinishAgenda") @@ -198,4 +198,4 @@ Dim Taglist() as String Bookmarkname = TagList(0) sTrueContent = TagList(1) End Sub -</script:module>
\ No newline at end of file +</script:module> |