-- part of OpenGLAda, (c) 2017 Felix Krause
-- released under the terms of the MIT license, see the file "COPYING"
package Glfw.Input.Mouse is
type Button is new Interfaces.C.int range 0 .. 7;
type Enter_Action is (Leaving, Entering);
type Cursor_Mode is (Normal, Hidden, Disabled);
Left_Button : constant := 0;
Right_Button : constant := 1;
Middle_Button : constant := 2;
subtype Coordinate is Interfaces.C.double;
subtype Scroll_Offset is Interfaces.C.double;
private
for Button'Size use Interfaces.C.int'Size;
for Enter_Action use (Leaving => 0,
Entering => 1);
for Enter_Action'Size use C.int'Size;
for Cursor_Mode use (Normal => 16#34001#,
Hidden => 16#34002#,
Disabled => 16#34003#);
for Cursor_Mode'Size use Interfaces.C.int'Size;
end Glfw.Input.Mouse;