… | |
… | |
1532 | my ($self) = @_; |
1532 | my ($self) = @_; |
1533 | |
1533 | |
1534 | $self->send ("command output-sync $CFG->{output_sync}"); |
1534 | $self->send ("command output-sync $CFG->{output_sync}"); |
1535 | $self->send ("command output-count $CFG->{output_count}"); |
1535 | $self->send ("command output-count $CFG->{output_count}"); |
1536 | |
1536 | |
|
|
1537 | my $parser = new Pod::POM; |
|
|
1538 | my $pod = $parser->parse_file (CFClient::find_rcfile "pod/skill_help.pod"); |
|
|
1539 | |
|
|
1540 | my %skill_tooltip; |
|
|
1541 | |
|
|
1542 | for my $head2 ($pod->head2) { |
|
|
1543 | $skill_tooltip{$head2->title} = CFClient::pod_to_pango $head2->content; |
|
|
1544 | } |
|
|
1545 | |
1537 | for my $skill (values %{$self->{skill_info}}) { |
1546 | for my $skill (values %{$self->{skill_info}}) { |
1538 | $MAPWIDGET->add_command ("ready_skill $skill", CFClient::UI::Label::escape "Ready the skill '$skill'"); |
1547 | $MAPWIDGET->add_command ("ready_skill $skill", |
1539 | $MAPWIDGET->add_command ("use_skill $skill", CFClient::UI::Label::escape "Immediately use the skill '$skill'"); |
1548 | (CFClient::UI::Label::escape "Ready the skill '$skill'\n\n") |
|
|
1549 | . $skill_tooltip{$skill}); |
|
|
1550 | $MAPWIDGET->add_command ("use_skill $skill", |
|
|
1551 | (CFClient::UI::Label::escape "Immediately use the skill '$skill'\n\n") |
|
|
1552 | . $skill_tooltip{$skill}); |
1540 | } |
1553 | } |
1541 | } |
1554 | } |
1542 | |
1555 | |
1543 | sub conn::eof { |
1556 | sub conn::eof { |
1544 | $MAPWIDGET->clr_commands; |
1557 | $MAPWIDGET->clr_commands; |