| … | |
… | |
| 1695 | } |
1695 | } |
| 1696 | |
1696 | |
| 1697 | sub urxvt::line::t { |
1697 | sub urxvt::line::t { |
| 1698 | my ($self) = @_; |
1698 | my ($self) = @_; |
| 1699 | |
1699 | |
| 1700 | if (@_ > 1) |
1700 | if (@_ > 1) { |
| 1701 | { |
|
|
| 1702 | $self->{term}->ROW_t ($_, $_[1], 0, ($_ - $self->{beg}) * $self->{ncol}, $self->{ncol}) |
1701 | $self->{term}->ROW_t ($_, $_[1], 0, ($_ - $self->{beg}) * $self->{ncol}, $self->{ncol}) |
| 1703 | for $self->{beg} .. $self->{end}; |
1702 | for $self->{beg} .. $self->{end}; |
| 1704 | } |
1703 | } |
| 1705 | |
1704 | |
| 1706 | defined wantarray && |
1705 | defined wantarray && |
| 1707 | substr +(join "", map $self->{term}->ROW_t ($_), $self->{beg} .. $self->{end}), |
1706 | substr +(join "", map $self->{term}->ROW_t ($_), $self->{beg} .. $self->{end}), |
| 1708 | 0, $self->{len} |
1707 | 0, $self->{len} |
| 1709 | } |
1708 | } |
| 1710 | |
1709 | |
| 1711 | sub urxvt::line::r { |
1710 | sub urxvt::line::r { |
| 1712 | my ($self) = @_; |
1711 | my ($self) = @_; |
| 1713 | |
1712 | |
| 1714 | if (@_ > 1) |
1713 | if (@_ > 1) { |
| 1715 | { |
|
|
| 1716 | $self->{term}->ROW_r ($_, $_[1], 0, ($_ - $self->{beg}) * $self->{ncol}, $self->{ncol}) |
1714 | $self->{term}->ROW_r ($_, $_[1], 0, ($_ - $self->{beg}) * $self->{ncol}, $self->{ncol}) |
| 1717 | for $self->{beg} .. $self->{end}; |
1715 | for $self->{beg} .. $self->{end}; |
| 1718 | } |
1716 | } |
| 1719 | |
1717 | |
| 1720 | if (defined wantarray) { |
1718 | if (defined wantarray) { |
| 1721 | my $rend = [ |
1719 | my $rend = [ |
| 1722 | map @{ $self->{term}->ROW_r ($_) }, $self->{beg} .. $self->{end} |
1720 | map @{ $self->{term}->ROW_r ($_) }, $self->{beg} .. $self->{end} |
| 1723 | ]; |
1721 | ]; |
