From 3234802df86a281f484ea4dd870e5473b48c2379 Mon Sep 17 00:00:00 2001
From: root <root>
Date: Sat, 19 Feb 2005 01:07:57 +0000
Subject: *** empty log message ***

---
 doc/embed | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 doc/embed

(limited to 'doc')

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;
-- 
cgit v1.2.3