ncurses 5.5

[ncurses.git] / Ada95 / samples / ncurses2-m.adb

diff --git a/Ada95/samples/ncurses2-m.adb b/Ada95/samples/ncurses2-m.adb
index 214c735bf9ac685ef6a9330ed7c0c39c53d93607..7b49fc52d1eb91b7e65842714dd795fa00f444c7 100644 (file)
--- a/Ada95/samples/ncurses2-m.adb
+++ b/Ada95/samples/ncurses2-m.adb
@@ -35,7 +35,8 @@
 ------------------------------------------------------------------------------
 --  Author: Eugene V. Melaragno <aldomel@ix.netcom.com> 2000
 --  Version Control
 ------------------------------------------------------------------------------
 --  Author: Eugene V. Melaragno <aldomel@ix.netcom.com> 2000
 --  Version Control

---  $Revision: 1.2 $
+--  $Revision: 1.5 $
+--  $Date: 2004/08/21 21:37:00 $

 --  Binding Version 01.00
 ------------------------------------------------------------------------------
 --  TODO use Default_Character where appropriate
 --  Binding Version 01.00
 ------------------------------------------------------------------------------
 --  TODO use Default_Character where appropriate


@@ -332,7 +333,7 @@ package body ncurses2.m is
                default_colors := True;
             when 'e' =>
                myio.Get (optarg.all, tmpi, length);
                default_colors := True;
             when 'e' =>
                myio.Get (optarg.all, tmpi, length);

-               if Integer (tmpi) > 3 then
+               if tmpi > 3 then

                   usage;
                   return 1;
                end if;
                   usage;
                   return 1;
                end if;