| … | |
… | |
| 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> |
