| … | |
… | |
| 34 | |
34 | |
| 35 | map ["$cmd$_", $text], |
35 | map ["$cmd$_", $text], |
| 36 | sort { (length $a) <=> (length $b) } |
36 | sort { (length $a) <=> (length $b) } |
| 37 | @args |
37 | @args |
| 38 | } sort { $a->{par} <=> $b->{par} } |
38 | } sort { $a->{par} <=> $b->{par} } |
| 39 | CFPlus::Pod::find command_help => "*"; |
39 | CFPlus::Pod::find command => "*"; |
| 40 | |
40 | |
| 41 | $self->{map_widget}->add_command (@$_) |
41 | $self->{map_widget}->add_command (@$_) |
| 42 | for @cmd_help; |
42 | for @cmd_help; |
| 43 | |
43 | |
| 44 | $self->{noface} = new_from_file CFPlus::Texture |
44 | $self->{noface} = new_from_file CFPlus::Texture |
| … | |
… | |
| 57 | } |
57 | } |
| 58 | |
58 | |
| 59 | sub logprint { |
59 | sub logprint { |
| 60 | my ($self, @a) = @_; |
60 | my ($self, @a) = @_; |
| 61 | |
61 | |
|
|
62 | return; |
| 62 | $self->{log_fh} ||= do { |
63 | $self->{log_fh} ||= do { |
| 63 | my $path = "$Crossfire::VARDIR/log.$self->{host}"; |
64 | my $path = "$Crossfire::VARDIR/log.$self->{host}"; |
| 64 | |
65 | |
| 65 | open my $fh, ">>:utf8", $path |
66 | open my $fh, ">>:utf8", $path |
| 66 | or die "Couldn't open logfile $path: $!"; |
67 | or die "Couldn't open logfile $path: $!"; |
| … | |
… | |
| 930 | $self->SUPER::destroy; |
931 | $self->SUPER::destroy; |
| 931 | } |
932 | } |
| 932 | |
933 | |
| 933 | package CFPlus::NPCDialog; |
934 | package CFPlus::NPCDialog; |
| 934 | |
935 | |
| 935 | our @ISA = 'CFPlus::UI::FancyFrame'; |
936 | our @ISA = 'CFPlus::UI::Toplevel'; |
| 936 | |
937 | |
| 937 | sub new { |
938 | sub new { |
| 938 | my $class = shift; |
939 | my $class = shift; |
| 939 | |
940 | |
| 940 | my $self = $class->SUPER::new ( |
941 | my $self = $class->SUPER::new ( |
| … | |
… | |
| 1044 | padding_y => 0, |
1045 | padding_y => 0, |
| 1045 | on_button_up => sub { |
1046 | on_button_up => sub { |
| 1046 | $self->send ($kw); |
1047 | $self->send ($kw); |
| 1047 | }; |
1048 | }; |
| 1048 | |
1049 | |
| 1049 | chr 0xfffc |
1050 | "\x{fffc}" |
| 1050 | }giex; |
1051 | }giex; |
| 1051 | |
1052 | |
| 1052 | $self->{textview}->add_paragraph ({ markup => $text, widget => \@link }); |
1053 | $self->{textview}->add_paragraph ({ markup => $text, widget => \@link }); |
| 1053 | $self->{textview}->scroll_to_bottom; |
1054 | $self->{textview}->scroll_to_bottom; |
| 1054 | $self->update_options; |
1055 | $self->update_options; |
