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
This commit is contained in:
Jean-Pierre Ledure 2024-07-08 16:04:04 +02:00
parent 44f42499e2
commit b2b29283c2

View file

@ -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, &quot;MenuHeader&quot;, V_STRING) Then GoTo Finally
If Not ScriptForge.SF_Utils._Validate(Before, &quot;Before&quot;, V_STRING) Then GoTo Finally
If Not ScriptForge.SF_Utils._Validate(Before, &quot;Before&quot;, Array(V_STRING, ScriptForge.V_NUMERIC)) Then GoTo Finally
If Not ScriptForge.SF_Utils._Validate(SubmenuChar, &quot;SubmenuChar&quot;, V_STRING) Then GoTo Finally
End If
@ -2138,4 +2138,4 @@ Private Function _Repr() As String
End Function &apos; SFDocuments.SF_Document._Repr
REM ============================================ END OF SFDOCUMENTS.SF_DOCUMENT
</script:module>
</script:module>