ncurses 5.8 - patch 20110319

[ncurses.git] / Ada95 / samples / sample-explanation.adb

diff --git a/Ada95/samples/sample-explanation.adb b/Ada95/samples/sample-explanation.adb
index 93c497c39b80fb74f69787abcf00853576eff722..cf1ebb60361213989125c4d0ff1f0befe47b378f 100644 (file)
--- a/Ada95/samples/sample-explanation.adb
+++ b/Ada95/samples/sample-explanation.adb
@@ -35,8 +35,8 @@
 ------------------------------------------------------------------------------
 --  Author:  Juergen Pfeifer, 1996
 --  Version Control
 ------------------------------------------------------------------------------
 --  Author:  Juergen Pfeifer, 1996
 --  Version Control

---  $Revision: 1.22 $
---  $Date: 2011/03/06 01:22:23 $
+--  $Revision: 1.24 $
+--  $Date: 2011/03/19 12:18:35 $

 --  Binding Version 01.00
 ------------------------------------------------------------------------------
 --  Poor mans help system. This scans a sequential file for key lines and
 --  Binding Version 01.00
 ------------------------------------------------------------------------------
 --  Poor mans help system. This scans a sequential file for key lines and


@@ -126,7 +126,7 @@ package body Sample.Explanation is
          Add (W, Key);
          Add (W, " not found.");
          Add (W, Character'Val (10));
          Add (W, Key);
          Add (W, " not found.");
          Add (W, Character'Val (10));

-         Add (W, "Press the Function key labelled 'Quit' key to continue.");
+         Add (W, "Press the Function key labeled 'Quit' key to continue.");

       end Unknown_Key;
 
       procedure Redo
       end Unknown_Key;
 
       procedure Redo


@@ -405,4 +405,10 @@ package body Sample.Explanation is
 
 begin
    Open (F, In_File, File_Name);
 
 begin
    Open (F, In_File, File_Name);

+exception
+   when Name_Error =>
+      Put_Line (Standard_Error,
+                "The file explain.txt was not found in the current directory."
+                );
+      raise;

 end Sample.Explanation;
 end Sample.Explanation;