[ViewVC] Annotation of: cvs/rxvt-unicode/doc/embed-tk

#!/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;
Revision:	1.1
Committed:	Sun Feb 20 00:09:25 2005 UTC (19 years, 4 months ago) by root
Branch:	MAIN
CVS Tags:	rel-7_3, rel-7_2, rel-7_1, rel-7_0, rel-7_7, rel-7_6, rel-7_5, rxvt-unicode-rel-9_29, rxvt-unicode-rel-9_26, rel-7_8, rel-7_9, rxvt-unicode-rel-9_25, rxvt-unicode-rel-9_22, rxvt-unicode-rel-9_20, rxvt-unicode-rel-9_21, rel-5_5, rel-5_4, rel-5_7, rel-5_3, rel-5_2, rel-5_9, rel-5_8, rel-9_14, rel-7_4, rel-9_11, rel-9_10, rel-8_1, rel-9_12, rel-6_2, rel-8_5a, rel-6_3, rel-7_3a, rel-6_0, rel-8_9, rel-8_8, rel-9_0, rxvt-unicode-rel-9_19, rxvt-unicode-rel-9_18, rel-8_0, rel-8_4, rel-8_2, rel-8_3, rxvt-unicode-rel-9_17, rxvt-unicode-rel-9_16, rxvt-unicode-rel-9_15, rxvt-unicode-rel-9_30, rel-8_6, rel-8_7, rel-9_09, rel-9_02, rel-9_01, rel-9_06, rel-9_07, rel-9_05, rel-6_1, HEAD
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.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;