| … | |
… | |
| 545 | <p>Here is a short Gtk2-perl snippet that illustrates how this option can be |
545 | <p>Here is a short Gtk2-perl snippet that illustrates how this option can be |
| 546 | used (a longer example is in <em>doc/embed</em>):</p> |
546 | used (a longer example is in <em>doc/embed</em>):</p> |
| 547 | </dd> |
547 | </dd> |
| 548 | <dd> |
548 | <dd> |
| 549 | <pre> |
549 | <pre> |
| 550 | my $rxvt = new Gtk2::DrawingArea; |
550 | my $rxvt = new Gtk2::Socket; |
| 551 | $...->add ($rxvt); # important to add it somewhere first |
551 | $rxvt->signal_connect_after (realize => sub { |
| 552 | $rxvt->realize; # now it can be realized |
|
|
| 553 | my $xid = $rxvt->window->get_xid;</pre> |
552 | my $xid = $_[0]->window->get_xid; |
| 554 | </dd> |
|
|
| 555 | <dd> |
|
|
| 556 | <pre> |
|
|
| 557 | system "rxvt -embed $xid &";</pre> |
553 | system "rxvt -embed $xid &"; |
|
|
554 | });</pre> |
| 558 | </dd> |
555 | </dd> |
| 559 | <p></p> |
556 | <p></p> |
| 560 | <dt><strong><a name="item__2dpty_2dfd_fileno"><strong>-pty-fd</strong> <em>fileno</em></a></strong><br /> |
557 | <dt><strong><a name="item__2dpty_2dfd_fileno"><strong>-pty-fd</strong> <em>fileno</em></a></strong><br /> |
| 561 | </dt> |
558 | </dt> |
| 562 | <dd> |
559 | <dd> |
| … | |
… | |
| 580 | use Fcntl;</pre> |
577 | use Fcntl;</pre> |
| 581 | </dd> |
578 | </dd> |
| 582 | <dd> |
579 | <dd> |
| 583 | <pre> |
580 | <pre> |
| 584 | my $pty = new IO::Pty; |
581 | my $pty = new IO::Pty; |
| 585 | fcntl $pty, F_SETFD, 0; # clear close-on-exec</pre> |
582 | fcntl $pty, F_SETFD, 0; # clear close-on-exec |
| 586 | </dd> |
|
|
| 587 | <dd> |
|
|
| 588 | <pre> |
|
|
| 589 | system "rxvt -pty-fd " . (fileno $pty) . "&";</pre> |
583 | system "rxvt -pty-fd " . (fileno $pty) . "&"; |
|
|
584 | close $pty;</pre> |
| 590 | </dd> |
585 | </dd> |
| 591 | <dd> |
586 | <dd> |
| 592 | <pre> |
587 | <pre> |
| 593 | # now communicate with rxvt |
588 | # now communicate with rxvt |
| 594 | my $slave = $pty->slave; |
589 | my $slave = $pty->slave; |
