gistfile1.ml

let () =
  prerr_endline @@ GMain.Main.init ();
  let window = GWindow.window ~title: "liv" ~allow_shrink: true ~allow_grow: true () in
  window#show ();

  window#event#add [`SCROLL];
  ignore @@ window#event#connect#scroll ~callback:(fun ev -> 
    Printf.eprintf "at +%.0f+%.0f %s\n%!"
      (GdkEvent.Scroll.x ev)
      (GdkEvent.Scroll.y ev)
      (match GdkEvent.Scroll.direction ev with
      | `UP -> "up"
      | `DOWN -> "down"
      | `LEFT -> "left"
      | `RIGHT -> "right");
    false);

  GMain.Main.main ()