--- deliantra/Deliantra-Client/DC.pm 2006/05/23 00:26:17 1.58
+++ deliantra/Deliantra-Client/DC.pm 2006/05/23 23:14:44 1.60
@@ -38,6 +38,7 @@
%GL_EXT = map +($_ => 1), split /\s+/, gl_extensions;
$GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} || $GL_VERSION >= 2;
+ $GL_NPOT = 0 if gl_vendor =~ /ATI Technologies/; # ATI doesn't get it right...
glDisable GL_COLOR_MATERIAL;
glShadeModel GL_FLAT;
@@ -132,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;
@@ -169,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])
};