X-Git-Url: http://ncurses.scripts.mit.edu/?a=blobdiff_plain;ds=sidebyside;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-mouse__adb.htm;h=a248a7b0a36d5bbee45abdb009d2c4a993eb37b4;hb=8f527f87c0b979d9c2598ef5c3394463af288468;hp=b63ba32c81e275311b76770adacdb650924ddb21;hpb=55ccd2b959766810cf7db8d1c4462f338ce0afc8;p=ncurses.git
diff --git a/doc/html/ada/terminal_interface-curses-mouse__adb.htm b/doc/html/ada/terminal_interface-curses-mouse__adb.htm
index b63ba32c..a248a7b0 100644
--- a/doc/html/ada/terminal_interface-curses-mouse__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-mouse__adb.htm
@@ -46,21 +46,21 @@
------------------------------------------------------------------------------
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
+ if Has_Key (Key_Mouse) or else Mouse_Avail /= 0 then
return True;
else
return False;
@@ -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,15 +115,15 @@
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
R := MMask (Mask, Old'Access);
if R = No_Events then
- Beep;
+ Beep;
end if;
return Old;
end Start_Mouse;
@@ -132,7 +132,7 @@
is
begin
if Mask /= No_Events then
- Beep;
+ Beep;
end if;
end End_Mouse;
@@ -191,23 +191,23 @@
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;
end if;
end Unget_Mouse;
- function Enclosed_In_Window (Win : Window := Standard_Window;
+ 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;