… | |
… | |
139 | |
139 | |
140 | To avoid too many false positives, this is only done when: |
140 | To avoid too many false positives, this is only done when: |
141 | |
141 | |
142 | =over 4 |
142 | =over 4 |
143 | |
143 | |
|
|
144 | =item - the tty is in ICANON state. |
|
|
145 | |
|
|
146 | =item - the text cursor is visible. |
|
|
147 | |
|
|
148 | =item - the primary screen is currently being displayed. |
|
|
149 | |
144 | =item - the mouse is on the same (multi-row-) line as the text cursor. |
150 | =item - the mouse is on the same (multi-row-) line as the text cursor. |
145 | |
|
|
146 | =item - the primary screen is currently being displayed. |
|
|
147 | |
|
|
148 | =item - the text cursor is visible. |
|
|
149 | |
151 | |
150 | =back |
152 | =back |
151 | |
153 | |
152 | The normal selection mechanism isn't disabled, so quick successive clicks |
154 | The normal selection mechanism isn't disabled, so quick successive clicks |
153 | might interfere with selection creation in harmless ways. |
155 | might interfere with selection creation in harmless ways. |
… | |
… | |
561 | our $LIBDIR; |
563 | our $LIBDIR; |
562 | our $RESNAME; |
564 | our $RESNAME; |
563 | our $RESCLASS; |
565 | our $RESCLASS; |
564 | our $RXVTNAME; |
566 | our $RXVTNAME; |
565 | |
567 | |
566 | our $NOCHAR = chr 0xfffe; |
568 | our $NOCHAR = chr 0xffff; |
567 | |
569 | |
568 | =head2 Variables in the C<urxvt> Package |
570 | =head2 Variables in the C<urxvt> Package |
569 | |
571 | |
570 | =over 4 |
572 | =over 4 |
571 | |
573 | |
… | |
… | |
718 | unless $msg =~ /\n$/; |
720 | unless $msg =~ /\n$/; |
719 | urxvt::warn ($msg); |
721 | urxvt::warn ($msg); |
720 | }; |
722 | }; |
721 | } |
723 | } |
722 | |
724 | |
|
|
725 | no warnings 'utf8'; |
|
|
726 | |
723 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
727 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
724 | |
728 | |
725 | sub verbose { |
729 | sub verbose { |
726 | my ($level, $msg) = @_; |
730 | my ($level, $msg) = @_; |
727 | warn "$msg\n" if $level <= $verbosity; |
731 | warn "$msg\n" if $level <= $verbosity; |
… | |
… | |
743 | |
747 | |
744 | open my $fh, "<:raw", $path |
748 | open my $fh, "<:raw", $path |
745 | or die "$path: $!"; |
749 | or die "$path: $!"; |
746 | |
750 | |
747 | my $source = |
751 | my $source = |
748 | "package $pkg; use strict; use utf8;\n" |
752 | "package $pkg; use strict; use utf8; no warnings 'utf8';\n" |
749 | . "#line 1 \"$path\"\n{\n" |
753 | . "#line 1 \"$path\"\n{\n" |
750 | . (do { local $/; <$fh> }) |
754 | . (do { local $/; <$fh> }) |
751 | . "\n};\n1"; |
755 | . "\n};\n1"; |
752 | |
756 | |
753 | eval $source |
757 | eval $source |
… | |
… | |
1308 | Replaces the event mask of the pty watcher by the given event mask. Can |
1312 | Replaces the event mask of the pty watcher by the given event mask. Can |
1309 | be used to suppress input and output handling to the pty/tty. See the |
1313 | be used to suppress input and output handling to the pty/tty. See the |
1310 | description of C<< urxvt::timer->events >>. Make sure to always restore |
1314 | description of C<< urxvt::timer->events >>. Make sure to always restore |
1311 | the previous value. |
1315 | the previous value. |
1312 | |
1316 | |
|
|
1317 | =item $fd = $term->pty_fd |
|
|
1318 | |
|
|
1319 | Returns the master file descriptor for the pty in use, or C<-1> if no pty |
|
|
1320 | is used. |
|
|
1321 | |
1313 | =item $windowid = $term->parent |
1322 | =item $windowid = $term->parent |
1314 | |
1323 | |
1315 | Return the window id of the toplevel window. |
1324 | Return the window id of the toplevel window. |
1316 | |
1325 | |
1317 | =item $windowid = $term->vt |
1326 | =item $windowid = $term->vt |
… | |
… | |
1416 | If C<$new_text> is specified, it will replace characters in the current |
1425 | If C<$new_text> is specified, it will replace characters in the current |
1417 | line, starting at column C<$start_col> (default C<0>), which is useful |
1426 | line, starting at column C<$start_col> (default C<0>), which is useful |
1418 | to replace only parts of a line. The font index in the rendition will |
1427 | to replace only parts of a line. The font index in the rendition will |
1419 | automatically be updated. |
1428 | automatically be updated. |
1420 | |
1429 | |
1421 | C<$text> is in a special encoding: tabs and wide characters that use |
1430 | C<$text> is in a special encoding: tabs and wide characters that use more |
1422 | more than one cell when displayed are padded with C<$urxvt::NOCHAR> |
1431 | than one cell when displayed are padded with C<$urxvt::NOCHAR> (chr 65535) |
1423 | characters. Characters with combining characters and other characters that |
1432 | characters. Characters with combining characters and other characters that |
1424 | do not fit into the normal tetx encoding will be replaced with characters |
1433 | do not fit into the normal tetx encoding will be replaced with characters |
1425 | in the private use area. |
1434 | in the private use area. |
1426 | |
1435 | |
1427 | You have to obey this encoding when changing text. The advantage is |
1436 | You have to obey this encoding when changing text. The advantage is |