diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-05-11 14:23:53 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-05-11 14:23:53 +0000 |
| commit | bc8d9fd86094969af4538f38c7b8578941f1e3f7 (patch) | |
| tree | d213a09ef7f6de27a560cd29983b498078ae3a05 /wizards/source | |
| parent | cfcfa08b72414757628e3b44ea49f7b156084279 (diff) | |
## several changes
Diffstat (limited to 'wizards/source')
| -rw-r--r-- | wizards/source/tools/Debug.xba | 6 | ||||
| -rw-r--r-- | wizards/source/tools/ModuleControls.xba | 6 |
2 files changed, 7 insertions, 5 deletions
diff --git a/wizards/source/tools/Debug.xba b/wizards/source/tools/Debug.xba index 5f7b1e8de15c..04d8235af493 100644 --- a/wizards/source/tools/Debug.xba +++ b/wizards/source/tools/Debug.xba @@ -81,11 +81,13 @@ End Sub Sub ShowPropertyValues(oLocObject as Object) Dim PropName as String Dim sValues as String +Dim MaxIndex as Integer On Local Error Goto NOPROPERTYSETINFO: sValues = "" - For i = 0 To Ubound(oLocObject.PropertySetInfo.Properties) + MaxIndex = Ubound(oLocObject.PropertySetInfo.Properties) + For i = 0 To MaxIndex Propname = oLocObject.PropertySetInfo.Properties(i).Name - sValues = sValues & PropName & chr(13) '" = " & oLocObject.GetPropertyValue(PropName) & chr(13) + sValues = sValues & PropName & oLocObject.GetPropertyValue(PropName) & chr(13) Next i Msgbox(sValues , 64, GetProductName()) Exit Sub diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index ad0ad04dfeea..186523a9bc8c 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -145,9 +145,9 @@ End Function Function LoadDialog(Libname as String, DialogName as String) Dim oLib as Object Dim oDialog as Object - dialogs.loadLibrary(Libname) - oLib = dialogs.GetByName(Libname) + DialogLibraries.loadLibrary(Libname) + oLib = DialogLibraries.GetByName(Libname) oDialog = CreateUnoDialog(oLib, DialogName) LoadDialog() = oDialog End Function -</script:module>
\ No newline at end of file +</script:module> |