| … | |
… | |
| 183 | $sw->add (my $tb = $self->{"${key}_txt"} = Gtk2::TextView->new); |
183 | $sw->add (my $tb = $self->{"${key}_txt"} = Gtk2::TextView->new); |
| 184 | my $buf = $tb->get_buffer; |
184 | my $buf = $tb->get_buffer; |
| 185 | $buf->set_text ($ar->get ($key)); |
185 | $buf->set_text ($ar->get ($key)); |
| 186 | $buf->signal_connect (changed => sub { |
186 | $buf->signal_connect (changed => sub { |
| 187 | my ($buf) = @_; |
187 | my ($buf) = @_; |
| 188 | $ar->set ($key, $buf->get_text ($buf->get_start_iter, $buf->get_end_iter, 0)) |
188 | my $txt = $buf->get_text ($buf->get_start_iter, $buf->get_end_iter, 0); |
|
|
189 | if ($txt ne $ar->get ($key)) { |
|
|
190 | $ar->set_silent ($key, $txt); |
|
|
191 | } |
|
|
192 | 1 |
| 189 | }); |
193 | }); |
| 190 | } |
194 | } |
| 191 | |
195 | |
| 192 | my $desc = pseudohtml2txt $type->{desc}; |
196 | my $desc = pseudohtml2txt $type->{desc}; |
| 193 | my $use = pseudohtml2txt $type->{use}; |
197 | my $use = pseudohtml2txt $type->{use}; |
