X-Git-Url: https://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses__adb.htm;h=a0be638f131c603c966e81fedb8d7eadb53f29fc;hb=refs%2Ftags%2Fv5.2;hp=145e2a358b7d232c81b9ba0a30c5edb7caf66863;hpb=b1f61d9f3aa244512045a6b02e759825d7049d34;p=ncurses.git diff --git a/doc/html/ada/terminal_interface-curses__adb.htm b/doc/html/ada/terminal_interface-curses__adb.htm index 145e2a35..a0be638f 100644 --- a/doc/html/ada/terminal_interface-curses__adb.htm +++ b/doc/html/ada/terminal_interface-curses__adb.htm @@ -39,7 +39,7 @@ ------------------------------------------------------------------------------ -- Author: Jürgen Pfeifer <<juergen.pfeifer@gmx.net>> 1996 -- Version Control: --- @Revision: 1.25 @ +-- @Revision: 1.26 @ -- Binding Version 01.00 ------------------------------------------------------------------------------ with System; @@ -926,7 +926,7 @@ when Non_Blocking => Time := 0; when Delayed => if Amount = 0 then - raise CONSTRAINT_ERROR; + raise Constraint_Error; end if; Time := C_Int (Amount); end case;