| … | |
… | |
| 54 | |
54 | |
| 55 | return unless $::CONN; |
55 | return unless $::CONN; |
| 56 | |
56 | |
| 57 | if ($text =~ /^\/(.*)/) { |
57 | if ($text =~ /^\/(.*)/) { |
| 58 | $::CONN->user_send ($1); |
58 | $::CONN->user_send ($1); |
| 59 | } else { |
59 | } elsif (length $text) { |
| 60 | my $say_cmd = $self->{say_command}; |
60 | my $say_cmd = $self->{say_command}; |
| 61 | $::CONN->user_send ($say_cmd . $text); |
61 | $::CONN->user_send ($say_cmd . $text); |
|
|
62 | } else { |
|
|
63 | $input->{refocus_map} = 1; |
| 62 | } |
64 | } |
| 63 | if ($input->{refocus_map}) { |
65 | if (delete $input->{refocus_map}) { |
| 64 | delete $input->{refocus_map}; |
|
|
| 65 | $::MAPWIDGET->focus_in |
66 | $::MAPWIDGET->emit ("focus_in"); |
| 66 | } |
67 | } |
| 67 | |
68 | |
| 68 | 0 |
69 | 0 |
| 69 | }, |
70 | }, |
| 70 | on_key_down => sub { |
71 | on_key_down => sub { |
| … | |
… | |
| 119 | |
120 | |
| 120 | sub set_max_para { |
121 | sub set_max_para { |
| 121 | my ($self, $max_par) = @_; |
122 | my ($self, $max_par) = @_; |
| 122 | $self->{txt}{max_par} = $max_par; |
123 | $self->{txt}{max_par} = $max_par; |
| 123 | } |
124 | } |
|
|
125 | |
