[mirrors/Programs.git] / perl / curses / textentry.pl

#!/usr/bin/env perl

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

           my $textentry = $win->add(
               'mytextentry', 'TextEntry'
           );

           $textentry->focus();
           my $text = $textentry->get();

#print "TEXT: $text \n";
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";