| … | |
… | |
| 710 | my $dialog = new CFClient::UI::FancyFrame |
710 | my $dialog = new CFClient::UI::FancyFrame |
| 711 | title => "Server List", |
711 | title => "Server List", |
| 712 | name => 'metaserver_dialog', |
712 | name => 'metaserver_dialog', |
| 713 | x => 'center', |
713 | x => 'center', |
| 714 | y => 'center', |
714 | y => 'center', |
|
|
715 | z => 3, |
| 715 | child => (my $vbox = new CFClient::UI::VBox), |
716 | child => (my $vbox = new CFClient::UI::VBox), |
| 716 | on_visibility_change => sub { |
717 | on_visibility_change => sub { |
| 717 | update_metaserver if $_[1]; |
718 | update_metaserver if $_[1]; |
| 718 | }, |
719 | }, |
| 719 | ; |
720 | ; |
| … | |
… | |
| 1147 | my ($pod, $label) = @$_; |
1148 | my ($pod, $label) = @$_; |
| 1148 | |
1149 | |
| 1149 | $buttons->add (new CFClient::UI::Button |
1150 | $buttons->add (new CFClient::UI::Button |
| 1150 | text => $label, |
1151 | text => $label, |
| 1151 | on_activate => sub { |
1152 | on_activate => sub { |
| 1152 | my $pom = CFClient::load_pod CFClient::find_rcfile "pod/$pod.pod"; |
1153 | my $pom = CFClient::load_pod CFClient::find_rcfile "pod/$pod.pod", |
|
|
1154 | doc_viewer => 1, sub { CFClient::pod_to_pango_list $_[0] }; |
| 1153 | |
1155 | |
| 1154 | $viewer->clear; |
1156 | $viewer->clear; |
| 1155 | |
1157 | |
| 1156 | $viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0]) |
1158 | $viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0]) |
| 1157 | for @{ CFClient::pod_to_pango_list $pom }; |
1159 | for @$pom; |
| 1158 | |
1160 | |
| 1159 | $viewer->set_offset (0); |
1161 | $viewer->set_offset (0); |
| 1160 | }, |
1162 | }, |
| 1161 | ); |
1163 | ); |
| 1162 | } |
1164 | } |
| … | |
… | |
| 1286 | . "After pressing the combo the binding will be saved automatically and the " |
1288 | . "After pressing the combo the binding will be saved automatically and the " |
| 1287 | . "binding editor closes"); |
1289 | . "binding editor closes"); |
| 1288 | $SETUP_NOTEBOOK->add (Spells => $SETUP_SPELLS = spell_setup, |
1290 | $SETUP_NOTEBOOK->add (Spells => $SETUP_SPELLS = spell_setup, |
| 1289 | "Displays all spells you have and lets you edit keyboard shortcuts for them."); |
1291 | "Displays all spells you have and lets you edit keyboard shortcuts for them."); |
| 1290 | |
1292 | |
| 1291 | $BUTTONBAR = new CFClient::UI::HBox x => 0, y => 0; |
1293 | $BUTTONBAR = new CFClient::UI::Buttonbar x => 0, y => 0, z => 200; # put on top |
| 1292 | |
1294 | |
| 1293 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Setup", other => $SETUP_DIALOG, |
1295 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Setup", other => $SETUP_DIALOG, |
| 1294 | tooltip => "Toggles a dialog where you can configure all aspects of this client."); |
1296 | tooltip => "Toggles a dialog where you can configure all aspects of this client."); |
| 1295 | |
1297 | |
| 1296 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window, |
1298 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Message Window", other => message_window, |
