1------------------------------------------------------------------------------ 2-- -- 3-- GNAT ncurses Binding Samples -- 4-- -- 5-- Sample.Menu_Demo.Handler -- 6-- -- 7-- B O D Y -- 8-- -- 9------------------------------------------------------------------------------ 10-- Copyright 2020 Thomas E. Dickey -- 11-- Copyright 1998-2004,2009 Free Software Foundation, Inc. -- 12-- -- 13-- Permission is hereby granted, free of charge, to any person obtaining a -- 14-- copy of this software and associated documentation files (the -- 15-- "Software"), to deal in the Software without restriction, including -- 16-- without limitation the rights to use, copy, modify, merge, publish, -- 17-- distribute, distribute with modifications, sublicense, and/or sell -- 18-- copies of the Software, and to permit persons to whom the Software is -- 19-- furnished to do so, subject to the following conditions : -- 20-- -- 21-- The above copyright notice and this permission notice shall be included -- 22-- in all copies or substantial portions of the Software. -- 23-- -- 24-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -- 25-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -- 26-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -- 27-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, -- 28-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR -- 29-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR -- 30-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. -- 31-- -- 32-- Except as contained in this notice, the name(s) of the above copyright -- 33-- holders shall not be used in advertising or otherwise to promote the -- 34-- sale, use or other dealings in this Software without prior written -- 35-- authorization. -- 36------------------------------------------------------------------------------ 37-- Author: Juergen Pfeifer, 1996 38-- Version Control 39-- $Revision: 1.17 $ 40-- $Date: 2020/02/02 23:34:34 $ 41-- Binding Version 01.00 42------------------------------------------------------------------------------ 43with Sample.Menu_Demo.Aux; 44with Sample.Manifest; use Sample.Manifest; 45with Terminal_Interface.Curses.Mouse; use Terminal_Interface.Curses.Mouse; 46 47package body Sample.Menu_Demo.Handler is 48 49 package Aux renames Sample.Menu_Demo.Aux; 50 51 procedure Drive_Me (M : Menu; 52 Title : String := "") 53 is 54 L : Line_Count; 55 C : Column_Count; 56 Y : Line_Position; 57 X : Column_Position; 58 begin 59 Aux.Geometry (M, L, C, Y, X); 60 Drive_Me (M, Y, X, Title); 61 end Drive_Me; 62 63 procedure Drive_Me (M : Menu; 64 Lin : Line_Position; 65 Col : Column_Position; 66 Title : String := "") 67 is 68 Mask : Event_Mask := No_Events; 69 Old : Event_Mask; 70 Pan : Panel := Aux.Create (M, Title, Lin, Col); 71 V : Cursor_Visibility := Invisible; 72 begin 73 -- We are only interested in Clicks with the left button 74 Register_Reportable_Events (Left, All_Clicks, Mask); 75 Old := Start_Mouse (Mask); 76 Set_Cursor_Visibility (V); 77 loop 78 declare 79 K : Key_Code := Aux.Get_Request (M, Pan); 80 R : constant Driver_Result := Driver (M, K); 81 begin 82 case R is 83 when Menu_Ok => null; 84 when Unknown_Request => 85 declare 86 I : constant Item := Current (M); 87 O : Item_Option_Set; 88 begin 89 if K = Key_Mouse then 90 K := SELECT_ITEM; 91 end if; 92 Get_Options (I, O); 93 if K = SELECT_ITEM and then not O.Selectable then 94 Beep; 95 else 96 if My_Driver (M, K, Pan) then 97 exit; 98 end if; 99 end if; 100 end; 101 when others => Beep; 102 end case; 103 end; 104 end loop; 105 End_Mouse (Old); 106 Aux.Destroy (M, Pan); 107 end Drive_Me; 108 109end Sample.Menu_Demo.Handler; 110