… | |
… | |
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 | # $USELESSNAME is a Gtk-perl < 1.042 workaround |
205 | $self->{l} = $self->{buffer}->create_mark (++$USELESSNAME, $end, 1); |
206 | $self->{l} = $self->{buffer}->create_mark (++$USELESSNAME, $end, 1); |
206 | $self->{buffer}->insert ($end, "\x{200d}"); |
207 | $self->{buffer}->insert ($end, "\x{200d}"); |
207 | $self->{r} = $self->{buffer}->create_mark (++$USELESSNAME, $self->{buffer}->get_iter_at_mark ($self->{l}), 0); |
208 | $self->{r} = $self->{buffer}->create_mark (++$USELESSNAME, $self->{buffer}->get_iter_at_mark ($self->{l}), 0); |
208 | |
209 | |
209 | Scalar::Util::weaken $self->{buffer}; |
210 | Scalar::Util::weaken $self->{buffer}; |