From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 2002:a05:620a:2112:: with SMTP id
 l18mr5384232qkl.384.1573164340720;
        Thu, 07 Nov 2019 14:05:40 -0800 (PST)
X-Received: by 2002:aca:4245:: with SMTP id p66mr2999820oia.76.1573164339860;
 Thu, 07 Nov 2019 14:05:39 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!news.gegeweb.eu!gegeweb.org!usenet-fr.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!j16no10346645qtl.0!news-out.google.com!p4ni539qtu.1!nntp.google.com!j16no10346640qtl.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Thu, 7 Nov 2019 14:05:39 -0800 (PST)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=2a02:a03f:e3e9:4d00:1260:4bff:fe89:deb2;
 posting-account=kTRirAoAAACnF_wtAOSamxYBSVvmJuCa
NNTP-Posting-Host: 2a02:a03f:e3e9:4d00:1260:4bff:fe89:deb2
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <a1b58a33-26cb-43b4-9242-4ca809b343d3@googlegroups.com>
Subject: hello world ada-ncurses new_window
From: Alain De Vos <devosalain71@gmail.com>
Injection-Date: Thu, 07 Nov 2019 22:05:40 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader01.eternal-september.org comp.lang.ada:57511
Date: 2019-11-07T14:05:39-08:00
List-Id: <comp.lang.ada>

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