Data update

Task/Mouse-position/Ada/mouse-position.adb

@@ -0,0 +1,67 @@
+with GLib;        use GLib;
+with Gtk.Button;  use Gtk.Button;
+with Gtk.Label;   use Gtk.Label;
+with Gtk.Window;  use Gtk.Window;
+with Gtk.Widget;  use Gtk.Widget;
+with Gtk.Table;   use Gtk.Table;
+
+with Gtk.Handlers;
+with Gtk.Main;
+
+procedure Tell_Mouse is
+   Window : Gtk_Window;
+   Grid   : Gtk_Table;
+   Button : Gtk_Button;
+   Label  : Gtk_Label;
+
+   package Handlers is new Gtk.Handlers.Callback (Gtk_Widget_Record);
+   package Return_Handlers is
+      new Gtk.Handlers.Return_Callback (Gtk_Widget_Record, Boolean);
+
+   function Delete_Event (Widget : access Gtk_Widget_Record'Class)
+      return Boolean is
+   begin
+      return False;
+   end Delete_Event;
+
+   procedure Destroy (Widget : access Gtk_Widget_Record'Class) is
+   begin
+      Gtk.Main.Main_Quit;
+   end Destroy;
+
+   procedure Clicked (Widget : access Gtk_Widget_Record'Class) is
+      X, Y : GInt;
+   begin
+      Get_Pointer (Window, X, Y);
+      Set_Text (Label, "At" & GInt'Image (X) & GInt'Image (Y));
+   end Clicked;
+
+begin
+   Gtk.Main.Init;
+   Gtk.Window.Gtk_New (Window);
+   Gtk_New (Grid, 1, 2, False);
+   Add (Window, Grid);
+   Gtk_New (Label);
+   Attach (Grid, Label, 0, 1, 0, 1);
+   Gtk_New (Button, "Click me");
+   Attach (Grid, Button, 0, 1, 1, 2);
+   Return_Handlers.Connect
+   (  Window,
+      "delete_event",
+      Return_Handlers.To_Marshaller (Delete_Event'Access)
+   );
+   Handlers.Connect
+   (  Window,
+      "destroy",
+      Handlers.To_Marshaller (Destroy'Access)
+   );
+   Handlers.Connect
+   (  Button,
+      "clicked",
+      Handlers.To_Marshaller (Clicked'Access)
+   );
+   Show_All (Grid);
+   Show (Window);
+
+   Gtk.Main.Main;
+end Tell_Mouse;

Task/Mouse-position/Emacs-Lisp/mouse-position.el

@@ -0,0 +1,2 @@
+(mouse-pixel-position)
+;; => (FRAME . (X . Y))

Task/Mouse-position/Odin/mouse-position-1.odin

@@ -0,0 +1,35 @@
+package main
+
+import "core:fmt"
+import "vendor:sdl2"
+
+main :: proc() {
+  using sdl2
+
+  window: ^Window = ---
+  renderer: ^Renderer = ---
+  event: Event = ---
+
+  Init(INIT_VIDEO)
+  CreateWindowAndRenderer(
+    640, 480,
+    WINDOW_SHOWN,
+    &window, &renderer
+  )
+
+  SetWindowTitle(window, "Empty window")
+  RenderPresent(renderer)
+
+  for event.type != .QUIT {
+    if event.type == .MOUSEMOTION {
+      using event.motion
+      fmt.printf("x=%d y=%d\n", x, y)
+    }
+    Delay(10)
+    PollEvent(&event)
+  }
+
+  DestroyRenderer(renderer)
+  DestroyWindow(window)
+  Quit()
+}

Task/Mouse-position/Odin/mouse-position-2.odin

@@ -0,0 +1,19 @@
+package main
+
+import rl "vendor:raylib"
+
+main :: proc() {
+	rl.InitWindow(320, 240, "Rosetta Code - Mouse position")
+
+	for !rl.WindowShouldClose() {
+		rl.BeginDrawing()
+
+		rl.ClearBackground(rl.BLACK)
+
+		if rl.IsCursorOnScreen() do rl.DrawCircleV(rl.GetMousePosition(), 16, rl.RED)
+
+		rl.EndDrawing()
+	}
+
+	rl.CloseWindow()
+}