File: dump_test

package info (click to toggle)
perl-tk 1%3A800.011-1
  • links: PTS
  • area: main
  • in suites: slink
  • size: 16,820 kB
  • ctags: 17,448
  • sloc: ansic: 189,575; perl: 31,426; makefile: 4,360; sh: 1,921; yacc: 762
file content (24 lines) | stat: -rw-r--r-- 525 bytes parent folder | download | duplicates (14) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#!/usr/local/bin/perl -w
use Tk;
my $top = MainWindow->new;
my $i   = $top->Photo(-file => Tk->findINC('icon.gif'));
my $t = $top->Text->grid;
my $l = $top->Label(-text => 'Frog');
$t->insert('end',"A Label '");
$t->windowCreate('end', -window => $l);
$t->insert('end',"'\n");
$t->insert('end',"An Image '");
$t->imageCreate('end', -image  => $i);
$t->insert('end',"'\n");
print join(',', $t->dump('1.0', 'end')), "\n";
$t->dump(-command => \&dump, '1.0', 'end');
MainLoop;

sub dump
{
 print join(',',@_),"\n";
}

__END__