diff options
Diffstat (limited to 'odk/examples/DevelopersGuide/FirstSteps/FirstUnoContact/basic/FirstUnoContact.bas')
| -rw-r--r-- | odk/examples/DevelopersGuide/FirstSteps/FirstUnoContact/basic/FirstUnoContact.bas | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/odk/examples/DevelopersGuide/FirstSteps/FirstUnoContact/basic/FirstUnoContact.bas b/odk/examples/DevelopersGuide/FirstSteps/FirstUnoContact/basic/FirstUnoContact.bas new file mode 100644 index 0000000000..ba8f542d83 --- /dev/null +++ b/odk/examples/DevelopersGuide/FirstSteps/FirstUnoContact/basic/FirstUnoContact.bas @@ -0,0 +1,17 @@ +' +' This file is part of the LibreOffice project. +' +' This Source Code Form is subject to the terms of the Mozilla Public +' License, v. 2.0. If a copy of the MPL was not distributed with this +' file, You can obtain one at http://mozilla.org/MPL/2.0/. +' + +Sub Main + Set oContext = GetDefaultContext() + MsgBox "Connected to a running office..." + Set oServiceManager=oContext.GetServiceManager() + If IsNull(oServiceManager) Then + bAvailable = "not " + End If + MsgBox "ServiceManager is " + bAvailable + "available" +End Sub
\ No newline at end of file |