… | |
… | |
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 | ]; |