| … | |
… | |
| 296 | $CFClient::UI::TOPLEVEL->add ($ALT_ENTER_MESSAGE); |
296 | $CFClient::UI::TOPLEVEL->add ($ALT_ENTER_MESSAGE); |
| 297 | |
297 | |
| 298 | $CFClient::UI::TOPLEVEL->add ($MAPWIDGET = new CFClient::UI::MapWidget); |
298 | $CFClient::UI::TOPLEVEL->add ($MAPWIDGET = new CFClient::UI::MapWidget); |
| 299 | $MAPWIDGET->focus_in; |
299 | $MAPWIDGET->focus_in; |
| 300 | $MAPWIDGET->connect (activate_console => sub { |
300 | $MAPWIDGET->connect (activate_console => sub { |
|
|
301 | my ($mapwidget, $preset) = @_; |
|
|
302 | |
| 301 | if ($CONSOLE) { |
303 | if ($CONSOLE) { |
| 302 | $CONSOLE->{input}->focus_in; |
304 | $CONSOLE->{input}->focus_in; |
|
|
305 | |
|
|
306 | if ($preset && $CONSOLE->{input}->get_text eq '') { |
|
|
307 | $CONSOLE->{input}->set_text ($preset); |
|
|
308 | } |
| 303 | } |
309 | } |
| 304 | }); |
310 | }); |
| 305 | |
311 | |
| 306 | $CFClient::UI::TOPLEVEL->add ($BUTTONBAR = new CFClient::UI::HBox); |
312 | $CFClient::UI::TOPLEVEL->add ($BUTTONBAR = new CFClient::UI::HBox); |
| 307 | |
313 | |
