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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.349 by root, Thu Aug 17 16:05:36 2006 UTC vs.
Revision 1.352 by root, Sun Oct 1 12:10:00 2006 UTC

       glClear GL_COLOR_BUFFER_BIT;
       {
          package CFPlus::UI::Base;
-         ($draw_x, $draw_y, $draw_w, $draw_h) =
+         local ($draw_x, $draw_y, $draw_w, $draw_h) =
             (0, 0, $self->{w}, $self->{h});
+         $self->_render;
       }
-      $self->_render;
    };
 }
 sub _draw {
    my ($self) = @_;
       $self->{texture} ||= new_from_opengl CFPlus::Texture $W, $H, sub {
          glClearColor 0, 0, 0, 0;
          glClear GL_COLOR_BUFFER_BIT;
+         package CFPlus::UI::Base;
+         local ($draw_x, $draw_y, $draw_w, $draw_h) =
+            (0, 0, $self->{w}, $self->{h});
          my $top = int $self->{children}[1]{range}[0];
          my $paridx = 0;
          my $top_paragraph;
          my $top = int $self->{children}[1]{range}[0];
             }
             1
          };
-         my $tooltip = "$spell->{message}$TOOLTIP_ALL";
+         my $tooltip = (CFPlus::asxml $spell->{message}) . $TOOLTIP_ALL;
          #TODO: add path info to tooltip
          #$self->add (6, $row, new CFPlus::UI::Label text => $spell->{path});
          $self->add (0, $row, new CFPlus::UI::Face
    glLoadIdentity;
    {
       package CFPlus::UI::Base;
-      ($draw_x, $draw_y, $draw_w, $draw_h) =
+      local ($draw_x, $draw_y, $draw_w, $draw_h) =
          (0, 0, $self->{w}, $self->{h});
-   }
-   $self->_draw;
+      $self->_draw;
+   }
 }
 #############################################################################
 package CFPlus::UI;

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