| … | |
… | |
| 749 | ); |
749 | ); |
| 750 | $tbl2->add ($col + 1, $row, new CFClient::UI::Image |
750 | $tbl2->add ($col + 1, $row, new CFClient::UI::Image |
| 751 | font => $FONT_FIXED, |
751 | font => $FONT_FIXED, |
| 752 | can_hover => 1, |
752 | can_hover => 1, |
| 753 | can_events => 1, |
753 | can_events => 1, |
| 754 | image => "ui/resist/resist_$_.png", |
754 | path => "ui/resist/resist_$_.png", |
| 755 | tooltip => $resist_names{$_}, |
755 | tooltip => $resist_names{$_}, |
| 756 | ); |
756 | ); |
| 757 | |
757 | |
| 758 | $row++; |
758 | $row++; |
| 759 | if ($row % 6 == 0) { |
759 | if ($row % 6 == 0) { |
| … | |
… | |
| 1435 | $buttons->add (new CFClient::UI::Label text => "Choose a document to display: "); |
1435 | $buttons->add (new CFClient::UI::Label text => "Choose a document to display: "); |
| 1436 | $buttons->add (my $combo = new CFClient::UI::Combobox |
1436 | $buttons->add (my $combo = new CFClient::UI::Combobox |
| 1437 | value => undef, |
1437 | value => undef, |
| 1438 | options => [ |
1438 | options => [ |
| 1439 | [intro => "Introduction"], |
1439 | [intro => "Introduction"], |
| 1440 | [manual => "Manual"], |
1440 | [manual => "Main Manual"], |
| 1441 | [skill_help => "Skills"], |
1441 | [skill_help => "Skill Reference"], |
| 1442 | [command_help => "Commands"], |
1442 | [command_help => "Command Reference"], |
| 1443 | [dmcommand_help => "DM Commands"], |
1443 | [dmcommand_help => "DM Commands"], |
| 1444 | [COPYING => "License Terms"], |
1444 | [COPYING => "License Terms"], |
| 1445 | ], |
1445 | ], |
| 1446 | on_changed => sub { |
1446 | on_changed => sub { |
| 1447 | my ($self, $pod) = @_; |
1447 | my ($self, $pod) = @_; |
| 1448 | |
1448 | |
| 1449 | my $pom = CFClient::load_pod CFClient::find_rcfile "pod/$pod.pod", |
1449 | my $pom = CFClient::load_pod CFClient::find_rcfile "pod/$pod.pod", |
| 1450 | doc_viewer => 1, sub { CFClient::pod_to_pango_list $_[0] }; |
1450 | doc_viewer => 1, sub { CFClient::pod_to_pango_list $_[0] }; |
| 1451 | |
1451 | |
| 1452 | $viewer->clear; |
1452 | $viewer->clear; |
|
|
1453 | |
|
|
1454 | # $viewer->add_paragraph ([1, 1, 1, 1], ["<big>Test</big>\n\n \x{fffc}\n", |
|
|
1455 | # (new CFClient::UI::Image path => "x.png"), |
|
|
1456 | # ]);#d# |
| 1453 | |
1457 | |
| 1454 | $viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0]) |
1458 | $viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0]) |
| 1455 | for @$pom; |
1459 | for @$pom; |
| 1456 | |
1460 | |
| 1457 | $viewer->set_offset (0); |
1461 | $viewer->set_offset (0); |
|
|
1462 | |
| 1458 | 0 |
1463 | 0 |
| 1459 | }, |
1464 | }, |
| 1460 | on_visibility_change => sub { |
1465 | on_visibility_change => sub { |
| 1461 | my ($self, $visible) = @_; |
1466 | my ($self, $visible) = @_; |
| 1462 | return unless $visible; |
1467 | return unless $visible; |
