diff options
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/scriptforge/SF_PythonHelper.xba | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/wizards/source/scriptforge/SF_PythonHelper.xba b/wizards/source/scriptforge/SF_PythonHelper.xba index 71cdab87a7cb..931a37adb3c4 100644 --- a/wizards/source/scriptforge/SF_PythonHelper.xba +++ b/wizards/source/scriptforge/SF_PythonHelper.xba @@ -472,17 +472,17 @@ REM ---------------------------------------------------------------------------- Public Function PyInputBox(ByVal Msg As Variant _ , ByVal Title As Variant _ , ByVal Default As Variant _ - , Optional ByVal XPos As Variant _ - , Optional ByVal YPos As Variant _ + , Optional ByVal XPosTwips As Variant _ + , Optional ByVal YPosTwips As Variant _ ) As String ''' Convenient function to replicate InputBox() in Python scripts ''' Args: ''' Msg: String expression displayed as the message in the dialog box ''' Title: String expression displayed in the title bar of the dialog box ''' Default: String expression displayed in the text box as default if no other input is given -''' XPos: Integer expression that specifies the horizontal position of the dialog -''' YPos: Integer expression that specifies the vertical position of the dialog -''' If XPos and YPos are omitted, the dialog is centered on the screen +''' XPosTwips: Integer expression that specifies the horizontal position of the dialog +''' YPosTwips: Integer expression that specifies the vertical position of the dialog +''' If XPosTwips and YPosTwips are omitted, the dialog is centered on the screen ''' The position is specified in twips. ''' Returns: ''' The entered value or "" if the user pressed the Cancel button @@ -491,20 +491,20 @@ Public Function PyInputBox(ByVal Msg As Variant _ Dim sInput As String ' Return value Const cstThisSub = "Basic.InputBox" -Const cstSubArgs = "msg, [title=''], [default=''], [xpos], [ypos]" +Const cstSubArgs = "msg, [title=''], [default=''], [xpostwips], [ypostwips]" If SF_Utils._ErrorHandling() Then On Local Error GoTo Catch sInput = "" Check: - If IsMissing(YPos) Then YPos = 1 + If IsMissing(YPosTwips) Then YPosTwips = 1 SF_Utils._EnterFunction(cstThisSub, cstSubArgs) Try: - If IsMissing(XPos) Then + If IsMissing(XPosTwips) Then sInput = InputBox(Msg, Title, Default) Else - sInput = InputBox(Msg, Title, Default, XPos, YPos) + sInput = InputBox(Msg, Title, Default, XPosTwips, YPosTwips) End If Finally: |