X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-mouse__adb.htm;fp=doc%2Fhtml%2Fada%2Fterminal_interface-curses-mouse__adb.htm;h=13cecb1dedb80fe6653d867de7ac3cffdb72e996;hp=1e43f09993c7e9e1b3e1f34265567aee4b9861e9;hb=db5f7f4f146a91ba8ec7f1df8e9d7f9d2d7c74fd;hpb=fe7c48d7d5115212f09b4ec0d84b189a76953f0d
diff --git a/doc/html/ada/terminal_interface-curses-mouse__adb.htm b/doc/html/ada/terminal_interface-curses-mouse__adb.htm
index 1e43f099..13cecb1d 100644
--- a/doc/html/ada/terminal_interface-curses-mouse__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-mouse__adb.htm
@@ -24,7 +24,7 @@
-
+
@@ -52,8 +52,8 @@
-
-
+
+
with Terminal_Interface.Curses.Aux; use Terminal_Interface.Curses.Aux;
@@ -104,7 +104,7 @@
if Button in Real_Buttons then
Mask := Mask or ((2 ** (6 * Button_Nr)) ** State_Nr);
else
- Mask := Mask or (BUTTON_CTRL ** (Button_Nr - 4));
+ Mask := Mask or (BUTTON_CTRL ** (Button_Nr - 4));
end if;
end if;
end Register_Reportable_Event;
@@ -155,13 +155,13 @@
L : Event_Mask;
begin
Button := Alt;
- if (Mask and BUTTON1_EVENTS) /= 0 then
+ if (Mask and BUTTON1_EVENTS) /= 0 then
Button := Left;
- elsif (Mask and BUTTON2_EVENTS) /= 0 then
+ elsif (Mask and BUTTON2_EVENTS) /= 0 then
Button := Middle;
- elsif (Mask and BUTTON3_EVENTS) /= 0 then
+ elsif (Mask and BUTTON3_EVENTS) /= 0 then
Button := Right;
- elsif (Mask and BUTTON4_EVENTS) /= 0 then
+ elsif (Mask and BUTTON4_EVENTS) /= 0 then
Button := Button4;
end if;
if Button in Real_Buttons then
@@ -175,11 +175,11 @@
end loop;
else
State := Pressed;
- if (Mask and BUTTON_CTRL) /= 0 then
+ if (Mask and BUTTON_CTRL) /= 0 then
Button := Control;
- elsif (Mask and BUTTON_SHIFT) /= 0 then
+ elsif (Mask and BUTTON_SHIFT) /= 0 then
Button := Shift;
- elsif (Mask and BUTTON_ALT) /= 0 then
+ elsif (Mask and BUTTON_ALT) /= 0 then
Button := Alt;
end if;
end if;
@@ -191,10 +191,10 @@
Button : out Mouse_Button;
State : out Button_State)
is
- Mask : constant Event_Mask := Event.Bstate;
+ Mask : constant Event_Mask := Event.Bstate;
begin
- X := Column_Position (Event.X);
- Y := Line_Position (Event.Y);
+ X := Column_Position (Event.X);
+ Y := Line_Position (Event.Y);
Dispatch_Event (Mask, Button, State);
end Get_Event;
@@ -215,20 +215,21 @@
return Curses_Bool;
pragma Import (C, Wenclose, "wenclose");
begin
- if Wenclose (Win, C_Int (Event.Y), C_Int (Event.X))
- = Curses_Bool_False then
+ if Wenclose (Win, C_Int (Event.Y), C_Int (Event.X))
+ = Curses_Bool_False
+ then
return False;
else
return True;
end if;
end Enclosed_In_Window;
- function Mouse_Interval (Msec : Natural := 200) return Natural
+ function Mouse_Interval (Msec : Natural := 200) return Natural
is
- function Mouseinterval (Msec : C_Int) return C_Int;
+ function Mouseinterval (Msec : C_Int) return C_Int;
pragma Import (C, Mouseinterval, "mouseinterval");
begin
- return Natural (Mouseinterval (C_Int (Msec)));
+ return Natural (Mouseinterval (C_Int (Msec)));
end Mouse_Interval;
end Terminal_Interface.Curses.Mouse;