--- rxvt-unicode/doc/rxvt.1.html 2005/02/17 15:07:48 1.17 +++ rxvt-unicode/doc/rxvt.1.html 2005/02/19 01:08:26 1.19 @@ -547,14 +547,11 @@
- my $rxvt = new Gtk2::DrawingArea; - $...->add ($rxvt); # important to add it somewhere first - $rxvt->realize; # now it can be realized - my $xid = $rxvt->window->get_xid;-
- system "rxvt -embed $xid &";+ my $rxvt = new Gtk2::Socket; + $rxvt->signal_connect_after (realize => sub { + my $xid = $_[0]->window->get_xid; + system "rxvt -embed $xid &"; + });
my $pty = new IO::Pty; - fcntl $pty, F_SETFD, 0; # clear close-on-exec-
- system "rxvt -pty-fd " . (fileno $pty) . "&";+ fcntl $pty, F_SETFD, 0; # clear close-on-exec + system "rxvt -pty-fd " . (fileno $pty) . "&"; + close $pty;