Please add GadgetMouseX / Y

[technicorn]

Happy Christmas!

Is it to late for Christmas wishes?

Would be nice to have a GadgetMouseX / Y function to tell the position
relative to the upper left corner of a gadget,
I know it can be done with simple API funtions on Windows,
but it would be nice to have a cross platform funtion build in.

Peacefull Xmas to everyone
Technicorn

[Rescator]

For like the ImageGadget you mean?
I think that would be better served by a EventMouse() or similar and that gadget supporting that.

[Trond]

Code: Select all

Procedure GadgetMouseX(Gadget)
  ProcedureReturn WindowMouseX(0)-GadgetX(Gadget)
EndProcedure

Procedure GadgetMouseY(Gadget)
  ProcedureReturn WindowMouseX(0)-GadgetY(Gadget)
EndProcedure

[Psychophanta]

Happy Christmas!

Is it to late for Christmas wishes?

Would be nice to have a GadgetMouseX / Y function to tell the position
relative to the upper left corner of a gadget,
I know it can be done with simple API funtions on Windows,
but it would be nice to have a cross platform funtion build in.

Peacefull Xmas to everyone
Technicorn

Is not already implemented?

Syntax

Result = GadgetX(#Gadget)
Description

Returns the X position of the specified #Gadget. The X position is measured in pixels, starting from the inside of the left edge of the gadget list that the gadget is in.
Supported OS

All

If it is not what you are looking for, i think the Trond's way or:

Code: Select all

Macro GadgetMouseX(Window,Gadget)
  (WindowMouseX(Window#)-GadgetX(Gadget#))
EndMacro
Macro GadgetMouseY(Window,Gadget)
  (WindowMouseX(Window#)-GadgetY(Gadget#))
EndMacro

could help you.

[technicorn]

Thanks for trying to help, but that wouldn't do for gadgets in containers or panels, because you didn't know the offset for borders and alike,
one solution I found on this forum was:

Code: Select all

GetCursorPos_(p.POINT)
ScreenToClient_( GadgetID(#Gadget), p)

and it works, but is for Windows only.
I didn't know how this would be done under Linux and GDK for example!?

[Edit] Of course it should say GTK, not GDK

[Erlend]

For linux this would be:

Procedure GadgetMouseX(Gadget)
gtk_widget_get_pointer_(GadgeID(Gadget),@x,0)
ProcedureReturn x
EndProcedure
Procedure GadgetMouseY(Gadget)
gtk_widget_get_pointer_(GadgeID(Gadget),0,@y)
ProcedureReturn y
EndProcedure

[Rescator]

So all we need now is the Mac equivalent and Fred can make API wrappers for all three platforms?
Or add EventMouse support of this to ImageGadget