diff options
-rw-r--r-- | wizards/source/tools/Debug.xba | 27 | ||||
-rw-r--r-- | wizards/source/tools/UCB.xba | 4 | ||||
-rw-r--r-- | wizards/source/tools/script.xlb | 16 |
3 files changed, 35 insertions, 12 deletions
diff --git a/wizards/source/tools/Debug.xba b/wizards/source/tools/Debug.xba index 2b8ad3d8c943..369cd3c78aa5 100644 --- a/wizards/source/tools/Debug.xba +++ b/wizards/source/tools/Debug.xba @@ -2,6 +2,30 @@ <!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 ***** +Sub ActivateReadOnlyFlag() + SetBasicReadOnlyFlag(True) +End Sub + + +Sub DeactivateReadOnlyFlag() + SetBasicReadOnlyFlag(False) +End Sub + + +Sub SetBasicReadOnlyFlag(bReadOnly as Boolean) +Dim i as Integer +Dim LibName as String +Dim BasicLibNames() as String + BasicLibNames() = BasicLibraries.ElementNames() + For i = 0 To Ubound(BasicLibNames()) + LibName = BasicLibNames(i) + If LibName <> "Standard" Then + BasicLibraries.SetLibraryReadOnly(LibName, bReadOnly) + End If + Next i +End Sub + + Sub WritedbgInfo(LocObject as Object) Dim locUrl as String Dim oLocDocument as Object @@ -201,4 +225,5 @@ Dim bDoProtect as Boolean End If End If End If -End Sub</script:module>
\ No newline at end of file +End Sub +</script:module>
\ No newline at end of file diff --git a/wizards/source/tools/UCB.xba b/wizards/source/tools/UCB.xba index 70dd453c7e07..8c73652ffb1e 100644 --- a/wizards/source/tools/UCB.xba +++ b/wizards/source/tools/UCB.xba @@ -272,6 +272,4 @@ NOSPACEONDRIVE: Resume LETSGO LETSGO: End If -End Function - -</script:module>
\ No newline at end of file +End Function</script:module>
\ No newline at end of file diff --git a/wizards/source/tools/script.xlb b/wizards/source/tools/script.xlb index 7e46dfbe680c..5cb0bf13c354 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="false" 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>
\ No newline at end of file + <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"/> + <library:element library:name="UCB"/> + <library:element library:name="Listbox"/> + <library:element library:name="Debug"/> + </library:library>
\ No newline at end of file |