| … | |
… | |
| 930 | $self->SUPER::destroy; |
930 | $self->SUPER::destroy; |
| 931 | } |
931 | } |
| 932 | |
932 | |
| 933 | package CFPlus::NPCDialog; |
933 | package CFPlus::NPCDialog; |
| 934 | |
934 | |
| 935 | our @ISA = 'CFPlus::UI::FancyFrame'; |
935 | our @ISA = 'CFPlus::UI::Toplevel'; |
| 936 | |
936 | |
| 937 | sub new { |
937 | sub new { |
| 938 | my $class = shift; |
938 | my $class = shift; |
| 939 | |
939 | |
| 940 | my $self = $class->SUPER::new ( |
940 | my $self = $class->SUPER::new ( |
| … | |
… | |
| 1044 | padding_y => 0, |
1044 | padding_y => 0, |
| 1045 | on_button_up => sub { |
1045 | on_button_up => sub { |
| 1046 | $self->send ($kw); |
1046 | $self->send ($kw); |
| 1047 | }; |
1047 | }; |
| 1048 | |
1048 | |
| 1049 | chr 0xfffc |
1049 | "\x{fffc}" |
| 1050 | }giex; |
1050 | }giex; |
| 1051 | |
1051 | |
| 1052 | $self->{textview}->add_paragraph ({ markup => $text, widget => \@link }); |
1052 | $self->{textview}->add_paragraph ({ markup => $text, widget => \@link }); |
| 1053 | $self->{textview}->scroll_to_bottom; |
1053 | $self->{textview}->scroll_to_bottom; |
| 1054 | $self->update_options; |
1054 | $self->update_options; |
