| … | |
… | |
| 892 | $vbox->add (my $buttons = new CFClient::UI::HBox); |
892 | $vbox->add (my $buttons = new CFClient::UI::HBox); |
| 893 | $vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8); |
893 | $vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8); |
| 894 | |
894 | |
| 895 | for ( |
895 | for ( |
| 896 | [intro => "Introduction"], |
896 | [intro => "Introduction"], |
|
|
897 | [manual => "Manual"], |
| 897 | [command_help => "Commands"], |
898 | [command_help => "Commands"], |
| 898 | [skill_help => "Skills"], |
899 | [skill_help => "Skills"], |
| 899 | ) { |
900 | ) { |
| 900 | my ($pod, $label) = @$_; |
901 | my ($pod, $label) = @$_; |
| 901 | |
902 | |
