doc/embed

   1 #!/usr/bin/perl
   2
   3 # sample script to illustrate the -embed option
   4
   5 # embed a rxvt inside another X app
   6 # see also pty-fd
   7
   8 # doesn't handle sigchld
   9
  10 use Gtk2;
  11
  12 init Gtk2;
  13
  14 my $window = new Gtk2::Window 'toplevel';
  15
  16 my $frame = new Gtk2::Frame "embedded rxvt-unicode terminal";
  17
  18 $window->add ($frame);
  19
  20 my $rxvt = new Gtk2::Socket;
  21 $frame->add ($rxvt);
  22 $frame->set_size_request (700, 400);
  23 $window->show_all;
  24 my $xid = $rxvt->window->get_xid;
  25
  26 system "rxvt -embed $xid &";
  27
  28 $window->show_all;
  29
  30 main Gtk2;