--- deliantra/Deliantra-Client/DC.pm	2006/05/23 00:26:17	1.58
+++ deliantra/Deliantra-Client/DC.pm	2006/05/24 21:49:58	1.61
@@ -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;
@@ -53,7 +54,8 @@
    return unless $GL_DEBUG;
 
    if (my $error = glGetError) {
-      Carp::cluck sprintf "opengl error %x while %s", $error, &sprintf(@_);
+      my ($format, @args) = @_;
+      Carp::cluck sprintf "opengl error %x while $format", $error, @args;
    }
 }
 
@@ -132,6 +134,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 +180,13 @@
    ("\t" x ($indent / 2)) . "$_[1]\n\n"
 }
 
+sub view_head1 {
+   "<span foreground='#ffff00' size='x-large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
+   . $_[1]->content->present ($_[0])
+};
+
 sub view_head2 {
-   "<big>" . $_[1]->title->present ($_[0]) . "</big>\n\n"
+   "<span foreground='#ccccff' size='large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
    . $_[1]->content->present ($_[0])
 };