doc/embed-tk

   1 #!/usr/bin/perl
   2
   3 # sample script to illustrate the -embed option
   4 # using Tk
   5 # resizes do not work yet.
   6
   7 use Tk;
   8
   9 my $mw = new MainWindow;
  10
  11 my $frame = $mw->Frame (width => 700, height => 400, container => 1)
  12                ->pack (fill => "both", expand => 1);
  13
  14 system "rxvt -embed " . ($frame->id) . " &";
  15
  16 MainLoop;