| … | |
… | |
| 577 | |
577 | |
| 578 | $vbox->add (new CFClient::UI::Flopper |
578 | $vbox->add (new CFClient::UI::Flopper |
| 579 | expand => 1, |
579 | expand => 1, |
| 580 | text => "Metaserver", |
580 | text => "Metaserver", |
| 581 | other => $METASERVER, |
581 | other => $METASERVER, |
| 582 | tooltip => "Show a list of aviable crossfire servers", |
582 | tooltip => "Show a list of avaible crossfire servers", |
| 583 | connect_open => sub { |
583 | connect_open => sub { |
| 584 | update_metaserver $HOST; |
584 | update_metaserver $HOST; |
| 585 | } |
585 | } |
| 586 | ); |
586 | ); |
| 587 | } |
587 | } |
| … | |
… | |
| 751 | |
751 | |
| 752 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup); |
752 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Client Setup", other => client_setup); |
| 753 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup); |
753 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Server Setup", other => server_setup); |
| 754 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window); |
754 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window); |
| 755 | |
755 | |
|
|
756 | $CFClient::UI::ROOT->add (make_gauge_window); # XXX: this has to be set before make_stats_window as make_stats_window calls update_stats_window which updated the gauges also X-D |
|
|
757 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window); |
|
|
758 | |
| 756 | $BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub { |
759 | $BUTTONBAR->add (new CFClient::UI::Button text => "Save Config", connect_activate => sub { |
| 757 | CFClient::write_cfg "$Crossfire::VARDIR/pclientrc"; |
760 | CFClient::write_cfg "$Crossfire::VARDIR/pclientrc"; |
| 758 | status "Configuration Saved"; |
761 | status "Configuration Saved"; |
| 759 | }); |
762 | }); |
| 760 | |
763 | |
| 761 | $CFClient::UI::ROOT->add (make_gauge_window); # XXX: this has to be set before make_stats_window as make_stats_window calls update_stats_window which updated the gauges also X-D |
|
|
| 762 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Stats Window", other => make_stats_window); |
|
|
| 763 | |
|
|
| 764 | $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup |
764 | $BUTTONBAR->{children}[1]->emit ("activate"); # pop up server setup |
| 765 | |
|
|
| 766 | |
|
|
| 767 | } |
765 | } |
| 768 | |
766 | |
| 769 | sub video_shutdown { |
767 | sub video_shutdown { |
| 770 | $CFClient::UI::ROOT->{children} = []; |
768 | $CFClient::UI::ROOT->{children} = []; |
| 771 | undef $SDL_ACTIVE; |
769 | undef $SDL_ACTIVE; |
