| … | |
… | |
| 25 | # need to do it again because that pile of garbage called PAR nukes it before main |
25 | # need to do it again because that pile of garbage called PAR nukes it before main |
| 26 | unshift @INC, $ENV{PAR_TEMP} |
26 | unshift @INC, $ENV{PAR_TEMP} |
| 27 | if %PAR::LibCache; |
27 | if %PAR::LibCache; |
| 28 | |
28 | |
| 29 | use Time::HiRes 'time'; |
29 | use Time::HiRes 'time'; |
| 30 | use Pod::POM; |
|
|
| 31 | use Event; |
30 | use Event; |
| 32 | |
31 | |
| 33 | use Crossfire; |
32 | use Crossfire; |
| 34 | use Crossfire::Protocol::Constants; |
33 | use Crossfire::Protocol::Constants; |
| 35 | |
34 | |
| … | |
… | |
| 1148 | my ($pod, $label) = @$_; |
1147 | my ($pod, $label) = @$_; |
| 1149 | |
1148 | |
| 1150 | $buttons->add (new CFClient::UI::Button |
1149 | $buttons->add (new CFClient::UI::Button |
| 1151 | text => $label, |
1150 | text => $label, |
| 1152 | on_activate => sub { |
1151 | on_activate => sub { |
| 1153 | my $parser = new Pod::POM; |
|
|
| 1154 | my $pom = $parser->parse_file (CFClient::find_rcfile "pod/$pod.pod"); |
1152 | my $pom = CFClient::load_pod CFClient::find_rcfile "pod/$pod.pod"; |
| 1155 | |
1153 | |
| 1156 | $viewer->clear; |
1154 | $viewer->clear; |
| 1157 | |
1155 | |
| 1158 | $viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0]) |
1156 | $viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0]) |
| 1159 | for @{ CFClient::pod_to_pango_list $pom }; |
1157 | for @{ CFClient::pod_to_pango_list $pom }; |
