X-Git-Url: https://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=522656805e8b1bdfd1441e84045a199368797df1;hp=b63ba32c81e275311b76770adacdb650924ddb21;hb=027ae42953e3186daed8f3882da73de48291b606;hpb=55ccd2b959766810cf7db8d1c4462f338ce0afc8
diff --git a/doc/html/ada/terminal_interface-curses-mouse__adb.htm b/doc/html/ada/terminal_interface-curses-mouse__adb.htm
index b63ba32c..52265680 100644
--- a/doc/html/ada/terminal_interface-curses-mouse__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-mouse__adb.htm
@@ -46,19 +46,19 @@
------------------------------------------------------------------------------
with System;
-with Terminal_Interface.Curses.Aux; use Terminal_Interface.Curses.Aux;
-with Interfaces.C; use Interfaces.C;
-use Interfaces;
+with Terminal_Interface.Curses.Aux; use Terminal_Interface.Curses.Aux;
+with Interfaces.C; use Interfaces.C;
+use Interfaces;
-package body Terminal_Interface.Curses.Mouse is
+package body Terminal_Interface.Curses.Mouse is
use type System.Bit_Order;
- use type Interfaces.C.int;
+ use type Interfaces.C.int;
function Has_Mouse return Boolean
is
function Mouse_Avail return C_Int;
- pragma Import (C, Mouse_Avail, "_nc_has_mouse");
+ pragma Import (C, Mouse_Avail, "_nc_has_mouse");
begin
if Has_Key (Key_Mouse) or else Mouse_Avail /= 0 then
return True;
@@ -71,8 +71,8 @@
is
type Event_Access is access all Mouse_Event;
- function Getmouse (Ev : Event_Access) return C_Int;
- pragma Import (C, Getmouse, "getmouse");
+ function Getmouse (Ev : Event_Access) return C_Int;
+ pragma Import (C, Getmouse, "getmouse");
Event : aliased Mouse_Event;
begin
@@ -115,9 +115,9 @@
function Start_Mouse (Mask : Event_Mask := All_Events)
return Event_Mask
is
- function MMask (M : Event_Mask;
- O : access Event_Mask) return Event_Mask;
- pragma Import (C, MMask, "mousemask");
+ function MMask (M : Event_Mask;
+ O : access Event_Mask) return Event_Mask;
+ pragma Import (C, MMask, "mousemask");
R : Event_Mask;
Old : aliased Event_Mask;
begin
@@ -191,8 +191,8 @@
procedure Unget_Mouse (Event : in Mouse_Event)
is
- function Ungetmouse (Ev : Mouse_Event) return C_Int;
- pragma Import (C, Ungetmouse, "ungetmouse");
+ function Ungetmouse (Ev : Mouse_Event) return C_Int;
+ pragma Import (C, Ungetmouse, "ungetmouse");
begin
if Ungetmouse (Event) = Curses_Err then
raise Curses_Exception;
@@ -202,12 +202,12 @@
function Enclosed_In_Window (Win : Window := Standard_Window;
Event : Mouse_Event) return Boolean
is
- function Wenclose (Win : Window; Y : C_Int; X : C_Int)
- return Curses_Bool;
- pragma Import (C, Wenclose, "wenclose");
+ function Wenclose (Win : Window; Y : C_Int; X : C_Int)
+ return Curses_Bool;
+ pragma Import (C, Wenclose, "wenclose");
begin
if Wenclose (Win, C_Int (Event.Y), C_Int (Event.X))
- = Curses_Bool_False then
+ = Curses_Bool_False then
return False;
else
return True;
@@ -216,11 +216,11 @@
function Mouse_Interval (Msec : Natural := 200) return Natural
is
- function Mouseinterval (Msec : C_Int) return C_Int;
- pragma Import (C, Mouseinterval, "mouseinterval");
+ function Mouseinterval (Msec : C_Int) return C_Int;
+ pragma Import (C, Mouseinterval, "mouseinterval");
begin
return Natural (Mouseinterval (C_Int (Msec)));
end Mouse_Interval;
-end Terminal_Interface.Curses.Mouse;
+end Terminal_Interface.Curses.Mouse;