[Libreoffice-commits] core.git: wizards/source

[Jean-Pierre Ledure (via logerrit)]

 wizards/source/sfdialogs/SF_Register.xba |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

New commits:
commit 5109a3ed77c00708d1981b60120698f0e1833313
Author:     Jean-Pierre Ledure <jp at ledure.be>
AuthorDate: Mon Nov 16 12:09:42 2020 +0100
Commit:     Jean-Pierre Ledure <jp at ledure.be>
CommitDate: Mon Nov 16 12:19:54 2020 +0100

    ScriptForge: (dialog) fix when argument is ThisComponent
    
    Avoid "Object variable not set" Basic runtime error
    on line
         Set oLibraries = oComp.DialogLibraries
    when pvArgs(0) is a XComponent object
    
    Change-Id: Id35a492905c47d81ef02d433c98d83b4c81eafeb
    Reviewed-on: https://gerrit.libreoffice.org/c/core/+/105921
    Tested-by: Jean-Pierre Ledure <jp at ledure.be>
    Reviewed-by: Jean-Pierre Ledure <jp at ledure.be>

diff --git a/wizards/source/sfdialogs/SF_Register.xba b/wizards/source/sfdialogs/SF_Register.xba
index c1021fa8552d..e95966d835c6 100644
--- a/wizards/source/sfdialogs/SF_Register.xba
+++ b/wizards/source/sfdialogs/SF_Register.xba
@@ -286,6 +286,7 @@ Try:
 			Case V_OBJECT	'	com.sun.star.lang.XComponent
 				bFound = True
 				vWindow = oUi._IdentifyWindow(vContainer)
+				Set oComp = vContainer
 		End Select
 		If Not bFound Then GoTo CatchNotFound
 		If Len(vWindow.DocumentType) = 0 Then GoTo CatchNotFound
@@ -324,4 +325,4 @@ CatchNotFound:
 End Function	'	SFDialogs.SF_Register._NewDialog
 
 REM ============================================== END OF SFDIALOGS.SF_REGISTER
-</script:module>
+</script:module>
\ No newline at end of file