--- deliantra/Deliantra-Client/DC.pm 2006/05/23 17:30:18 1.59
+++ deliantra/Deliantra-Client/DC.pm 2006/05/23 23:14:44 1.60
@@ -133,6 +133,15 @@
$pom->present ("CFClient::PodToPango")
}
+sub pod_to_pango_list($) {
+ my ($pom) = @_;
+
+ [
+ map s/^(\s*)// && [40 * length $1, length $_ ? $_ : " "],
+ split /\n/, $pom->present ("CFClient::PodToPango")
+ ]
+}
+
package CFClient::PodToPango;
use base Pod::POM::View::Text;
@@ -170,8 +179,13 @@
("\t" x ($indent / 2)) . "$_[1]\n\n"
}
+sub view_head1 {
+ "" . $_[1]->title->present ($_[0]) . "\n\n"
+ . $_[1]->content->present ($_[0])
+};
+
sub view_head2 {
- "" . $_[1]->title->present ($_[0]) . "\n\n"
+ "" . $_[1]->title->present ($_[0]) . "\n\n"
. $_[1]->content->present ($_[0])
};