… | |
… | |
15 | fontsize => $::CFG->{log_fontsize}, |
15 | fontsize => $::CFG->{log_fontsize}, |
16 | indent => -4, |
16 | indent => -4, |
17 | can_hover => 1, |
17 | can_hover => 1, |
18 | can_events => 1, |
18 | can_events => 1, |
19 | max_par => $::CFG->{logview_max_par}, |
19 | max_par => $::CFG->{logview_max_par}, |
|
|
20 | tooltip => |
|
|
21 | $self->{text_tooltip} |
20 | tooltip => "<b>Server Log</b>. This text viewer contains all recent messages sent by the server.", |
22 | || "<b>Server Log</b>. This text viewer contains all recent messages " |
|
|
23 | ."sent by the server.", |
21 | )); |
24 | )); |
22 | |
25 | |
|
|
26 | $self->add (my $hb = CFPlus::UI::HBox->new); |
|
|
27 | |
|
|
28 | if ($self->{say_command}) { |
|
|
29 | $hb->add (CFPlus::UI::Label->new (markup => $self->{say_command})); |
|
|
30 | } |
23 | $self->add ($self->{input} = CFPlus::UI::Entry->new ( |
31 | $hb->add ($self->{input} = CFPlus::UI::Entry->new ( |
|
|
32 | expand => 1, |
|
|
33 | tooltip => |
|
|
34 | $self->{entry_tooltip} |
24 | tooltip => "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> " |
35 | || "<b>Chat Box</b>. If you enter a text and press return/enter here, the current <i>communication command</i> " |
25 | . "from the client setup will be prepended (e.g. <b>shout</b>, <b>chat</b>...). " |
36 | . "from the client setup will be prepended (e.g. <b>shout</b>, <b>chat</b>...). " |
26 | . "If you prepend a slash (/), you will submit a command instead (similar to IRC). " |
37 | . "If you prepend a slash (/), you will submit a command instead (similar to IRC). " |
27 | . "A better way to submit commands (and the occasional chat command) is often the map command completer.", |
38 | . "A better way to submit commands (and the occasional chat command) is often the map command completer.", |
28 | on_focus_in => sub { |
39 | on_focus_in => sub { |
29 | my ($input, $prev_focus) = @_; |
40 | my ($input, $prev_focus) = @_; |