| … | |
… | |
| 200 | my $self = bless { |
200 | my $self = bless { |
| 201 | buffer => $self->{buffer}, |
201 | buffer => $self->{buffer}, |
| 202 | parent => $self, |
202 | parent => $self, |
| 203 | }, superchat::inlay; |
203 | }, superchat::inlay; |
| 204 | |
204 | |
| 205 | $self->{l} = $self->{buffer}->create_mark (undef, $end, 1); |
205 | $self->{l} = $self->{buffer}->create_mark (++$USELESSNAME, $end, 1); |
| 206 | $self->{buffer}->insert ($end, "\x{200d}"); |
206 | $self->{buffer}->insert ($end, "\x{200d}"); |
| 207 | $self->{r} = $self->{buffer}->create_mark (undef, $self->{buffer}->get_iter_at_mark ($self->{l}), 0); |
207 | $self->{r} = $self->{buffer}->create_mark (++$USELESSNAME, $self->{buffer}->get_iter_at_mark ($self->{l}), 0); |
| 208 | |
208 | |
| 209 | Scalar::Util::weaken $self->{buffer}; |
209 | Scalar::Util::weaken $self->{buffer}; |
| 210 | Scalar::Util::weaken $self->{parent}; |
210 | Scalar::Util::weaken $self->{parent}; |
| 211 | $self; |
211 | $self; |
| 212 | } |
212 | } |
