| … | |
… | |
| 105 | } |
105 | } |
| 106 | |
106 | |
| 107 | $self->signal_emit (command => $cmd, $arg); |
107 | $self->signal_emit (command => $cmd, $arg); |
| 108 | }); |
108 | }); |
| 109 | |
109 | |
| 110 | #$self->{end} = $self->{buffer}->create_mark (undef, $self->{buffer}->get_end_iter, 0);#d# |
110 | #$self->{end} = $self->{buffer}->create_mark (undef, $self->{buffer}->get_end_iter, 0);#d##todo# use this one for gtk-1.050+ |
| 111 | $self->{end} = $self->{buffer}->create_mark (++$USELESSNAME, $self->{buffer}->get_end_iter, 0); # workaround for gtk-perl bug |
111 | $self->{end} = $self->{buffer}->create_mark (++$USELESSNAME, $self->{buffer}->get_end_iter, 0); # workaround for gtk-perl bug |
| 112 | |
112 | |
| 113 | $self->set_end; |
113 | $self->set_end; |
| 114 | } |
114 | } |
| 115 | |
115 | |
