X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-mouse__adb.htm;h=1bd4a0a2c751f3844ac2fa9d31fc9a470cebff53;hp=4e3a178ee8ba900dcda30bb68a4fbfa7e8768598;hb=77afe78361875f531dc2bf8d73f2e781c8e76176;hpb=f6718d80c998008de6cfe8e6296bee3958ff86d7
diff --git a/doc/html/ada/terminal_interface-curses-mouse__adb.htm b/doc/html/ada/terminal_interface-curses-mouse__adb.htm
index 4e3a178e..1bd4a0a2 100644
--- a/doc/html/ada/terminal_interface-curses-mouse__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-mouse__adb.htm
@@ -12,7 +12,7 @@
-- B O D Y --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 1998-2004,2008 Free Software Foundation, Inc. --
+-- Copyright (c) 1998-2008,2009 Free Software Foundation, Inc. --
-- --
-- Permission is hereby granted, free of charge, to any person obtaining a --
-- copy of this software and associated documentation files (the --
@@ -40,13 +40,13 @@
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
--- @Revision: 1.22 @
--- @Date: 2008/07/26 18:51:11 @
+-- @Revision: 1.24 @
+-- @Date: 2009/12/26 17:38:58 @
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses.Aux; use Terminal_Interface.Curses.Aux;
-with Interfaces.C; use Interfaces.C;
-use Interfaces;
+with Interfaces.C; use Interfaces.C;
+use Interfaces;
package body Terminal_Interface.Curses.Mouse is
@@ -55,7 +55,7 @@
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, "has_mouse");
begin
if Has_Key (Key_Mouse) or else Mouse_Avail /= 0 then
return True;
@@ -79,8 +79,8 @@
return Event;
end Get_Mouse;
- procedure Register_Reportable_Event (Button : in Mouse_Button;
- State : in Button_State;
+ procedure Register_Reportable_Event (Button : Mouse_Button;
+ State : Button_State;
Mask : in out Event_Mask)
is
Button_Nr : constant Natural := Mouse_Button'Pos (Button);
@@ -97,8 +97,8 @@
end if;
end Register_Reportable_Event;
- procedure Register_Reportable_Events (Button : in Mouse_Button;
- State : in Button_States;
+ procedure Register_Reportable_Events (Button : Mouse_Button;
+ State : Button_States;
Mask : in out Event_Mask)
is
begin
@@ -125,7 +125,7 @@
return Old;
end Start_Mouse;
- procedure End_Mouse (Mask : in Event_Mask := No_Events)
+ procedure End_Mouse (Mask : Event_Mask := No_Events)
is
begin
if Mask /= No_Events then
@@ -133,11 +133,11 @@
end if;
end End_Mouse;
- procedure Dispatch_Event (Mask : in Event_Mask;
+ procedure Dispatch_Event (Mask : Event_Mask;
Button : out Mouse_Button;
State : out Button_State);
- procedure Dispatch_Event (Mask : in Event_Mask;
+ procedure Dispatch_Event (Mask : Event_Mask;
Button : out Mouse_Button;
State : out Button_State) is
L : Event_Mask;
@@ -173,7 +173,7 @@
end if;
end Dispatch_Event;
- procedure Get_Event (Event : in Mouse_Event;
+ procedure Get_Event (Event : Mouse_Event;
Y : out Line_Position;
X : out Column_Position;
Button : out Mouse_Button;
@@ -186,7 +186,7 @@
Dispatch_Event (Mask, Button, State);
end Get_Event;
- procedure Unget_Mouse (Event : in Mouse_Event)
+ procedure Unget_Mouse (Event : Mouse_Event)
is
function Ungetmouse (Ev : Mouse_Event) return C_Int;
pragma Import (C, Ungetmouse, "ungetmouse");