… | |
… | |
1590 | my $env = $self->{term}->env; |
1590 | my $env = $self->{term}->env; |
1591 | # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE. |
1591 | # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE. |
1592 | delete $env->{LC_ALL}; |
1592 | delete $env->{LC_ALL}; |
1593 | $env->{LC_CTYPE} = $self->{term}->locale; |
1593 | $env->{LC_CTYPE} = $self->{term}->locale; |
1594 | |
1594 | |
1595 | urxvt::term->new ($env, $self->{term}->resource ("name"), |
1595 | urxvt::term->new ($env, "popup", |
1596 | "--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, |
1596 | "--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, |
1597 | "--transient-for" => $self->{term}->parent, |
1597 | "--transient-for" => $self->{term}->parent, |
1598 | "-display" => $self->{term}->display_id, |
1598 | "-display" => $self->{term}->display_id, |
1599 | "-pe" => "urxvt-popup") |
1599 | "-pe" => "urxvt-popup") |
1600 | or die "unable to create popup window\n"; |
1600 | or die "unable to create popup window\n"; |
… | |
… | |
1653 | Start the timer. |
1653 | Start the timer. |
1654 | |
1654 | |
1655 | =item $timer = $timer->start ($tstamp) |
1655 | =item $timer = $timer->start ($tstamp) |
1656 | |
1656 | |
1657 | Set the event trigger time to C<$tstamp> and start the timer. |
1657 | Set the event trigger time to C<$tstamp> and start the timer. |
|
|
1658 | |
|
|
1659 | =item $timer = $timer->after ($delay) |
|
|
1660 | |
|
|
1661 | Like C<start>, but sets the expiry timer to c<urxvt::NOW + $delay>. |
1658 | |
1662 | |
1659 | =item $timer = $timer->stop |
1663 | =item $timer = $timer->stop |
1660 | |
1664 | |
1661 | Stop the timer. |
1665 | Stop the timer. |
1662 | |
1666 | |