diff options
Diffstat (limited to 'wizards/source/tutorials/ShowInfoDialog.xba')
-rw-r--r-- | wizards/source/tutorials/ShowInfoDialog.xba | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/wizards/source/tutorials/ShowInfoDialog.xba b/wizards/source/tutorials/ShowInfoDialog.xba index defde111cbbf..e1da4b596237 100644 --- a/wizards/source/tutorials/ShowInfoDialog.xba +++ b/wizards/source/tutorials/ShowInfoDialog.xba @@ -24,7 +24,7 @@ Dim oWnd3 As Object Dim oDoc as Object Sub ShowInfoMain - prop() = GetShowInfoPropeties() + prop() = GetShowInfoProperties() Init(prop(0).Value, prop(1).Value, prop(2).Value, prop(3).Value, prop(4).Value, prop(5).Value, prop(6).Value, prop(7).Value, prop(8).Value) End Sub @@ -103,7 +103,7 @@ Sub Init(tFieldText As String, windowX, windowY, windowWidth, windowHeight, tFie End Sub -Function GetShowInfoPropeties() +Function GetShowInfoProperties() stepText = GetStepTitle() Dim Properties(8) As new com.sun.star.beans.NamedValue Properties(0).Name = "ShowInfoDialogText" @@ -124,7 +124,7 @@ Function GetShowInfoPropeties() Properties(7).Value = 190 Properties(8).Name = "TFieldHeight" Properties(8).Value = 50 - GetShowInfoPropeties = Properties() + GetShowInfoProperties = Properties() End Function Sub setShowInfoText() @@ -319,4 +319,4 @@ Function addShapeToDrawDoc(oPage as Object, nPosX, nPosY as Integer, oType As St addShapeToDrawDoc() = oShape End Function -</script:module>
\ No newline at end of file +</script:module> |