| … | |
… | |
| 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 | |
1453 | |
| 1454 | # $viewer->add_paragraph ([1, 1, 1, 1], ["<big>Test</big>\n\n \x{fffc}\n", |
1454 | # $viewer->add_paragraph ([1, 1, 1, 1], ["<big>Test</big>\n\n \x{fffc} \x{fffc}\n", |
| 1455 | # (new CFClient::UI::Image path => "x.png"), |
1455 | # (new CFClient::UI::Image path => "x.png", can_hover => 1, can_events => 1), |
|
|
1456 | # (new CFClient::UI::Label text => "üüüü", can_hover => 1, can_events => 1, tooltip => "??"), |
| 1456 | # ]);#d# |
1457 | # ]);#d# |
| 1457 | |
1458 | |
| 1458 | $viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0]) |
1459 | $viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0]) |
| 1459 | for @$pom; |
1460 | for @$pom; |
| 1460 | |
1461 | |
