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

[Jean-Pierre Ledure]

 wizards/source/access2base/Application.xba |    2 +-
 wizards/source/access2base/DoCmd.xba       |    4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

New commits:
commit 4916efd5c69684f12fa062f734345627291b49e4
Author: Jean-Pierre Ledure <j...@ledure.be>
Date:   Fri May 23 17:42:39 2014 +0200

    Access2Base - Bug when event triggered by toolbar button
    
    Argument given by LO to macro triggered by toolbar button is an integer, 
not an object.
    This should not cause a visible error for the end-user from within the 
Events() Sub
    
    Change-Id: I4a307270b0d5cf2992b3bb304deb8cd30222dd95
    Reviewed-on: https://gerrit.libreoffice.org/9452
    Reviewed-by: Lionel Elie Mamane <lio...@mamane.lu>
    Tested-by: Lionel Elie Mamane <lio...@mamane.lu>

diff --git a/wizards/source/access2base/Application.xba 
b/wizards/source/access2base/Application.xba
index 1350464..04dceb0 100644
--- a/wizards/source/access2base/Application.xba
+++ b/wizards/source/access2base/Application.xba
@@ -641,7 +641,7 @@ Const cstThisSub = &quot;Events&quot;
        If IsMissing(poEvent) Then Goto Exit_Function
        If IsNull(poEvent) Then Goto Exit_Function
 
-       If Not Utils._CheckArgument(poEvent, 1, vbObject) Then Goto 
Exit_Function
+       If Not Utils._CheckArgument(poEvent, 1, vbObject, , False) Then Goto 
Exit_Function      &apos;  No error handling in CheckArgument
        If Not Utils._hasUNOProperty(poEvent, &quot;Source&quot;) Then Goto 
Trace_Error
        Set vEvent = New Event
        vEvent._Initialize(poEvent)
diff --git a/wizards/source/access2base/DoCmd.xba 
b/wizards/source/access2base/DoCmd.xba
index 2ece700..54249ef 100644
--- a/wizards/source/access2base/DoCmd.xba
+++ b/wizards/source/access2base/DoCmd.xba
@@ -1297,7 +1297,7 @@ Error_Function:
        Set OpenForm = Nothing
        GoTo Exit_Function
 Error_NotApplicable:
-       TraceError(TRACEFATAL, ERRMETHOD, Utils._CalledSub(), 0, 1, cstThisSub)
+       TraceError(TRACEFATAL, ERRACTION, Utils._CalledSub(), 0, 1, cstThisSub)
        Goto Exit_Function
 End Function           &apos;  Quit    V1.1.0
 
@@ -1792,7 +1792,7 @@ Exit_Function:
        Utils._ResetCalledSub(cstThisSub)
        Exit Function           
 Error_NotApplicable:
-       TraceError(TRACEFATAL, ERRMETHOD, Utils._CalledSub(), 0, 1, cstThisSub)
+       TraceError(TRACEFATAL, ERRACTION, Utils._CalledSub(), 0, 1, cstThisSub)
        Goto Exit_Function
 Error_Function:
        TraceError(TRACEABORT, Err, cstThisSub, Erl)
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits