diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-08-12 15:20:48 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-08-12 15:20:48 +0000 |
| commit | 648bae93d69cf663a73c826cb8b7aed667931256 (patch) | |
| tree | 93d534174edd86e68d56894e772b4244c0be5504 /wizards/source/tools | |
| parent | 455f361eab684f508345984d4304239a6d7e983e (diff) | |
#100027# Sub Main occured twice in misc module
Diffstat (limited to 'wizards/source/tools')
| -rw-r--r-- | wizards/source/tools/Misc.xba | 12 | ||||
| -rw-r--r-- | wizards/source/tools/Strings.xba | 5 | ||||
| -rw-r--r-- | wizards/source/tools/script.xlb | 2 |
3 files changed, 1 insertions, 18 deletions
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index b7f70277c1a0..eea586e440d7 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -410,18 +410,6 @@ 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) On Local Error GoTo NODOCUMENTTYPE diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba index 35122eff1da9..29427f286018 100644 --- a/wizards/source/tools/Strings.xba +++ b/wizards/source/tools/Strings.xba @@ -4,11 +4,6 @@ Public sProductname as String -Sub Main() - Msgbox Round(0.1223,2) -End Sub - - ' Deletes out of a String 'BigString' all possible PartStrings, that are summed up ' in the Array 'ElimArray' Function ElimChar(ByVal BigString as String, ElimArray() as String) diff --git a/wizards/source/tools/script.xlb b/wizards/source/tools/script.xlb index fe4d74d60332..7e46dfbe680c 100644 --- a/wizards/source/tools/script.xlb +++ b/wizards/source/tools/script.xlb @@ -1,6 +1,6 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Tools" library:readonly="true" library:passwordprotected="false"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Tools" library:readonly="false" library:passwordprotected="false"> <library:element library:name="ModuleControls"/> <library:element library:name="Strings"/> <library:element library:name="Misc"/> |