diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-12-07 16:32:35 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-12-07 16:32:35 +0000 |
| commit | 8d1577422d7b40f944884186bd1701a58c9bf2f5 (patch) | |
| tree | 3c6a003d8e2263479aa6b577e60f589a2c1aa2d5 | |
| parent | 072c361a806a97e1bd0111a7293e8cd393ef4f39 (diff) | |
#95749# Subs ActivateReadOnlyFlag/DeactivateReadOnlyFlag added
| -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 2b8ad3d8c..369cd3c78 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 70dd453c7..8c73652ff 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 7e46dfbe6..5cb0bf13c 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 |