X-Git-Url: http://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-termcap__adb.htm;h=3a82187099feb2b6c2367d9f252537f340a34f72;hb=29ee95cea37c4bbf2014a35677d9a0750c6b52a8;hp=27b23024d3b6172222057ada46dddef27e6c02ce;hpb=f6718d80c998008de6cfe8e6296bee3958ff86d7;p=ncurses.git diff --git a/doc/html/ada/terminal_interface-curses-termcap__adb.htm b/doc/html/ada/terminal_interface-curses-termcap__adb.htm index 27b23024..3a821870 100644 --- a/doc/html/ada/terminal_interface-curses-termcap__adb.htm +++ b/doc/html/ada/terminal_interface-curses-termcap__adb.htm @@ -12,7 +12,7 @@ -- B O D Y -- -- -- ------------------------------------------------------------------------------ --- Copyright (c) 2000-2004,2006 Free Software Foundation, Inc. -- +-- Copyright (c) 2000-2006,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 -- @@ -40,8 +40,8 @@ ------------------------------------------------------------------------------ -- Author: Juergen Pfeifer, 1996 -- Version Control: --- @Revision: 1.11 @ --- @Date: 2006/06/25 14:30:22 @ +-- @Revision: 1.12 @ +-- @Date: 2009/12/26 17:38:58 @ -- Binding Version 01.00 ------------------------------------------------------------------------------ @@ -64,7 +64,7 @@ To_C (Name, NameTxt, Length); result := tgetent (char_array (ignored), NameTxt); if result = -1 then - raise Curses_Exception; + raise Curses_Exception; else return Boolean'Val (result); end if; @@ -87,7 +87,7 @@ end Get_Flag; ------------------------------------------------------------------------------ - procedure Get_Number (Name : in String; + procedure Get_Number (Name : String; Value : out Integer; Result : out Boolean) is