… | |
… | |
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; |