… | |
… | |
1601 | delete $env->{LC_ALL}; |
1601 | delete $env->{LC_ALL}; |
1602 | $env->{LC_CTYPE} = $self->{term}->locale; |
1602 | $env->{LC_CTYPE} = $self->{term}->locale; |
1603 | |
1603 | |
1604 | urxvt::term->new ($env, "popup", |
1604 | urxvt::term->new ($env, "popup", |
1605 | "--perl-lib" => "", "--perl-ext-common" => "", |
1605 | "--perl-lib" => "", "--perl-ext-common" => "", |
|
|
1606 | "-pty-fd" => -1, "-sl" => 0, |
1606 | "-pty-fd" => -1, "-sl" => 0, "-b" => 1, "-bd" => "grey80", "-bl", "-override-redirect", |
1607 | "-b" => 1, "-bd" => "grey80", "-bl", "-override-redirect", |
1607 | "--transient-for" => $self->{term}->parent, |
1608 | "--transient-for" => $self->{term}->parent, |
1608 | "-display" => $self->{term}->display_id, |
1609 | "-display" => $self->{term}->display_id, |
1609 | "-pe" => "urxvt-popup") |
1610 | "-pe" => "urxvt-popup") |
1610 | or die "unable to create popup window\n"; |
1611 | or die "unable to create popup window\n"; |
1611 | } |
1612 | } |