perl/curses/textentry.pl

   1 #!/usr/bin/env perl
   2
   3            use Curses::UI;
   4            my $cui = new Curses::UI( -color_support => 1, -compat => 0 );
   5            my $win = $cui->add('window_id', 'Window');
   6
   7            my $textentry = $win->add(
   8                'mytextentry', 'TextEntry'
   9            );
  10
  11            $textentry->focus();
  12            my $text = $textentry->get();
  13
  14 #print "TEXT: $text \n";