File: dump_test

package info (click to toggle)
perl-tk 1:800.025-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 18,444 kB
  • ctags: 19,081
  • sloc: ansic: 206,740; perl: 40,187; makefile: 4,371; sh: 2,373; yacc: 762
file content (24 lines) | stat: -rw-r--r-- 525 bytes parent folder | download | duplicates (11)
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__