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 | |
| parent | 76429c106add00f9a3f72b945cdc1b10bc574ca4 (diff) | |
#87289# Call of HelpAgent via Button click now possible
| -rw-r--r-- | wizards/source/tools/Misc.xba | 14 | ||||
| -rw-r--r-- | wizards/source/tools/ModuleControls.xba | 3 |
2 files changed, 15 insertions, 2 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 diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index 390369953351..5a4bf5f55721 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -252,6 +252,7 @@ Dim MaxIndex as Integer oDialog.AppendFilter(FilterNames(i,0), FilterNames(i,1)) Next i oDialog.SetCurrentFilter(FilterNames(0,0) -End Sub +End Sub + </script:module>
\ No newline at end of file |