ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/urxvt.pm
(Generate patch)

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.243 by sf-exg, Sat Oct 11 22:02:50 2014 UTC vs.
Revision 1.263 by sf-exg, Wed Jul 14 12:39:57 2021 UTC

43 43
44Or by adding them to the resource for extensions loaded by default: 44Or by adding them to the resource for extensions loaded by default:
45 45
46 URxvt.perl-ext-common: default,selection-autotransform 46 URxvt.perl-ext-common: default,selection-autotransform
47 47
48Extensions may add resources on their own. Similarly to builtin 48Extensions may add additional resources and C<actions>, i.e., methods
49resources, these resources can also be specified on the command line 49which can be bound to a key and invoked by the user. An extension can
50as long options (with '.' replaced by '-'), in which case the 50define the resources it support using so called META comments,
51corresponding extension is loaded automatically. 51described below. Similarly to builtin resources, extension resources
52can also be specified on the command line as long options (with C<.>
53replaced by C<->), in which case the corresponding extension is loaded
54automatically. For this to work the extension B<must> define META
55comments for its resources.
52 56
53=head1 API DOCUMENTATION 57=head1 API DOCUMENTATION
54 58
55=head2 General API Considerations 59=head2 General API Considerations
56 60
108C<urxvt::term> class on this object. 112C<urxvt::term> class on this object.
109 113
110Additional methods only supported for extension objects are described in 114Additional methods only supported for extension objects are described in
111the C<urxvt::extension> section below. 115the C<urxvt::extension> section below.
112 116
117=head2 META comments
118
119Rxvt-unicode recognizes special meta comments in extensions that define
120different types of metadata. These comments are scanned whenever a
121terminal is created and are typically used to autoload extensions when
122their resources or command line parameters are used.
123
124Currently, it recognises only one such comment:
125
126=over 4
127
128=item #:META:RESOURCE:name:type:desc
129
130The RESOURCE comment defines a resource used by the extension, where
131C<name> is the resource name, C<type> is the resource type, C<boolean>
132or C<string>, and C<desc> is the resource description.
133
134The extension will be autoloaded when this resource is specified or used
135as a command line parameter.
136
137=back
138
113=head2 Hooks 139=head2 Hooks
114 140
115The following subroutines can be declared in extension files, and will be 141The following subroutines can be declared in extension files, and will be
116called whenever the relevant event happens. 142called whenever the relevant event happens.
117 143
282code is run after this hook, and takes precedence. 308code is run after this hook, and takes precedence.
283 309
284=item on_refresh_end $term 310=item on_refresh_end $term
285 311
286Called just after the screen gets redrawn. See C<on_refresh_begin>. 312Called just after the screen gets redrawn. See C<on_refresh_begin>.
313
314=item on_action $term, $string
315
316Called whenever an action is invoked for the corresponding extension
317(e.g. via a C<extension:string> builtin action bound to a key, see
318description of the B<keysym> resource in the urxvt(1) manpage). The
319event is simply the action string. Note that an action event is always
320associated to a single extension.
287 321
288=item on_user_command $term, $string *DEPRECATED* 322=item on_user_command $term, $string *DEPRECATED*
289 323
290Called whenever a user-configured event is being activated (e.g. via 324Called whenever a user-configured event is being activated (e.g. via
291a C<perl:string> action bound to a key, see description of the B<keysym> 325a C<perl:string> action bound to a key, see description of the B<keysym>
482ConfigureRequest, GravityNotify, ResizeRequest, CirculateNotify, 516ConfigureRequest, GravityNotify, ResizeRequest, CirculateNotify,
483CirculateRequest, PropertyNotify, SelectionClear, SelectionRequest, 517CirculateRequest, PropertyNotify, SelectionClear, SelectionRequest,
484SelectionNotify, ColormapNotify, ClientMessage, MappingNotify 518SelectionNotify, ColormapNotify, ClientMessage, MappingNotify
485 519
486Various constants for use in X calls and event processing. 520Various constants for use in X calls and event processing.
521
522=item urxvt::PrivMode_132, PrivMode_132OK, PrivMode_rVideo, PrivMode_relOrigin,
523PrivMode_Screen, PrivMode_Autowrap, PrivMode_aplCUR, PrivMode_aplKP,
524PrivMode_HaveBackSpace, PrivMode_BackSpace, PrivMode_ShiftKeys,
525PrivMode_VisibleCursor, PrivMode_MouseX10, PrivMode_MouseX11,
526PrivMode_scrollBar, PrivMode_TtyOutputInh, PrivMode_Keypress,
527PrivMode_smoothScroll, PrivMode_vt52, PrivMode_LFNL, PrivMode_MouseBtnEvent,
528PrivMode_MouseAnyEvent, PrivMode_BracketPaste, PrivMode_ExtMouseUTF8,
529PrivMode_ExtMouseUrxvt, PrivMode_BlinkingCursor, PrivMode_mouse_report,
530PrivMode_Default
531
532Constants for checking DEC private modes.
487 533
488=back 534=back
489 535
490=head2 RENDITION 536=head2 RENDITION
491 537
559sub parse_resource { 605sub parse_resource {
560 my ($term, $name, $isarg, $longopt, $flag, $value) = @_; 606 my ($term, $name, $isarg, $longopt, $flag, $value) = @_;
561 607
562 $term->scan_extensions; 608 $term->scan_extensions;
563 609
610 # iterating over all resources has quadratic time overhead
611 # overall, maybe this could be optimised?
564 my $r = $term->{meta}{resource}; 612 my $r = $term->{meta}{resource};
565 keys %$r; # reset iterator 613 keys %$r; # reset iterator
566 while (my ($k, $v) = each %$r) { 614 while (my ($k, $v) = each %$r) {
567 my $pattern = $k; 615 my $pattern = $k;
568 $pattern =~ y/./-/ if $isarg; 616 $pattern =~ y/./-/ if $isarg;
575 if ($pattern eq $prefix) { 623 if ($pattern eq $prefix) {
576 $name = "$urxvt::RESCLASS.$k$suffix"; 624 $name = "$urxvt::RESCLASS.$k$suffix";
577 625
578 push @{ $term->{perl_ext_3} }, $v->[0]; 626 push @{ $term->{perl_ext_3} }, $v->[0];
579 627
628 return 1 unless $isarg;
629
580 if ($v->[1] eq "boolean") { 630 if ($v->[1] eq "boolean") {
581 $term->put_option_db ($name, $flag ? "true" : "false"); 631 $term->put_option_db ($name, $flag ? "true" : "false");
582 return 1; 632 return 1;
583 } else { 633 } else {
584 $term->put_option_db ($name, $value); 634 $term->put_option_db ($name, $value);
679 @TERM_EXT = (); 729 @TERM_EXT = ();
680 $TERM->register_package ($_) for @pkg; 730 $TERM->register_package ($_) for @pkg;
681 } 731 }
682 732
683 for ( 733 for (
734 @{ delete $TERM->{perl_ext_3} },
684 (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2), 735 (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2),
685 @{ delete $TERM->{perl_ext_3} }
686 ) { 736 ) {
687 if ($_ eq "default") { 737 if ($_ eq "default") {
688 738
689 $ext_arg{$_} = [] 739 $ext_arg{$_} = []
690 for
691 qw(selection option-popup selection-popup readline), 740 for qw(selection option-popup selection-popup readline searchable-scrollback confirm-paste);
692 map $_->[0], values %{ $TERM->{meta}{binding} };
693 741
694 for ($TERM->_keysym_resources) { 742 for ($TERM->_keysym_resources) {
695 next if /^(?:string|command|builtin|builtin-string|perl)/; 743 next if /^(?:string|command|builtin|builtin-string|perl)/;
696 next unless /^([A-Za-z0-9_\-]+):/; 744 next unless /^([A-Za-z0-9_\-]+):/;
697 745
706 } elsif (/^([^<]+)<(.*)>$/) { 754 } elsif (/^([^<]+)<(.*)>$/) {
707 push @{ $ext_arg{$1} }, $2; 755 push @{ $ext_arg{$1} }, $2;
708 756
709 } else { 757 } else {
710 $ext_arg{$_} ||= []; 758 $ext_arg{$_} ||= [];
711 }
712 }
713
714 # now register default key bindings
715 for my $ext (sort keys %ext_arg) {
716 while (my ($k, $v) = each %{ $TERM->{meta}{ext}{$ext}{binding} }) {
717 $TERM->bind_action ($k, "$v->[0]:$v->[1]");
718 } 759 }
719 } 760 }
720 761
721 for my $ext (sort keys %ext_arg) { 762 for my $ext (sort keys %ext_arg) {
722 my @files = grep -f $_, map "$_/$ext", @dirs; 763 my @files = grep -f $_, map "$_/$ext", @dirs;
945 } 986 }
946 987
947 bless \%disable, "urxvt::extension::on_disable" 988 bless \%disable, "urxvt::extension::on_disable"
948} 989}
949 990
991=item $self->bind_action ($hotkey, $action)
992
950=item $self->x_resource ($pattern) 993=item $self->x_resource ($pattern)
951 994
952=item $self->x_resource_boolean ($pattern) 995=item $self->x_resource_boolean ($pattern)
953 996
954These methods support an additional C<%> prefix when called on an 997These methods support an additional C<%> prefix for C<$action> or
955extension object - see the description of these methods in the 998C<$pattern> when called on an extension object, compared to the
999C<urxvt::term> methods of the same name - see the description of these
956C<urxvt::term> class for details. 1000methods in the C<urxvt::term> class for details.
957 1001
958=cut 1002=cut
1003
1004sub bind_action {
1005 my ($self, $hotkey, $action) = @_;
1006 $action =~ s/^%:/$_[0]{_name}:/;
1007 $self->{term}->bind_action ($hotkey, $action)
1008}
959 1009
960sub x_resource { 1010sub x_resource {
961 my ($self, $name) = @_; 1011 my ($self, $name) = @_;
962 $name =~ s/^%(\.|$)/$_[0]{_name}$1/; 1012 $name =~ s/^%(\.|$)/$_[0]{_name}$1/;
963 $self->{term}->x_resource ($name) 1013 $self->{term}->x_resource ($name)
1104sub scan_extensions { 1154sub scan_extensions {
1105 my ($self) = @_; 1155 my ($self) = @_;
1106 1156
1107 return if exists $self->{meta}; 1157 return if exists $self->{meta};
1108 1158
1109 my @libdirs = perl_libdirs $self; 1159 my @urxvtdirs = perl_libdirs $self;
1160# my @cpandirs = grep -d, map "$_/URxvt/Ext", @INC;
1110 1161
1111# return if $self->{meta_libdirs} eq join "\x00", @libdirs;#d#
1112
1113# $self->{meta_libdirs} = join "\x00", @libdirs;#d#
1114 $self->{meta} = \my %meta; 1162 $self->{meta} = \my %meta;
1115 1163
1116 # first gather extensions 1164 # first gather extensions
1117 for my $dir (reverse @libdirs) { 1165
1166 my $gather = sub {
1167 my ($dir, $core) = @_;
1168
1118 opendir my $fh, $dir 1169 opendir my $fh, $dir
1119 or next; 1170 or return;
1171
1120 for my $ext (readdir $fh) { 1172 for my $ext (readdir $fh) {
1121 $ext !~ /^\./ 1173 $ext !~ /^\./
1174 or next;
1175
1122 and open my $fh, "<", "$dir/$ext" 1176 open my $fh, "<", "$dir/$ext"
1177 or next;
1178
1179 -f $fh
1180 or next;
1181
1182 $ext =~ s/\.uext$// or $core
1123 or next; 1183 or next;
1124 1184
1125 my %ext = (dir => $dir); 1185 my %ext = (dir => $dir);
1126 1186
1127 while (<$fh>) { 1187 while (<$fh>) {
1131 if ($pattern =~ /[^a-zA-Z0-9\-\.]/) { 1191 if ($pattern =~ /[^a-zA-Z0-9\-\.]/) {
1132 warn "$dir/$ext: meta resource '$pattern' contains illegal characters (not alphanumeric nor . nor *)\n"; 1192 warn "$dir/$ext: meta resource '$pattern' contains illegal characters (not alphanumeric nor . nor *)\n";
1133 } else { 1193 } else {
1134 $ext{resource}{$pattern} = [$ext, $type, $desc]; 1194 $ext{resource}{$pattern} = [$ext, $type, $desc];
1135 } 1195 }
1136 } elsif (/^#:META:BINDING:(.*)/) {
1137 my ($keysym, $action) = split /:/, $1;
1138 $ext{binding}{$keysym} = [$ext, $action];
1139 } elsif (/^\s*(?:#|$)/) { 1196 } elsif (/^\s*(?:#|$)/) {
1140 # skip other comments and empty lines 1197 # skip other comments and empty lines
1141 } else { 1198 } else {
1142 last; # stop parsing on first non-empty non-comment line 1199 last; # stop parsing on first non-empty non-comment line
1143 } 1200 }
1144 } 1201 }
1145 1202
1146 $meta{ext}{$ext} = \%ext; 1203 $meta{ext}{$ext} = \%ext;
1147 } 1204 }
1148 } 1205 };
1149 1206
1207# $gather->($_, 0) for @cpandirs;
1208 $gather->($_, 1) for @urxvtdirs;
1209
1150 # and now merge resources and bindings 1210 # and now merge resources
1211
1212 $meta{resource} = \my %resource;
1213
1151 while (my ($k, $v) = each %{ $meta{ext} }) { 1214 while (my ($k, $v) = each %{ $meta{ext} }) {
1152 #TODO: should check for extensions overriding each other 1215 #TODO: should check for extensions overriding each other
1153 %{ $meta{resource} } = (%{ $meta{resource} }, %{ $v->{resource} }); 1216 %resource = (%resource, %{ $v->{resource} });
1154 %{ $meta{binding} } = (%{ $meta{binding} }, %{ $v->{binding} });
1155 } 1217 }
1156} 1218}
1157 1219
1158=item $term = new urxvt::term $envhashref, $rxvtname, [arg...] 1220=item $term = new urxvt::term $envhashref, $rxvtname, [arg...]
1159 1221
1222 insecure intensityStyles iso14755 iso14755_52 jumpScroll loginShell 1284 insecure intensityStyles iso14755 iso14755_52 jumpScroll loginShell
1223 mapAlert meta8 mouseWheelScrollPage override_redirect pastableTabs 1285 mapAlert meta8 mouseWheelScrollPage override_redirect pastableTabs
1224 pointerBlank reverseVideo scrollBar scrollBar_floating scrollBar_right 1286 pointerBlank reverseVideo scrollBar scrollBar_floating scrollBar_right
1225 scrollTtyKeypress scrollTtyOutput scrollWithBuffer secondaryScreen 1287 scrollTtyKeypress scrollTtyOutput scrollWithBuffer secondaryScreen
1226 secondaryScroll skipBuiltinGlyphs skipScroll transparent tripleclickwords 1288 secondaryScroll skipBuiltinGlyphs skipScroll transparent tripleclickwords
1227 urgentOnBell utmpInhibit visualBell 1289 urgentOnBell utmpInhibit visualBell disablePasteBrackets
1228 1290
1229=item $value = $term->resource ($name[, $newval]) 1291=item $value = $term->resource ($name[, $newval])
1230 1292
1231Returns the current resource value associated with a given name and 1293Returns the current resource value associated with a given name and
1232optionally sets a new value. Setting values is most useful in the C<init> 1294optionally sets a new value. Setting values is most useful in the C<init>
1258 preeditType print_pipe pty_fd reverseVideo saveLines scrollBar 1320 preeditType print_pipe pty_fd reverseVideo saveLines scrollBar
1259 scrollBar_align scrollBar_floating scrollBar_right scrollBar_thickness 1321 scrollBar_align scrollBar_floating scrollBar_right scrollBar_thickness
1260 scrollTtyKeypress scrollTtyOutput scrollWithBuffer scrollstyle 1322 scrollTtyKeypress scrollTtyOutput scrollWithBuffer scrollstyle
1261 secondaryScreen secondaryScroll shade skipBuiltinGlyphs skipScroll 1323 secondaryScreen secondaryScroll shade skipBuiltinGlyphs skipScroll
1262 term_name title transient_for transparent tripleclickwords urgentOnBell 1324 term_name title transient_for transparent tripleclickwords urgentOnBell
1263 utmpInhibit visualBell 1325 utmpInhibit visualBell rewrapMode disablePasteBrackets
1264 1326
1265=cut 1327=cut
1266 1328
1267sub resource($$;$) { 1329sub resource($$;$) {
1268 my ($self, $name) = (shift, shift); 1330 my ($self, $name) = (shift, shift);
1282 1344
1283If the method is called on an extension object (basically, from an 1345If the method is called on an extension object (basically, from an
1284extension), then the special prefix C<%.> will be replaced by the name of 1346extension), then the special prefix C<%.> will be replaced by the name of
1285the extension and a dot, and the lone string C<%> will be replaced by the 1347the extension and a dot, and the lone string C<%> will be replaced by the
1286extension name itself. This makes it possible to code extensions so you 1348extension name itself. This makes it possible to code extensions so you
1287can rename them and get a new set of commandline switches and resources 1349can rename them and get a new set of resources without having to change
1288without having to change the actual code. 1350the actual code.
1289 1351
1290This method should only be called during the C<on_start> hook, as there is 1352This method should only be called during the C<on_start> hook, as there is
1291only one resource database per display, and later invocations might return 1353only one resource database per display, and later invocations might return
1292the wrong resources. 1354the wrong resources.
1293 1355
1305 my $res = &x_resource; 1367 my $res = &x_resource;
1306 1368
1307 $res =~ /^\s*(?:true|yes|on|1)\s*$/i ? 1 : defined $res && 0 1369 $res =~ /^\s*(?:true|yes|on|1)\s*$/i ? 1 : defined $res && 0
1308} 1370}
1309 1371
1372=item $action = $term->lookup_keysym ($keysym, $state)
1373
1374Returns the action bound to key combination C<($keysym, $state)>,
1375if a binding for it exists, and C<undef> otherwise.
1376
1310=item $success = $term->bind_action ($key, $octets) 1377=item $success = $term->bind_action ($key, $action)
1311 1378
1312Adds a key binding exactly as specified via a C<keysym> resource. See the 1379Adds a key binding exactly as specified via a C<keysym> resource. See the
1313C<keysym> resource in the urxvt(1) manpage. 1380C<keysym> resource in the urxvt(1) manpage.
1381
1382To add default bindings for actions, an extension should call C<<
1383->bind_action >> in its C<init> hook for every such binding. Doing it
1384in the C<init> hook allows users to override or remove the binding
1385again.
1386
1387Example: the C<searchable-scrollback> by default binds itself
1388on C<Meta-s>, using C<< $self->bind_action >>, which calls C<<
1389$term->bind_action >>.
1390
1391 sub init {
1392 my ($self) = @_;
1393
1394 $self->bind_action ("M-s" => "%:start");
1395 }
1314 1396
1315=item $rend = $term->rstyle ([$new_rstyle]) 1397=item $rend = $term->rstyle ([$new_rstyle])
1316 1398
1317Return and optionally change the current rendition. Text that is output by 1399Return and optionally change the current rendition. Text that is output by
1318the terminal application will use this style. 1400the terminal application will use this style.
1476 1558
1477=item $term->scr_add_lines ($string) 1559=item $term->scr_add_lines ($string)
1478 1560
1479Write the given text string to the screen, as if output by the application 1561Write the given text string to the screen, as if output by the application
1480running inside the terminal. It may not contain command sequences (escape 1562running inside the terminal. It may not contain command sequences (escape
1481codes), but is free to use line feeds, carriage returns and tabs. The 1563codes - see C<cmd_parse> for that), but is free to use line feeds,
1482string is a normal text string, not in locale-dependent encoding. 1564carriage returns and tabs. The string is a normal text string, not in
1565locale-dependent encoding.
1483 1566
1484Normally its not a good idea to use this function, as programs might be 1567Normally its not a good idea to use this function, as programs might be
1485confused by changes in cursor position or scrolling. Its useful inside a 1568confused by changes in cursor position or scrolling. Its useful inside a
1486C<on_add_lines> hook, though. 1569C<on_add_lines> hook, though.
1487 1570
1495locale-specific encoding of the terminal and can contain command sequences 1578locale-specific encoding of the terminal and can contain command sequences
1496(escape codes) that will be interpreted. 1579(escape codes) that will be interpreted.
1497 1580
1498=item $term->tt_write ($octets) 1581=item $term->tt_write ($octets)
1499 1582
1500Write the octets given in C<$octets> to the tty (i.e. as program input). To 1583Write the octets given in C<$octets> to the tty (i.e. as user input
1584to the program, see C<cmd_parse> for the opposite direction). To pass
1501pass characters instead of octets, you should convert your strings first 1585characters instead of octets, you should convert your strings first to the
1502to the locale-specific encoding using C<< $term->locale_encode >>. 1586locale-specific encoding using C<< $term->locale_encode >>.
1503 1587
1504=item $term->tt_write_user_input ($octets) 1588=item $term->tt_write_user_input ($octets)
1505 1589
1506Like C<tt_write>, but should be used when writing strings in response to 1590Like C<tt_write>, but should be used when writing strings in response to
1507the user pressing a key, to invoke the additional actions requested by 1591the user pressing a key, to invoke the additional actions requested by
1554 1638
1555=item $term->key_release ($state, $keycode[, $time]) 1639=item $term->key_release ($state, $keycode[, $time])
1556 1640
1557Deliver various fake events to to terminal. 1641Deliver various fake events to to terminal.
1558 1642
1559=item $window_width = $term->width 1643=item $window_width = $term->width ([$new_value])
1560 1644
1561=item $window_height = $term->height 1645=item $window_height = $term->height ([$new_value])
1562 1646
1563=item $font_width = $term->fwidth 1647=item $font_width = $term->fwidth ([$new_value])
1564 1648
1565=item $font_height = $term->fheight 1649=item $font_height = $term->fheight ([$new_value])
1566 1650
1567=item $font_ascent = $term->fbase 1651=item $font_ascent = $term->fbase ([$new_value])
1568 1652
1569=item $terminal_rows = $term->nrow 1653=item $terminal_rows = $term->nrow ([$new_value])
1570 1654
1571=item $terminal_columns = $term->ncol 1655=item $terminal_columns = $term->ncol ([$new_value])
1572 1656
1573=item $has_focus = $term->focus 1657=item $has_focus = $term->focus ([$new_value])
1574 1658
1575=item $is_mapped = $term->mapped 1659=item $is_mapped = $term->mapped ([$new_value])
1576 1660
1577=item $max_scrollback = $term->saveLines 1661=item $max_scrollback = $term->saveLines ([$new_value])
1578 1662
1579=item $nrow_plus_saveLines = $term->total_rows 1663=item $nrow_plus_saveLines = $term->total_rows ([$new_value])
1580 1664
1581=item $topmost_scrollback_row = $term->top_row 1665=item $topmost_scrollback_row = $term->top_row ([$new_value])
1582 1666
1583Return various integers describing terminal characteristics. 1667Return various integers describing terminal characteristics. If an
1668argument is given, changes the value and returns the previous one.
1584 1669
1585=item $x_display = $term->display_id 1670=item $x_display = $term->display_id
1586 1671
1587Return the DISPLAY used by rxvt-unicode. 1672Return the DISPLAY used by rxvt-unicode.
1588 1673
1625 1710
1626=item $cursor_is_hidden = $term->hidden_cursor 1711=item $cursor_is_hidden = $term->hidden_cursor
1627 1712
1628Returns whether the cursor is currently hidden or not. 1713Returns whether the cursor is currently hidden or not.
1629 1714
1715=item $priv_modes = $term->priv_modes
1716
1717Returns a bitset with the state of DEC private modes.
1718
1719Example:
1720
1721 if ($term->priv_modes & urxvt::PrivMode_mouse_report) {
1722 # mouse reporting is turned on
1723 }
1724
1630=item $view_start = $term->view_start ([$newvalue]) 1725=item $view_start = $term->view_start ([$newvalue])
1631 1726
1632Returns the row number of the topmost displayed line. Maximum value is 1727Returns the row number of the topmost displayed line and changes it,
1633C<0>, which displays the normal terminal contents. Lower values scroll 1728if an argument is given. Values greater than or equal to C<0> display
1634this many lines into the scrollback buffer. 1729the terminal contents. Lower values scroll this many lines into the
1730scrollback buffer.
1635 1731
1636=item $term->want_refresh 1732=item $term->want_refresh
1637 1733
1638Requests a screen refresh. At the next opportunity, rxvt-unicode will 1734Requests a screen refresh. At the next opportunity, rxvt-unicode will
1639compare the on-screen display with its stored representation. If they 1735compare the on-screen display with its stored representation. If they
1640differ, it redraws the differences. 1736differ, it redraws the differences.
1641 1737
1642Used after changing terminal contents to display them. 1738Used after changing terminal contents to display them.
1739
1740=item $term->refresh_check
1741
1742Checks if a refresh has been requested and, if so, schedules one.
1643 1743
1644=item $text = $term->ROW_t ($row_number[, $new_text[, $start_col]]) 1744=item $text = $term->ROW_t ($row_number[, $new_text[, $start_col]])
1645 1745
1646Returns the text of the entire row with number C<$row_number>. Row C<< $term->top_row >> 1746Returns the text of the entire row with number C<$row_number>. Row C<< $term->top_row >>
1647is the topmost terminal line, row C<< $term->nrow-1 >> is the bottommost 1747is the topmost terminal line, row C<< $term->nrow-1 >> is the bottommost

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines