diff options
author | Jean-Pierre Ledure <jp@ledure.be> | 2024-07-08 16:04:04 +0200 |
---|---|---|
committer | Xisco Fauli <xiscofauli@libreoffice.org> | 2024-07-09 17:59:44 +0200 |
commit | 42e3bb7cde89db579d5a42a18b7a7a93c6aad059 (patch) | |
tree | aee42e1e4d5f993d86e6de074e831b014b59ea73 /wizards | |
parent | f14b64fd7e2b4f134489d5a444eccdc101cb69bd (diff) |
ScriptForge (Document) tdf#161946 Fix CreateMenu() / Before
A too strict validity check of the Before argument
prevents the use of numeric values.
String values work fine.
Fix the arguments of the call to SF_Utils.Validate()
in SFDocuments.Document.xba
Change-Id: Id1d21cef1c3f056078b0208a8e15c503e1ecb201
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/170165
Reviewed-by: Jean-Pierre Ledure <jp@ledure.be>
Tested-by: Jenkins
(cherry picked from commit b2b29283c21640d02b12c031963dbd50a646552c)
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/170225
Diffstat (limited to 'wizards')
-rw-r--r-- | wizards/source/sfdocuments/SF_Document.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/sfdocuments/SF_Document.xba b/wizards/source/sfdocuments/SF_Document.xba index 6382b7c62827..43e143f30a59 100644 --- a/wizards/source/sfdocuments/SF_Document.xba +++ b/wizards/source/sfdocuments/SF_Document.xba @@ -572,7 +572,7 @@ Check: If ScriptForge.SF_Utils._EnterFunction(cstThisSub, cstSubArgs) Then If Not _IsStillAlive() Then GoTo Finally If Not ScriptForge.SF_Utils._Validate(MenuHeader, "MenuHeader", V_STRING) Then GoTo Finally - If Not ScriptForge.SF_Utils._Validate(Before, "Before", V_STRING) Then GoTo Finally + If Not ScriptForge.SF_Utils._Validate(Before, "Before", Array(V_STRING, ScriptForge.V_NUMERIC)) Then GoTo Finally If Not ScriptForge.SF_Utils._Validate(SubmenuChar, "SubmenuChar", V_STRING) Then GoTo Finally End If @@ -2138,4 +2138,4 @@ Private Function _Repr() As String End Function ' SFDocuments.SF_Document._Repr REM ============================================ END OF SFDOCUMENTS.SF_DOCUMENT -</script:module> +</script:module>
\ No newline at end of file |