[mirrors/Programs.git] / perl / gtk2 / xterm-embed.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Gtk2 -init;

my $window = Gtk2::Window->new ('toplevel');
$window->set_default_size(640, 480);
$window->signal_connect( destroy => sub {
    Gtk2->main_quit();
});

my $xterm = new Gtk2::Socket;
$xterm->signal_connect_after( realize => sub {
   my $xid = $_[0]->window->get_xid;
   system "xterm -bg black -fg white -into $xid -e 'ls -l; bash' &";
});

$window->add($xterm);
$window->show_all;
Gtk2->main;
Commit	Line	Data
51f8b997 H	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;