| … | |
… | |
| 322 | } |
322 | } |
| 323 | }); |
323 | }); |
| 324 | |
324 | |
| 325 | $CFClient::UI::TOPLEVEL->add ($BUTTONBAR = new CFClient::UI::HBox); |
325 | $CFClient::UI::TOPLEVEL->add ($BUTTONBAR = new CFClient::UI::HBox); |
| 326 | |
326 | |
| 327 | $BUTTONBAR->add (my $setup = new CFClient::UI::Flopper x => 0, y => 0, text => "Setup", other => config_dialog, state => 1); |
327 | $BUTTONBAR->add (my $setup = new CFClient::UI::Flopper text => "Client Setup", other => config_dialog, state => 1); |
|
|
328 | $BUTTONBAR->add (my $setup = new CFClient::UI::Flopper text => "Server", other => config_dialog, state => 1); |
| 328 | $BUTTONBAR->add (my $setup = new CFClient::UI::Flopper x => 0, y => 0, text => "Console", other => console_window); |
329 | $BUTTONBAR->add (my $setup = new CFClient::UI::Flopper text => "Console", other => console_window); |
|
|
330 | $BUTTONBAR->add (my $setup = new CFClient::UI::Button text => "Save Config", other => console_window); |
| 329 | } |
331 | } |
| 330 | |
332 | |
| 331 | sub destroy_screen { |
333 | sub destroy_screen { |
| 332 | $CFClient::UI::TOPLEVEL->{children} = []; |
334 | $CFClient::UI::TOPLEVEL->{children} = []; |
| 333 | undef $SDL_ACTIVE; |
335 | undef $SDL_ACTIVE; |
