X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=Ada95%2Fsamples%2Fsample-explanation.ads;h=50ec3fb0c7ea950b7b378b750e3e5d48e1f5e435;hp=1e20f0517b0b81619ef1c747e2f8fa0f32050f73;hb=46722468f47c2b77b3987729b4bcf2321cccfd01;hpb=0eb88fc5281804773e2a0c7a488a4452463535ce diff --git a/Ada95/samples/sample-explanation.ads b/Ada95/samples/sample-explanation.ads index 1e20f051..50ec3fb0 100644 --- a/Ada95/samples/sample-explanation.ads +++ b/Ada95/samples/sample-explanation.ads @@ -33,21 +33,18 @@ -- sale, use or other dealings in this Software without prior written -- -- authorization. -- ------------------------------------------------------------------------------ --- Author: Juergen Pfeifer 1996 +-- Author: Juergen Pfeifer, 1996 +-- Contact: http://www.familiepfeifer.de/Contact.aspx?Lang=en -- Version Control --- $Revision: 1.7 $ +-- $Revision: 1.9 $ -- Binding Version 01.00 ------------------------------------------------------------------------------ -- Poor mans help system. This scans a sequential file for key lines and -- then reads the lines up to the next key. Those lines are presented in -- a window as help or explanation. -- -with Terminal_Interface.Curses; - package Sample.Explanation is - package Curses renames Terminal_Interface.Curses; - procedure Explain (Key : in String); -- Retrieve the text associated with this key and display it.