[gtkada] coordinates

[manuel.op.de.coul at eon-benelux.com]

Yup, so:

      X, Y : Gint;
      Mask : Gdk.Types.Gdk_Modifier_Type;
      Curr : Gdk_Window;
   begin
      Gdk.Window.Get_Pointer(My_Dialog.Gdkw, X, Y, Mask, Curr);

Manuel