how can i read the current x and y position of a dialog

[davejordan]

the provided properties do not seem to be useful.

here is some test code

private dlgmdl
private dlg

sub foo

	dlgmdl = createunoservice("com.sun.star.awt.UnoControlDialogModel")

	window = createunoservice("com.sun.star.awt.Toolkit")
	dlg = createunoservice("com.sun.star.awt.UnoControlDialog")
	dlg.setmodel(dlgmdl)
	dlg.createpeer(window, null)

	ctlmdl = dlgmdl.createinstance("com.sun.star.awt.UnoControlButtonModel")
	ctlmdl.width = 100
	ctlmdl.height = 20
	ctlmdl.label = "move window then click here"

	dlgmdl.insertbyname("q", ctlmdl)

	quit_lstnr = createunolistener("q_", "com.sun.star.awt.XActionListener")

	dlg.getcontrol("q").addactionlistener(quit_lstnr)
	dlg.execute()
end sub

sub q_actionperformed           rem 	always reports same numbers
	print dlgmdl.positionx & "," & dlgmdl.positiony & " or " & dlg.possize.x & "," & dlg.possize.y
	dlg.endexecute
end sub

sub q_disposing end sub