3 # sample script to illustrate the -embed option
5 # embed a rxvt inside another X app
8 # doesn't handle sigchld
14 my $window = new Gtk2::Window 'toplevel';
16 my $frame = new Gtk2::Frame "embedded rxvt-unicode terminal";
18 $window->add ($frame);
20 my $rxvt = new Gtk2::Socket;
22 $frame->set_size_request (700, 400);
24 my $xid = $rxvt->window->get_xid;
26 system "rxvt -embed $xid &";