1 files changed, 30 insertions, 0 deletions
diff --git a/doc/embed b/doc/embed
new file mode 100755
index 0000000..7566ecc
--- /dev/null
+++ b/doc/embed
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+# sample script to illustrate the -embed option
+
+# embed a rxvt inside another X app
+# see also pty-fd
+
+# doesn't handle sigchld
+
+use Gtk2;
+
+init Gtk2;
+
+my $window = new Gtk2::Window 'toplevel';
+
+my $frame = new Gtk2::Frame "embedded rxvt-unicode terminal";
+
+$window->add ($frame);
+
+my $rxvt = new Gtk2::Socket;
+$frame->add ($rxvt);
+$frame->set_size_request (700, 400);
+$window->show_all;
+my $xid = $rxvt->window->get_xid;
+
+system "rxvt -embed $xid &";
+
+$window->show_all;
+
+main Gtk2;