X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=Ada95%2Fsamples%2Fsample-explanation.ads;h=18617ac46add4a5d5066780639a09995ad342444;hp=1e20f0517b0b81619ef1c747e2f8fa0f32050f73;hb=027ae42953e3186daed8f3882da73de48291b606;hpb=0eb88fc5281804773e2a0c7a488a4452463535ce diff --git a/Ada95/samples/sample-explanation.ads b/Ada95/samples/sample-explanation.ads index 1e20f051..18617ac4 100644 --- a/Ada95/samples/sample-explanation.ads +++ b/Ada95/samples/sample-explanation.ads @@ -33,21 +33,17 @@ -- sale, use or other dealings in this Software without prior written -- -- authorization. -- ------------------------------------------------------------------------------ --- Author: Juergen Pfeifer 1996 +-- Author: Juergen Pfeifer, 1996 -- Version Control --- $Revision: 1.7 $ +-- $Revision: 1.10 $ -- 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.