--- deliantra/Deliantra-Client/DC.pm	2006/05/23 17:30:18	1.59
+++ deliantra/Deliantra-Client/DC.pm	2006/05/24 21:49:58	1.61
@@ -54,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;
    }
 }
 
@@ -133,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;
@@ -170,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])
 };