diff options
author | Behrend Cornelius <bc@openoffice.org> | 2001-08-08 14:19:58 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2001-08-08 14:19:58 +0000 |
commit | 8dcb27bb124ae9a35a402caabd8a4fae622b2c03 (patch) | |
tree | 351d325019263684d7dfd9b7e6c712491a69486c /wizards/source/tools/Misc.xba | |
parent | 76429c106add00f9a3f72b945cdc1b10bc574ca4 (diff) |
#87289# Call of HelpAgent via Button click now possible
Diffstat (limited to 'wizards/source/tools/Misc.xba')
-rw-r--r-- | wizards/source/tools/Misc.xba | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index 9ceb5d637706..92113d073310 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -387,6 +387,17 @@ Dim CellValue oCell.Value = CellValue End Sub +Sub Main +' oDocument = StarDesktop.ActiveFrame.Controller.Model + oComponents = StarDesktop.Components.CreateEnumeration + Do + oComponent = oComponents.NextElement + ShowSupportedServicenames(oComponent) + Loop Until Not oComponents.HasMoreElements + For i = 0 To Ubound(StarDesktop.Components()) + PrintdbgInfo StarDesktop.Components(i) + Next i +End Sub Function GetDocumentType(oDocument) If oDocument.SupportsService("com.sun.star.sheet.SpreadsheetDocument") Then @@ -395,7 +406,8 @@ Function GetDocumentType(oDocument) GetDocumentType() = "swriter" ElseIf oDocument.SupportsService("com.sun.star.drawing.DrawingDocument") Then GetDocumentType() = "sdraw" -' Todo: Formel services einbinden + ElseIf oDocument.SupportsService("com.sun.star.formula.FormulaProperties") Then + GetDocumentType() = "smath" End If End Function |