diff options
Diffstat (limited to 'wizards/source/tools')
| -rw-r--r-- | wizards/source/tools/Debug.xba | 2 | ||||
| -rw-r--r-- | wizards/source/tools/Listbox.xba | 2 | ||||
| -rw-r--r-- | wizards/source/tools/Misc.xba | 2 | ||||
| -rw-r--r-- | wizards/source/tools/ModuleControls.xba | 10 | ||||
| -rw-r--r-- | wizards/source/tools/Strings.xba | 2 | ||||
| -rw-r--r-- | wizards/source/tools/UCB.xba | 2 | ||||
| -rw-r--r-- | wizards/source/tools/script.xlb | 16 |
7 files changed, 21 insertions, 15 deletions
diff --git a/wizards/source/tools/Debug.xba b/wizards/source/tools/Debug.xba index 369cd3c78aa5..41d296d3fdb6 100644 --- a/wizards/source/tools/Debug.xba +++ b/wizards/source/tools/Debug.xba @@ -1,6 +1,6 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> - <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Debug" script:language="StarBasic">REM ***** BASIC ***** +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Debug" script:language="StarBasic">REM ***** BASIC ***** Sub ActivateReadOnlyFlag() SetBasicReadOnlyFlag(True) diff --git a/wizards/source/tools/Listbox.xba b/wizards/source/tools/Listbox.xba index 79e12ae6ca82..8d3eea6a0d23 100644 --- a/wizards/source/tools/Listbox.xba +++ b/wizards/source/tools/Listbox.xba @@ -1,6 +1,6 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> - <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Listbox" script:language="StarBasic">Option Explicit +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Listbox" script:language="StarBasic">Option Explicit Dim OriginalList() Dim oDialogModel as Object diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index 443682430e0d..25a4cb5b8460 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -1,6 +1,6 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> - <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Misc" script:language="StarBasic">REM ***** BASIC ***** +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Misc" script:language="StarBasic">REM ***** BASIC ***** Const SBSHARE = 0 Const SBUSER = 1 diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index bd906e7ef081..f9a2561008bd 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -1,6 +1,6 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> - <script:module xmlns:script="http://openoffice.org/2000/script" script:name="ModuleControls" script:language="StarBasic">Option Explicit +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="ModuleControls" script:language="StarBasic">Option Explicit 'bla ' Accepts the name of a control and returns the respective control model as object @@ -217,7 +217,7 @@ Dim oUcb as object End Sub -Function StoreDocument(oDocument as Object, FilterNames() as String, DefaultName as String, DisplayDirectory as String) as String +Function StoreDocument(oDocument as Object, FilterNames() as String, DefaultName as String, DisplayDirectory as String, Optional iAddProcedure as Integer) as String Dim NoArgs() as New com.sun.star.beans.PropertyValue Dim oStoreProperties(0) as New com.sun.star.beans.PropertyValue Dim oStoreDialog as Object @@ -239,6 +239,12 @@ Dim FilterIndex as Integer UIFilterName = oStoreDialog.GetCurrentFilter() FilterIndex = IndexInArray(UIFilterName, FilterNames()) FilterName = FilterNames(FilterIndex,2) + If Not IsMissing(iAddProcedure) Then + Select Case iAddProcedure + Case 1 + CommitLastDocumentChanges(sPath) + End Select + End If On Local Error Goto NOSAVING If FilterName = "" Then ' Todo: Den Fall abfangen, wenn ein zu überschreibendes Dokument schreibgeschützt ist (weil es z.B. gerade geöffnet ist) diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba index eb09957aab50..553fffd2eb32 100644 --- a/wizards/source/tools/Strings.xba +++ b/wizards/source/tools/Strings.xba @@ -1,6 +1,6 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> - <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Strings" script:language="StarBasic">Option Explicit +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Strings" script:language="StarBasic">Option Explicit Public sProductname as String diff --git a/wizards/source/tools/UCB.xba b/wizards/source/tools/UCB.xba index 8c73652ffb1e..9e03138bdb78 100644 --- a/wizards/source/tools/UCB.xba +++ b/wizards/source/tools/UCB.xba @@ -1,6 +1,6 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> - <script:module xmlns:script="http://openoffice.org/2000/script" script:name="UCB" script:language="StarBasic">'Option explicit +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="UCB" script:language="StarBasic">'Option explicit Public oDocument Dim oDocInfo as object Const SBMAXDIRCOUNT = 10 diff --git a/wizards/source/tools/script.xlb b/wizards/source/tools/script.xlb index 5ab6a06de589..c107f2c9bfb6 100644 --- a/wizards/source/tools/script.xlb +++ b/wizards/source/tools/script.xlb @@ -1,10 +1,10 @@ <?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:element library:name="ModuleControls"/> - <library:element library:name="Strings"/> - <library:element library:name="Misc"/> - <library:element library:name="UCB"/> - <library:element library:name="Listbox"/> - <library:element library:name="Debug"/> - </library:library> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Tools" library:readonly="true" library:passwordprotected="false"> + <library:element library:name="ModuleControls"/> + <library:element library:name="Strings"/> + <library:element library:name="Misc"/> + <library:element library:name="UCB"/> + <library:element library:name="Listbox"/> + <library:element library:name="Debug"/> +</library:library> |