| … | |
… | |
| 664 | # right: accept |
664 | # right: accept |
| 665 | $table->add_at (4, 0, new DC::UI::Button |
665 | $table->add_at (4, 0, new DC::UI::Button |
| 666 | text => "Accept", |
666 | text => "Accept", |
| 667 | on_activate => sub { |
667 | on_activate => sub { |
| 668 | $conn->send ("reply n"); |
668 | $conn->send ("reply n"); |
| 669 | $STATS_PAGE->hide; |
|
|
| 670 | destroy_query_dialog $conn; |
669 | destroy_query_dialog $conn; |
| 671 | 0 |
670 | 0 |
| 672 | }, |
671 | }, |
| 673 | ); |
672 | ); |
| 674 | |
673 | |
| … | |
… | |
| 2245 | |
2244 | |
| 2246 | $METASERVER = metaserver_dialog; |
2245 | $METASERVER = metaserver_dialog; |
| 2247 | $MESSAGE_WINDOW = new DC::UI::Dockbar (title => 'Messages'); |
2246 | $MESSAGE_WINDOW = new DC::UI::Dockbar (title => 'Messages'); |
| 2248 | $MESSAGE_DIST = new DC::MessageDistributor dockbar => $MESSAGE_WINDOW; |
2247 | $MESSAGE_DIST = new DC::MessageDistributor dockbar => $MESSAGE_WINDOW; |
| 2249 | |
2248 | |
| 2250 | $SETUP_DIALOG->add ($SETUP_NOTEBOOK = new DC::UI::Notebook expand => 1, debug => 1, |
2249 | $SETUP_DIALOG->add ($SETUP_NOTEBOOK = new DC::UI::Notebook expand => 1, |
| 2251 | filter => new DC::UI::ScrolledWindow expand => 1, scroll_y => 1); |
2250 | filter => new DC::UI::ScrolledWindow expand => 1, scroll_y => 1); |
| 2252 | |
2251 | |
| 2253 | $SETUP_NOTEBOOK->add_tab (Login => $SETUP_LOGIN = login_setup, |
2252 | $SETUP_NOTEBOOK->add_tab (Login => $SETUP_LOGIN = login_setup, |
| 2254 | "Configure the server to play on, your username and password."); |
2253 | "Configure the server to play on, your username and password."); |
| 2255 | $SETUP_NOTEBOOK->add_tab (Server => $SETUP_SERVER = server_setup, |
2254 | $SETUP_NOTEBOOK->add_tab (Server => $SETUP_SERVER = server_setup, |
| … | |
… | |
| 2294 | }, |
2293 | }, |
| 2295 | ); |
2294 | ); |
| 2296 | |
2295 | |
| 2297 | $BUTTONBAR->add (new DC::UI::Flopper text => "Help!", other => $HELP_WINDOW = help_window, |
2296 | $BUTTONBAR->add (new DC::UI::Flopper text => "Help!", other => $HELP_WINDOW = help_window, |
| 2298 | tooltip => "View Documentation"); |
2297 | tooltip => "View Documentation"); |
| 2299 | |
|
|
| 2300 | |
2298 | |
| 2301 | $BUTTONBAR->add (new DC::UI::Button |
2299 | $BUTTONBAR->add (new DC::UI::Button |
| 2302 | text => "Quit", |
2300 | text => "Quit", |
| 2303 | tooltip => "Terminates the program", |
2301 | tooltip => "Terminates the program", |
| 2304 | on_activate => sub { |
2302 | on_activate => sub { |
