Commit | Line | Data |
---|---|---|
21c4e167 H |
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"; |