hello world ada-ncurses new_window

[Alain De Vos <devosalain71@gmail.com>]

Creating a window in ada-ncurses raises an exception :

Code,

with Terminal_Interface.Curses; 
use  Terminal_Interface.Curses;
....
with Ada.Exceptions; 
use  Ada.Exceptions;
with GNAT.OS_Lib;
use GNAT.OS_Lib;
with Text_IO;
use Text_IO;
with Ada.Text_IO;
use Ada.Text_IO;

procedure test01 is
begin
   W1 := New_Window (5,5,1,1);
   Delete (W1);
exception
      when Event : others =>
         Terminal_Interface.Curses.End_Windows;
         Text_IO.Put ("Exception: ");
         Text_IO.Put (Exception_Name (Event));
         Text_IO.New_Line;
         GNAT.OS_Lib.OS_Exit (1);
end test01;

Exception:
raised TERMINAL_INTERFACE.CURSES.CURSES_EXCEPTION : terminal_interface-curses.adb:117