print from curses

[morgon]

Hi,

is it possible to print from a curses-program in such a way that the output is retained after the script ends?

To illustrate:

use Curses::UI;
my $cui = new Curses::UI;
my $win = $cui->add('window_id', 'Window');

my $listbox = $win->add(
    'mylistbox', 'Listbox',
    -values    => [1, 2, 3],
    -labels    => { 1 => 'One',
                    2 => 'Two',
                    3 => 'Three' },
);

$listbox->onChange( sub { 
                          my $sel =  $listbox->get; 
                          endwin; 
                          print $sel; 
                          exit; 
                        } );

$cui->set_binding( sub { exit(0); } , "\cC");
$cui->mainloop;

So my thinking was that calling endwin in the handler would end all the curses-magic and you could print stuff that curses would no longer overwrite, but unfortunately that does not work.

Does anyone know how to do this (I am a complete newbie with curses I am afraid).

Many thanks!

[Anonymous Monk]

grep for a clearscreen/clear/cls in the Curses::UI sourcetree ... maybe in MainLoop or in a destructor somewhere or an END block

http://grep.cpan.me/?q=dist%3ACurses-UI+clear -> https://metacpan.org/source/MDXI/Curses-UI-0.9609/Changes#L662

                - Added the -clear_on_exit option
                  to Curses::UI. If this option is
                  set, a Curses::UI application will
                  call "clear" on exit.

[morgon]

clear_on_exit is documented (I don't know why you grep through the source) and it should be off by default.

. I have already tried to turn it off explicitly but it does not help with my problem.

should have mentioned that in my question, Sorry.