[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC.pm

Comparing deliantra/Deliantra-Client/DC.pm (file contents):
Revision 1.59 by elmex, Tue May 23 17:30:18 2006 UTC vs.
Revision 1.61 by root, Wed May 24 21:49:58 2006 UTC

 sub gl_check {
    return unless $GL_DEBUG;
    if (my $error = glGetError) {
+      my ($format, @args) = @_;
-      Carp::cluck sprintf "opengl error %x while %s", $error, &sprintf(@_);
+      Carp::cluck sprintf "opengl error %x while $format", $error, @args;
    }
 }
 sub find_rcfile($) {
    my $path;
    my ($pom) = @_;
    $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;
 our $indent = 0;
 sub view_textblock {
    ("\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])
 };
 sub view_over {
    local $indent = $indent + $_[1]->indent;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines