| … | |
… | |
| 334 | used or not. |
334 | used or not. |
| 335 | |
335 | |
| 336 | Here is a short Gtk2-perl snippet that illustrates how this option |
336 | Here is a short Gtk2-perl snippet that illustrates how this option |
| 337 | can be used (a longer example is in doc/embed): |
337 | can be used (a longer example is in doc/embed): |
| 338 | |
338 | |
| 339 | my $rxvt = new Gtk2::DrawingArea; |
339 | my $rxvt = new Gtk2::Socket; |
| 340 | $...->add ($rxvt); # important to add it somewhere first |
340 | $rxvt->signal_connect_after (realize => sub { |
| 341 | $rxvt->realize; # now it can be realized |
|
|
| 342 | my $xid = $rxvt->window->get_xid; |
341 | my $xid = $_[0]->window->get_xid; |
| 343 | |
|
|
| 344 | system "rxvt -embed $xid &"; |
342 | system "rxvt -embed $xid &"; |
|
|
343 | }); |
| 345 | |
344 | |
| 346 | -pty-fd *fileno* |
345 | -pty-fd *fileno* |
| 347 | Tells rxvt NOT to execute any commands or create a new pty/tty pair |
346 | Tells rxvt NOT to execute any commands or create a new pty/tty pair |
| 348 | but instead use the given filehandle as the tty master. This is |
347 | but instead use the given filehandle as the tty master. This is |
| 349 | useful if you want to drive rxvt as a generic terminal emulator |
348 | useful if you want to drive rxvt as a generic terminal emulator |
| … | |
… | |
| 359 | use IO::Pty; |
358 | use IO::Pty; |
| 360 | use Fcntl; |
359 | use Fcntl; |
| 361 | |
360 | |
| 362 | my $pty = new IO::Pty; |
361 | my $pty = new IO::Pty; |
| 363 | fcntl $pty, F_SETFD, 0; # clear close-on-exec |
362 | fcntl $pty, F_SETFD, 0; # clear close-on-exec |
| 364 | |
|
|
| 365 | system "rxvt -pty-fd " . (fileno $pty) . "&"; |
363 | system "rxvt -pty-fd " . (fileno $pty) . "&"; |
|
|
364 | close $pty; |
| 366 | |
365 | |
| 367 | # now communicate with rxvt |
366 | # now communicate with rxvt |
| 368 | my $slave = $pty->slave; |
367 | my $slave = $pty->slave; |
| 369 | while (<$slave>) { print $slave "got <$_>\n" } |
368 | while (<$slave>) { print $slave "got <$_>\n" } |
| 370 | |
369 | |
