From 332fa27640b1901ac632e6d37a4aa9643d0f8594 Mon Sep 17 00:00:00 2001 From: Lorry Tar Creator Date: Wed, 20 Oct 2021 23:22:45 +0000 Subject: ncurses-6.3 --- doc/html/ada/funcs/M.htm | 2 +- doc/html/ada/funcs/U.htm | 2 +- doc/html/ada/funcs/W.htm | 2 +- .../ada/terminal_interface-curses-mouse__adb.htm | 43 +++++++++++----------- .../ada/terminal_interface-curses-mouse__ads.htm | 18 ++++----- .../terminal_interface-curses_constants__ads.htm | 4 +- 6 files changed, 36 insertions(+), 35 deletions(-) (limited to 'doc/html/ada') diff --git a/doc/html/ada/funcs/M.htm b/doc/html/ada/funcs/M.htm index 05af814..68b1d51 100644 --- a/doc/html/ada/funcs/M.htm +++ b/doc/html/ada/funcs/M.htm @@ -29,7 +29,7 @@
  • Menu_Win
  • Meta
  • MMask -
  • Mouseinterval +
  • Mouseinterval
  • Mouse_Avail
  • Mouse_Interval
  • Move - terminal_interface-curses-forms.ads:614 diff --git a/doc/html/ada/funcs/U.htm b/doc/html/ada/funcs/U.htm index 70880e3..6c5a5fe 100644 --- a/doc/html/ada/funcs/U.htm +++ b/doc/html/ada/funcs/U.htm @@ -12,7 +12,7 @@
  • Unctrl - terminal_interface-curses.adb:2037
  • Undo_Keystroke
  • Ungetch -
  • Ungetmouse +
  • Ungetmouse
  • Unget_Mouse
  • Untouch
  • Un_Control - terminal_interface-curses.ads:1793 diff --git a/doc/html/ada/funcs/W.htm b/doc/html/ada/funcs/W.htm index 77fbf23..926ec19 100644 --- a/doc/html/ada/funcs/W.htm +++ b/doc/html/ada/funcs/W.htm @@ -26,7 +26,7 @@
  • Wdelch
  • Wdelwin
  • Wechochar -
  • Wenclose +
  • Wenclose
  • Werase
  • Wgetbkgd
  • Wgetch diff --git a/doc/html/ada/terminal_interface-curses-mouse__adb.htm b/doc/html/ada/terminal_interface-curses-mouse__adb.htm index 5b44449..2035f6b 100644 --- a/doc/html/ada/terminal_interface-curses-mouse__adb.htm +++ b/doc/html/ada/terminal_interface-curses-mouse__adb.htm @@ -53,8 +53,8 @@ ------------------------------------------------------------------------------ -- Author: Juergen Pfeifer, 1996 -- Version Control: --- @Revision: 1.27 @ --- @Date: 2020/02/02 23:34:34 @ +-- @Revision: 1.28 @ +-- @Date: 2020/06/27 18:50:44 @ -- Binding Version 01.00 ------------------------------------------------------------------------------ with Terminal_Interface.Curses.Aux; use Terminal_Interface.Curses.Aux; @@ -164,10 +164,11 @@ Button := Button4; end if; if Button in Real_Buttons then + State := Released; -- preset to non real button; L := 2 ** (6 * Mouse_Button'Pos (Button)); - for I in Button_State'Range loop + for I in Button_State'Range loop if (Mask and L) /= 0 then - State := I; + State := I; exit; end if; L := 2 * L; @@ -184,37 +185,37 @@ end if; end Dispatch_Event; - procedure Get_Event (Event : Mouse_Event; - Y : out Line_Position; - X : out Column_Position; - Button : out Mouse_Button; - State : out Button_State) + procedure Get_Event (Event : Mouse_Event; + Y : out Line_Position; + X : out Column_Position; + 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); - Dispatch_Event (Mask, Button, State); + Dispatch_Event (Mask, Button, State); end Get_Event; - procedure Unget_Mouse (Event : Mouse_Event) + procedure Unget_Mouse (Event : Mouse_Event) is - function Ungetmouse (Ev : Mouse_Event) return C_Int; + function Ungetmouse (Ev : Mouse_Event) return C_Int; pragma Import (C, Ungetmouse, "ungetmouse"); begin - if Ungetmouse (Event) = Curses_Err then + if Ungetmouse (Event) = Curses_Err then raise Curses_Exception; end if; end Unget_Mouse; - function Enclosed_In_Window (Win : Window := Standard_Window; - Event : Mouse_Event) return Boolean + function Enclosed_In_Window (Win : Window := Standard_Window; + Event : Mouse_Event) return Boolean is - function Wenclose (Win : Window; Y : C_Int; X : C_Int) + 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)) + if Wenclose (Win, C_Int (Event.Y), C_Int (Event.X)) = Curses_Bool_False then return False; @@ -223,12 +224,12 @@ 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; diff --git a/doc/html/ada/terminal_interface-curses-mouse__ads.htm b/doc/html/ada/terminal_interface-curses-mouse__ads.htm index c7b563b..c4de5e5 100644 --- a/doc/html/ada/terminal_interface-curses-mouse__ads.htm +++ b/doc/html/ada/terminal_interface-curses-mouse__ads.htm @@ -144,11 +144,11 @@ -- AKA: getmouse() pragma Inline (Get_Mouse); - procedure Get_Event (Event : Mouse_Event; - Y : out Line_Position; - X : out Column_Position; - Button : out Mouse_Button; - State : out Button_State); + procedure Get_Event (Event : Mouse_Event; + Y : out Line_Position; + X : out Column_Position; + Button : out Mouse_Button; + State : out Button_State); -- !!! Warning: X and Y are screen coordinates. Due to ripped of lines they -- may not be identical to window coordinates. -- Not Implemented: Get_Event only reports one event, the C library @@ -156,19 +156,19 @@ pragma Inline (Get_Event); -- | - procedure Unget_Mouse (Event : Mouse_Event); + procedure Unget_Mouse (Event : Mouse_Event); -- AKA: ungetmouse() pragma Inline (Unget_Mouse); -- | - function Enclosed_In_Window (Win : Window := Standard_Window; - Event : Mouse_Event) return Boolean; + function Enclosed_In_Window (Win : Window := Standard_Window; + Event : Mouse_Event) return Boolean; -- AKA: wenclose() -- But : use event instead of screen coordinates. pragma Inline (Enclosed_In_Window); -- | - function Mouse_Interval (Msec : Natural := 200) return Natural; + function Mouse_Interval (Msec : Natural := 200) return Natural; -- AKA: mouseinterval() pragma Inline (Mouse_Interval); diff --git a/doc/html/ada/terminal_interface-curses_constants__ads.htm b/doc/html/ada/terminal_interface-curses_constants__ads.htm index d948963..d0d54dd 100644 --- a/doc/html/ada/terminal_interface-curses_constants__ads.htm +++ b/doc/html/ada/terminal_interface-curses_constants__ads.htm @@ -36,8 +36,8 @@ -- Version of the ncurses library from extensions(3NCURSES) NCURSES_VERSION_MAJOR : constant := 6; - NCURSES_VERSION_MINOR : constant := 2; - Version : constant String := "6.2"; + NCURSES_VERSION_MINOR : constant := 3; + Version : constant String := "6.3"; -- Character non-color attributes from attr(3NCURSES) -- cgit v1.2.1