ncurses 5.7 - patch 20091226

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

diff --git a/Ada95/samples/sample-function_key_setting.adb b/Ada95/samples/sample-function_key_setting.adb
index 8009ab622992335f5e98e47e118aeffc0e18eef9..0ce3a224c6842af55c8ee9d821f2abe47315aa28 100644 (file)
--- a/Ada95/samples/sample-function_key_setting.adb
+++ b/Ada95/samples/sample-function_key_setting.adb
@@ -7,7 +7,7 @@
 --                                 B O D Y                                  --
 --                                                                          --
 ------------------------------------------------------------------------------
 --                                 B O D Y                                  --
 --                                                                          --
 ------------------------------------------------------------------------------

--- Copyright (c) 1998 Free Software Foundation, Inc.                        --
+-- Copyright (c) 1998-2004,2009 Free Software Foundation, Inc.              --

 --                                                                          --
 -- Permission is hereby granted, free of charge, to any person obtaining a  --
 -- copy of this software and associated documentation files (the            --
 --                                                                          --
 -- Permission is hereby granted, free of charge, to any person obtaining a  --
 -- copy of this software and associated documentation files (the            --


@@ -34,9 +34,9 @@
 -- authorization.                                                           --
 ------------------------------------------------------------------------------
 --  Author:  Juergen Pfeifer, 1996
 -- authorization.                                                           --
 ------------------------------------------------------------------------------
 --  Author:  Juergen Pfeifer, 1996

---  Contact: http://www.familiepfeifer.de/Contact.aspx?Lang=en

 --  Version Control
 --  Version Control

---  $Revision: 1.9 $
+--  $Revision: 1.14 $
+--  $Date: 2009/12/26 17:38:58 $

 --  Binding Version 01.00
 ------------------------------------------------------------------------------
 with Ada.Unchecked_Deallocation;
 --  Binding Version 01.00
 ------------------------------------------------------------------------------
 with Ada.Unchecked_Deallocation;


@@ -81,8 +81,8 @@ package body Sample.Function_Key_Setting is
 
    Top_Of_Stack : Env_Ptr := null;
 
 
    Top_Of_Stack : Env_Ptr := null;
 

-   procedure Push_Environment (Key   : in String;
-                               Reset : in Boolean := True)
+   procedure Push_Environment (Key   : String;
+                               Reset : Boolean := True)

    is
       P : constant Env_Ptr := new Key_Environment (Number_Of_Keys);
    begin
    is
       P : constant Env_Ptr := new Key_Environment (Number_Of_Keys);
    begin


@@ -98,7 +98,7 @@ package body Sample.Function_Key_Setting is
       P.Help := Active_Context;
       P.Notepad := Active_Notepad;
       --  The notepad must now vanish and the new notepad is empty.
       P.Help := Active_Context;
       P.Notepad := Active_Notepad;
       --  The notepad must now vanish and the new notepad is empty.

-      if (P.Notepad /= Null_Panel) then
+      if P.Notepad /= Null_Panel then

          Hide (P.Notepad);
          Update_Panels;
       end if;
          Hide (P.Notepad);
          Update_Panels;
       end if;


@@ -160,7 +160,7 @@ package body Sample.Function_Key_Setting is
       end if;
    end Find_Context;
 
       end if;
    end Find_Context;
 

-   procedure Notepad_To_Context (Pan : in Panel)
+   procedure Notepad_To_Context (Pan : Panel)

    is
       W : Window;
    begin
    is
       W : Window;
    begin