6 my $window = Gtk2
::Window
->new ('toplevel');
7 $window->set_default_size(640, 480);
8 #$window->set_decorated(0);
9 $window->signal_connect( destroy
=> sub {
13 my $xterm = new Gtk2
::Socket
;
14 $xterm->signal_connect_after( realize
=> sub {
15 my $xid = $_[0]->window->get_xid;
16 system "xterm -bg black -fg white -into $xid -e 'ls -l; bash' &";
This page took 0.282705 seconds and 4 git commands to generate.