X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=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 @@ -- B O D Y -- -- -- ------------------------------------------------------------------------------ --- Copyright (c) 1998-2008,2009 Free Software Foundation, Inc. -- +-- Copyright (c) 1998-2009,2014 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 -- @@ -52,8 +52,8 @@ ------------------------------------------------------------------------------ -- Author: Juergen Pfeifer, 1996 -- Version Control: --- @Revision: 1.24 @ --- @Date: 2009/12/26 17:38:58 @ +-- @Revision: 1.25 @ +-- @Date: 2014/09/13 19:10:18 @ -- Binding Version 01.00 ------------------------------------------------------------------------------ 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; -- preset to non real button; - 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;