I tried it this way, but it doesn\'t work - the returned values from getmaxyx
remain always the same.
#!/usr/bin/env perl
use warnings;
use 5.012;
u
#!/usr/bin/env perl
use warnings;
use 5.012;
use Curses;
my $size_changed = 0;
$SIG{'WINCH'} = sub { $size_changed= 1; };
initscr();
my ( $row, $col );
getmaxyx( $row, $col );
addstr( "begin: $row - $col\n" );
refresh();
for ( 0 .. 19 ) {
sleep 2;
if ( $size_changed ) {
endwin();
refresh();
getmaxyx( $row, $col );
addstr( "new: $row - $col\n" );
$size_changed = 0;
}
}
sleep 3;
endwin();
^^^ this worked for me. according to Writing Programs with NCURSES / Using NCURSES under XTERM you are suppose to do "endwin() followed by an refresh()"
Knowing almost nothing about Curses
, at a first guess I'd say your problem is that you broke $SIG{WINCH}
, because libcurses
is going to want to use that to detect when the window may have changed size.