[prog] pas de réaction d'un MouseMotionListener

Fri, 18 Aug 2006 10:50:56 -0700 

Bonjour à tous,

Le code suivant ne fonctionne pas sur ma Debian Etch avec OO.o 2.0.3 (packagée 
par Debian), la routine mouseMoved n'est pas appelée.
Sub Main
oListener = 
CreateUnoListener(MouseMotion_, "com.sun.star.awt.XMouseMotionListener")
ThisComponent.CurrentController.Frame.ComponentWindow.addMouseMotionListener(oListener)
MsgBox "listener added"
wait 5000
ThisComponent.CurrentController.Frame.ComponentWindow.removeMouseMotionListener(oListener)
MsgBox "Listener removed"
End Sub

Sub MouseMotion_mouseMoved(oEvent)
MsgBox "mouseMoved"
MsgBox oEvent.Dbg_Properties
End Sub

Sub MouseMotion_mouseDragged(oEvent)
MsgBox "mouseDragged"
MsgBox oEvent.Dbg_Properties
End Sub

Sub MouseMotion_disposing(oEvent)
MsgBox "disposing"
MsgBox oEvent.Dbg_Properties
End Sub

Quelqu'un peut-il tester ou me dire ce qu'il y a de faux dans ce code ?
Merci d'avance.
-- 
gerard deneux

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à