perl/gtk2/xterm-embed.pl

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Gtk2 -init;
   5
   6 my $window = Gtk2::Window->new ('toplevel');
   7 $window->set_default_size(640, 480);
   8 $window->signal_connect( destroy => sub {
   9     Gtk2->main_quit();
  10 });
  11
  12 my $xterm = new Gtk2::Socket;
  13 $xterm->signal_connect_after( realize => sub {
  14    my $xid = $_[0]->window->get_xid;
  15    system "xterm -bg black -fg white -into $xid -e 'ls -l; bash' &";
  16 });
  17
  18 $window->add($xterm);
  19 $window->show_all;
  20 Gtk2->main;