diff options
| author | Tom Verbeek <tv@openoffice.org> | 2001-04-25 11:41:49 +0000 |
|---|---|---|
| committer | Tom Verbeek <tv@openoffice.org> | 2001-04-25 11:41:49 +0000 |
| commit | 868bf5b96d671fe53581c3e930b0510c25496f76 (patch) | |
| tree | b377e5502e65ac181df6eeeebe4205163c78c9a9 /wizards | |
| parent | d42df69c7e48f8a5270036e428d08e8b0876f655 (diff) | |
fixed 'LoadLibrary'
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/template/ModuleAgenda.xba | 18 | ||||
| -rw-r--r-- | wizards/source/template/Samples.xba | 2 |
2 files changed, 10 insertions, 10 deletions
diff --git a/wizards/source/template/ModuleAgenda.xba b/wizards/source/template/ModuleAgenda.xba index 8291940012f5..b840c05bd009 100644 --- a/wizards/source/template/ModuleAgenda.xba +++ b/wizards/source/template/ModuleAgenda.xba @@ -10,13 +10,13 @@ Dim DlgAgenda_gMyName as String Public TemplateDialog as Object Public DialogModel as Object Public sTrueContent as String -Public Bookmarkname as String +Public Bookmarkname as String Sub Initialize() ' User sets the type of minutes - LoadLibrary( "Tools" ) + BasicLibraries.LoadLibrary( "Tools" ) TemplateDialog = LoadDialog("Template", "TemplateDialog") DialogModel = TemplateDialog.Model DialogModel.Step = 1 @@ -44,12 +44,12 @@ End Sub Sub ModifyTemplate() Dim oDocument, oBookmarks, oBookmark, oBookmarkCursor, oTextField as Object Dim i as Integer - + oDocument = StarDesktop.ActiveFrame.Controller.Model oBookMarks = oDocument.Bookmarks On Local Error Goto NOBOOKMARK -' Todo: auch beim Schließen des Dialogs muss was passieren +' Todo: auch beim Schließen des Dialogs muss was passieren TemplateDialog.EndExecute DialogExited = TRUE oBookmarkCursor = CreateBookmarkCursor(oDocument, BookmarkName) @@ -89,7 +89,7 @@ Sub NewTopic Dim oDocument, oBookmarks, oBookmark, oBookmarkCursor, oTextField as Object Dim oBaustein, oAutoText, oAutoGroup as Object Dim i as Integer - + oDocument = StarDesktop.ActiveFrame.Controller.Model oBookMarkCursor = CreateBookMarkCursor(oDocument, "NextTopic") oTextField = oBookMarkCursor.TextField @@ -118,7 +118,7 @@ Dim oBookmarkCursor as Object Dim oFormats, oLocale as Object Dim iDateTimeKey as Integer - LoadLibrary( "Tools" ) + BasicLibraries.LoadLibrary( "Tools" ) oDocument = StarDesktop.ActiveFrame.Controller.Model oUserField = oDocument.CreateInstance("com.sun.star.text.TextField.ExtendedUser") @@ -151,7 +151,7 @@ Function CreateBookMarkCursor(oDocument as Object,sBookmarkName as String) Else Msgbox "Bookmark " & sBookmarkName & " is not defined!" End If -End Function +End Function @@ -179,7 +179,7 @@ Dim BtnFinishAgenda As Object If AgendaFinished Then DisposeControl(oDocument, "BtnAddAgendaTopic") DisposeControl(oDocument, "BtnFinishAgenda") - + oBookmarkCursor = CreateBookMarkCursor(oDocument,"NextTopic") oBookMarkCursor.GotoEnd(True) oBookmarkCursor.Text.insertString(oBookmarkCursor,"",True) @@ -197,7 +197,7 @@ Dim CurTag as String Dim Taglist() as String CurTag = aEvent.Source.Model.Tag Taglist() = ArrayoutOfString(CurTag, ";") - Bookmarkname = TagList(0) + Bookmarkname = TagList(0) sTrueContent = TagList(1) End Sub </script:module>
\ No newline at end of file diff --git a/wizards/source/template/Samples.xba b/wizards/source/template/Samples.xba index 9c71f04d653a..00407ef7bc77 100644 --- a/wizards/source/template/Samples.xba +++ b/wizards/source/template/Samples.xba @@ -34,7 +34,7 @@ Dim RValue as Integer Dim oNewDocument as Object Dim mFileProperties(0) as New com.sun.star.beans.PropertyValue PrepareForEditing = NULL - LoadLibrary( "Tools" ) + BasicLibraries.LoadLibrary( "Tools" ) If InitResources("'Template'", "tpl") then If IsMissing(oDocument) Then oDocument = StarDesktop.ActiveFrame.Controller.Model |