diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2013-12-06 17:29:51 +0100 |
|---|---|---|
| committer | Lionel Elie Mamane <lionel@mamane.lu> | 2013-12-08 10:12:30 +0000 |
| commit | f44099ee12b3caf3dbf977132b266f8230597141 (patch) | |
| tree | a4f6894221789822f8374472130f4a309285ab50 /wizards | |
| parent | 02180aed7dc0b8c5f9cc23b319adc2386a9aab69 (diff) | |
Access2Base correct behaviour of SelectObject on Linux
( toFront on top of setFocus )
Change-Id: If8184af5f879e2391136f4a265439f0207f6af27
Reviewed-on: https://gerrit.libreoffice.org/6986
Reviewed-by: Lionel Elie Mamane <lionel@mamane.lu>
Tested-by: Lionel Elie Mamane <lionel@mamane.lu>
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/DoCmd.xba | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba index 91abb0408e84..4f72c126cc99 100644 --- a/wizards/source/access2base/DoCmd.xba +++ b/wizards/source/access2base/DoCmd.xba @@ -1434,8 +1434,11 @@ Public Function SelectObject( Optional pvObjectType As Variant _ Dim oWindow As Object Set oWindow = _SelectWindow(pvObjectType, pvObjectName) If IsNull(oWindow.Frame) Then Goto Error_NotFound - oWindow.Frame.ContainerWindow.setFocus() - oWindow.Frame.ContainerWindow.setEnable(True) ' Added to try to bypass desynchro issue in Linux + With oWindow.Frame.ContainerWindow + .setFocus() + .setEnable(True) ' Added to try to bypass desynchro issue in Linux + .toFront() ' Added to force window change in Linux + End With Exit_Function: Utils._ResetCalledSub("SelectObject") @@ -1767,6 +1770,7 @@ Dim oWindow As _Window If _ErrorHandler() Then On Local Error Goto Error_Function bActive = IsMissing(piWindowType) + If IsMissing(psWindow) Then psWindow = "" Set oWindow.Frame = Nothing If bActive Then oWindow.WindowType = -1 @@ -1881,7 +1885,7 @@ Exit_Function: Error_Function: TraceError(TRACEABORT, Err, "SelectWindow", Erl) GoTo Exit_Function -End Function ' _SelectWindow V0.9.0 +End Function ' _SelectWindow V1.0.0 REM ----------------------------------------------------------------------------------------------------------------------- Private Function _SendWithAttachment( _ |