… | |
… | |
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, |