To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=76767
User cd changed the following:
What |Old value |New value
================================================================================
Status|NEW |RESOLVED
--------------------------------------------------------------------------------
Resolution| |WORKSFORME
--------------------------------------------------------------------------------
------- Additional comments from [EMAIL PROTECTED] Thu May 10 08:17:12 +0000
2007 -------
cd: I am sorry but it works for me. Please look at the following Basic example
which uses the mouse motion listener interface. It works without any problem on
my system OpenOffice.org 2.2.
Sub Main
Dim oWindowProps as new com.sun.star.awt.WindowDescriptor
Dim aRectangle as new com.sun.star.awt.Rectangle
oToolkit = createUnoService( "com.sun.star.awt.Toolkit" )
oDesktop = createUnoService( "com.sun.star.frame.Desktop" )
oListener = createUnoListener( "on_", "com.sun.star.awt.XMouseMotionListener"
)
oFrame = oDesktop.getCurrentFrame()
aRectangle.X = 100
aRectangle.Y = 100
aRectangle.Width = 300
aRectangle.Height = 200
oWindowProps.Type = WINDOW_SIMPLE
oWindowProps.WindowServiceName = "window"
oWindowProps.Parent = oFrame.getContainerWindow()
oWindowProps.ParentIndex = -1
oWindowProps.Bounds = aRectangle
oWindowProps.WindowAttributes = com.sun.star.awt.WindowAttribute.SHOW +
com.sun.star.awt.WindowAttribute.BORDER
oWindow = oToolkit.createWindow( oWindowProps )
oWindow.addMouseMotionListener( oListener )
End Sub
Sub on_mouseDragged( oEvent )
msgbox "mouseDragged"
End Sub
Sub on_mouseMoved( oEvent )
msgbox "mouseMoved"
End Sub
Please check your code again, there must be a problem with it.
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
