… | |
… | |
1257 | $MAPWIDGET->clr_commands; |
1257 | $MAPWIDGET->clr_commands; |
1258 | |
1258 | |
1259 | my $parser = new Pod::POM; |
1259 | my $parser = new Pod::POM; |
1260 | my $pod = $parser->parse_file (CFClient::find_rcfile "pod/command_help.pod"); |
1260 | my $pod = $parser->parse_file (CFClient::find_rcfile "pod/command_help.pod"); |
1261 | |
1261 | |
1262 | for my $head2 ($pod->head2) { |
1262 | for my $head2 ($pod->head1->[-2]->head2) { |
1263 | $head2->title =~ /^(\S+) (?:\s+ \( ([^\)]*) \) )?/x |
1263 | $head2->title =~ /^(\S+) (?:\s+ \( ([^\)]*) \) )?/x |
1264 | or next; |
1264 | or next; |
1265 | |
1265 | |
1266 | my $cmd = $1; |
1266 | my $cmd = $1; |
1267 | my @args = split /\|/, $2; |
1267 | my @args = split /\|/, $2; |
… | |
… | |
1687 | my $parser = new Pod::POM; |
1687 | my $parser = new Pod::POM; |
1688 | my $pod = $parser->parse_file (CFClient::find_rcfile "pod/skill_help.pod"); |
1688 | my $pod = $parser->parse_file (CFClient::find_rcfile "pod/skill_help.pod"); |
1689 | |
1689 | |
1690 | my %skill_tooltip; |
1690 | my %skill_tooltip; |
1691 | |
1691 | |
1692 | for my $head2 ($pod->head2) { |
1692 | for my $head2 ($pod->head1->[-2]->head2) { |
1693 | $skill_tooltip{$head2->title} = CFClient::pod_to_pango $head2->content; |
1693 | $skill_tooltip{$head2->title} = CFClient::pod_to_pango $head2->content; |
1694 | } |
1694 | } |
1695 | |
1695 | |
1696 | for my $skill (values %{$self->{skill_info}}) { |
1696 | for my $skill (values %{$self->{skill_info}}) { |
1697 | $MAPWIDGET->add_command ("ready_skill $skill", |
1697 | $MAPWIDGET->add_command ("ready_skill $skill", |