Hi Laurent,
Am 18.12.2009 15:27, schrieb Laurent Godard:
Hi Franck
thanks a lot
it works, at least i can define a callback :)
btw, seems to me that i can not depend in the callback on a public
variable change
public myDummy
Sub Main
oASync = CreateUnoService("com.sun.star.awt.AsyncCallback")
oCallback = CreateUnoListener("Callback_", "com.sun.star.awt.XCallback")
myDummy = true
oASync.addCallback(oCallback,"")
Print "test1"
myDummy = false
End Sub
Sub Callback_notify( aData )
wait 5000
Print cstr(myDummy)
End Sub
test1 occurs before test2, this is ok
the callback myDummy returns "true" instead of false
If you comment out your "Print" in the main routine, than the "Print" in
the callback function works as expected.
Try to replace both print methods with Msgbox and it makes you wonder...
The Msgbox in the callback function doesn't appear without any errors.
Maybe Andreas Bregas knows more about that.
Tested with rc1,
Regards
Peter
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
