1 ------------------------------------------------------------------------------
3 -- GNAT ncurses Binding Samples --
5 -- Sample.Explanation --
11 -- The ncurses Ada95 binding is copyrighted 1996 by --
12 -- Juergen Pfeifer, Email: Juergen.Pfeifer@T-Online.de --
14 -- Permission is hereby granted to reproduce and distribute this --
15 -- binding by any means and for any fee, whether alone or as part --
16 -- of a larger distribution, in source or in binary form, PROVIDED --
17 -- this notice is included with any such distribution, and is not --
18 -- removed from any of its header files. Mention of ncurses and the --
19 -- author of this binding in any applications linked with it is --
20 -- highly appreciated. --
22 -- This binding comes AS IS with no warranty, implied or expressed. --
23 ------------------------------------------------------------------------------
26 ------------------------------------------------------------------------------
27 -- Poor mans help system. This scans a sequential file for key lines and
28 -- then reads the lines up to the next key. Those lines are presented in
29 -- a window as help or explanation.
31 with Terminal_Interface.Curses;
33 package Sample.Explanation is
35 package Curses renames Terminal_Interface.Curses;
37 procedure Explain (Key : in String);
38 -- Retrieve the text associated with this key and display it.
40 procedure Explain_Context;
41 -- Explain the current context.
43 procedure Notepad (Key : in String);
44 -- Put a note on the screen and maintain it with the context
46 Explanation_Not_Found : exception;
47 Explanation_Error : exception;
49 end Sample.Explanation;