X-Git-Url: http://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=Ada95%2Fsamples%2Fsample-explanation.ads;h=18617ac46add4a5d5066780639a09995ad342444;hb=95a30fbbfc81d5eb0a76e139c86e0a6505cad871;hp=ff7bd4ba54cf6d6232e85b3212b2864297af3f7b;hpb=661078ddbde3ce0f3b06e95642fbb9b5fef7dca1;p=ncurses.git diff --git a/Ada95/samples/sample-explanation.ads b/Ada95/samples/sample-explanation.ads index ff7bd4ba..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.5 $ --- Binding Version 00.93 +-- $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.