6 my $window = Gtk2
::Window
->new ('toplevel');
7 $window->set_default_size(640, 480);
8 $window->signal_connect( destroy
=> sub {
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' &";
This page took 2.9342 seconds and 5 git commands to generate.