1------------------------------------------------------------------------------ 2-- -- 3-- GNAT ncurses Binding Samples -- 4-- -- 5-- Sample.Form_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.15 $ 40-- $Date: 2020/02/02 23:34:34 $ 41-- Binding Version 01.00 42------------------------------------------------------------------------------ 43with Sample.Form_Demo.Aux; 44 45package body Sample.Form_Demo.Handler is 46 47 package Aux renames Sample.Form_Demo.Aux; 48 49 procedure Drive_Me (F : Form; 50 Title : String := "") 51 is 52 L : Line_Count; 53 C : Column_Count; 54 Y : Line_Position; 55 X : Column_Position; 56 begin 57 Aux.Geometry (F, L, C, Y, X); 58 Drive_Me (F, Y, X, Title); 59 end Drive_Me; 60 61 procedure Drive_Me (F : Form; 62 Lin : Line_Position; 63 Col : Column_Position; 64 Title : String := "") 65 is 66 Pan : Panel := Aux.Create (F, Title, Lin, Col); 67 V : Cursor_Visibility := Normal; 68 Handle_CRLF : Boolean := True; 69 70 begin 71 Set_Cursor_Visibility (V); 72 if Aux.Count_Active (F) = 1 then 73 Handle_CRLF := False; 74 end if; 75 loop 76 declare 77 K : constant Key_Code := Aux.Get_Request (F, Pan, Handle_CRLF); 78 R : Driver_Result; 79 begin 80 if (K = 13 or else K = 10) and then not Handle_CRLF then 81 R := Unknown_Request; 82 else 83 R := Driver (F, K); 84 end if; 85 case R is 86 when Form_Ok => null; 87 when Unknown_Request => 88 if My_Driver (F, K, Pan) then 89 exit; 90 end if; 91 when others => Beep; 92 end case; 93 end; 94 end loop; 95 Set_Cursor_Visibility (V); 96 Aux.Destroy (F, Pan); 97 end Drive_Me; 98 99end Sample.Form_Demo.Handler; 100