X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-mouse__ads.htm;h=0c4545a43adbaeccbcb11a78262bcd65e9f0aaac;hp=759d948213c445257c9c2f81a548ce234ea65d0a;hb=db5f7f4f146a91ba8ec7f1df8e9d7f9d2d7c74fd;hpb=34d602f272c394e9a980438e636e1ce4d355f83b
diff --git a/doc/html/ada/terminal_interface-curses-mouse__ads.htm b/doc/html/ada/terminal_interface-curses-mouse__ads.htm
index 759d9482..0c4545a4 100644
--- a/doc/html/ada/terminal_interface-curses-mouse__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-mouse__ads.htm
@@ -24,7 +24,7 @@
-
+
@@ -52,8 +52,8 @@
-
-
+
+
with System;
@@ -167,53 +167,56 @@
pragma Inline (Enclosed_In_Window);
- function Mouse_Interval (Msec : Natural := 200) return Natural;
+ function Mouse_Interval (Msec : Natural := 200) return Natural;
pragma Inline (Mouse_Interval);
private
- type Event_Mask is new Interfaces.C.unsigned_long;
+
+
+
+ type Event_Mask is mod 4294967296;
type Mouse_Event is
record
- Id : Integer range Integer (Interfaces.C.short'First) ..
+ Id : Integer range Integer (Interfaces.C.short'First) ..
Integer (Interfaces.C.short'Last);
- X, Y, Z : Integer range Integer (Interfaces.C.int'First) ..
+ X, Y, Z : Integer range Integer (Interfaces.C.int'First) ..
Integer (Interfaces.C.int'Last);
- Bstate : Event_Mask;
+ Bstate : Event_Mask;
end record;
pragma Convention (C, Mouse_Event);
for Mouse_Event use
record
- Id at 0 range Curses_Constants.MEVENT_id_First
+ Id at 0 range Curses_Constants.MEVENT_id_First
.. Curses_Constants.MEVENT_id_Last;
- X at 0 range Curses_Constants.MEVENT_x_First
+ X at 0 range Curses_Constants.MEVENT_x_First
.. Curses_Constants.MEVENT_x_Last;
- Y at 0 range Curses_Constants.MEVENT_y_First
+ Y at 0 range Curses_Constants.MEVENT_y_First
.. Curses_Constants.MEVENT_y_Last;
- Z at 0 range Curses_Constants.MEVENT_z_First
+ Z at 0 range Curses_Constants.MEVENT_z_First
.. Curses_Constants.MEVENT_z_Last;
- Bstate at 0 range Curses_Constants.MEVENT_bstate_First
+ Bstate at 0 range Curses_Constants.MEVENT_bstate_First
.. Curses_Constants.MEVENT_bstate_Last;
end record;
for Mouse_Event'Size use Curses_Constants.MEVENT_Size;
Generation_Bit_Order : System.Bit_Order renames Curses_Constants.Bit_Order;
- BUTTON_CTRL : constant Event_Mask := Curses_Constants.BUTTON_CTRL;
- BUTTON_SHIFT : constant Event_Mask := Curses_Constants.BUTTON_SHIFT;
- BUTTON_ALT : constant Event_Mask := Curses_Constants.BUTTON_ALT;
- BUTTON1_EVENTS : constant Event_Mask
- := Curses_Constants.all_events_button_1;
- BUTTON2_EVENTS : constant Event_Mask
- := Curses_Constants.all_events_button_2;
- BUTTON3_EVENTS : constant Event_Mask
- := Curses_Constants.all_events_button_3;
- BUTTON4_EVENTS : constant Event_Mask
- := Curses_Constants.all_events_button_4;
- ALL_MOUSE_EVENTS : constant Event_Mask := Curses_Constants.ALL_MOUSE_EVENTS;
+ BUTTON_CTRL : constant Event_Mask := Curses_Constants.BUTTON_CTRL;
+ BUTTON_SHIFT : constant Event_Mask := Curses_Constants.BUTTON_SHIFT;
+ BUTTON_ALT : constant Event_Mask := Curses_Constants.BUTTON_ALT;
+ BUTTON1_EVENTS : constant Event_Mask
+ := Curses_Constants.all_events_button_1;
+ BUTTON2_EVENTS : constant Event_Mask
+ := Curses_Constants.all_events_button_2;
+ BUTTON3_EVENTS : constant Event_Mask
+ := Curses_Constants.all_events_button_3;
+ BUTTON4_EVENTS : constant Event_Mask
+ := Curses_Constants.all_events_button_4;
+ ALL_MOUSE_EVENTS : constant Event_Mask := Curses_Constants.ALL_MOUSE_EVENTS;
No_Events : constant Event_Mask := 0;
- All_Events : constant Event_Mask := ALL_MOUSE_EVENTS;
+ All_Events : constant Event_Mask := ALL_MOUSE_EVENTS;
end Terminal_Interface.Curses.Mouse;