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