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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.420 by root, Wed Jul 25 15:50:17 2007 UTC vs.
Revision 1.429 by root, Tue Aug 21 00:59:34 2007 UTC

    my $child = delete $arg{child};
    my $self;
    my $hslider = new CFPlus::UI::Slider
-      col        => 0,
+      c_col      => 0,
-      row        => 1,
+      c_row      => 1,
       vertical   => 0,
       range      => [0, 0, 1, 0.01], # HACK fix
       on_changed => sub {
          $self->{hpos} = $_[1];
          $self->{vp}->set_offset ($self->{hpos}, $self->{vpos});
       },
    ;
    my $vslider = new CFPlus::UI::Slider
-      col        => 1,
+      c_col      => 1,
-      row        => 0,
+      c_row      => 0,
       vertical   => 1,
       range      => [0, 0, 1, 0.01], # HACK fix
       on_changed => sub {
          $self->{vpos} = $_[1];
          $self->{vp}->set_offset ($self->{hpos}, $self->{vpos});
       row_expand => [1, 0],
       %arg,
    );
    $self->{vp} = new CFPlus::UI::ViewPort
-      col        => 0,
+      c_col      => 0,
-      row        => 0,
+      c_row      => 0,
       expand     => 1,
       scroll_x   => $self->{scroll_x},
       scroll_y   => $self->{scroll_y},
       on_changed => sub {
          my ($vp, $x, $y) = @_;
 sub add {
    my ($self, @widgets) = @_;
    for my $child (@widgets) {
-      $child->{rowspan} ||= 1;
+      $child->{c_rowspan} ||= 1;
-      $child->{colspan} ||= 1;
+      $child->{c_colspan} ||= 1;
    }
    $self->SUPER::add (@widgets);
 }
    my @widgets;
    while (@_) {
       my ($col, $row, $child) = splice @_, 0, 3, ();
-      $child->{row} = $row;
+      $child->{c_row} = $row;
-      $child->{col} = $col;
+      $child->{c_col} = $col;
       push @widgets, $child;
    }
    $self->add (@widgets);
    my (@w, @h);
    my @children = $self->children;
    # first pass, columns
-   for my $widget (sort { $a->{colspan} <=> $b->{colspan} } @children) {
+   for my $widget (sort { $a->{c_colspan} <=> $b->{c_colspan} } @children) {
-      my ($c, $w, $cs) = @$widget{qw(col req_w colspan)};
+      my ($c, $w, $cs) = @$widget{qw(c_col req_w c_colspan)};
       my $sw = sum @w[$c .. $c + $cs - 1];
       if ($w > $sw) {
          $_ += ($w - $sw) / ($sw ? $sw / $_ : $cs) for @w[$c .. $c + $cs - 1];
       }
    }
    # second pass, rows
-   for my $widget (sort { $a->{rowspan} <=> $b->{rowspan} } @children) {
+   for my $widget (sort { $a->{c_rowspan} <=> $b->{c_rowspan} } @children) {
-      my ($r, $h, $rs) = @$widget{qw(row req_h rowspan)};
+      my ($r, $h, $rs) = @$widget{qw(c_row req_h c_rowspan)};
       my $sh = sum @h[$r .. $r + $rs - 1];
       if ($h > $sh) {
          $_ += ($h - $sh) / ($sh ? $sh / $_ : $rs) for @h[$r .. $r + $rs - 1];
    my @x; for (0 .. $#$ws) { $x[$_ + 1] = $x[$_] + $ws->[$_] }
    my @y; for (0 .. $#$hs) { $y[$_ + 1] = $y[$_] + $hs->[$_] }
    for my $widget ($self->children) {
-      my ($r, $c, $w, $h, $rs, $cs) = @$widget{qw(row col req_w req_h rowspan colspan)};
+      my ($r, $c, $w, $h, $rs, $cs) = @$widget{qw(c_row c_col req_w req_h c_rowspan c_colspan)};
       $widget->configure (
          $x[$c], $y[$r],
          $x[$c + $cs] - $x[$c], $y[$r + $rs] - $y[$r],
       );
    delete $self->{ox};
    $self->SUPER::realloc;
 }
+sub clear {
+   my ($self) = @_;
+   $self->set_text ("");
+}
 sub set_text {
    my ($self, $text) = @_;
    return if $self->{text} eq "T$text";
    $self->{text} = "T$text";
                        :                      ($self->{w} - $size->[0]) * 0.5);
       $self->{oy} = int ($self->{valign} < 0 ? $self->{padding_y}
                        : $self->{valign} > 0 ? $self->{h} - $size->[1] - $self->{padding_y}
                        :                       ($self->{h} - $size->[1]) * 0.5);
+      $self->{layout}->render ($self->{ox}, $self->{oy}, $self->{style});
    };
 #   unless ($self->{list}) {
 #      $self->{list} = CFPlus::OpenGL::glGenList;
 #      CFPlus::OpenGL::glNewList $self->{list};
 #      CFPlus::OpenGL::glEndList;
 #   }
 #
 #   CFPlus::OpenGL::glCallList $self->{list};
-   $self->{layout}->render ($self->{ox}, $self->{oy}, $self->{style});
+   $self->{layout}->draw;
 }
 #sub destroy {
 #   my ($self) = @_;
 #
       can_events => 1,
       @_
    );
 }
+sub invoke_button_down {
+   my ($self, $ev, $x, $y) = @_;
+   1
+}
 sub invoke_button_up {
    my ($self, $ev, $x, $y) = @_;
    $self->emit ("activate")
       if $x >= 0 && $x < $self->{w}
             if ($y0 < $y + $h && $y < $y1) {
                my $layout = $self->get_layout ($para);
                $layout->render ($para->{indent}, $y - $y0);
+               $layout->draw;
                if (my @w = @{ $para->{widget} }) {
                   my @s = $layout->get_shapes;
                   for (@w) {
       $widget->{animspeed} = List::Util::max 0.05, $widget->{animspeed};
       $widget->{anim_start} = $self->{animspeed} * int Event::time / $self->{animspeed};
       $self->{timer} = Event->timer (
          parked   => 1,
          cb       => sub {
-            return unless $::CONN && $widget;
+            return unless $::CONN;
+            my $w = $widget
+               or return;
-            ++$widget->{frame};
+            ++$w->{frame};
-            $widget->update_face;
+            $w->update_face;
+            # somehow, $widget can go away
-            $widget->update;
+            $w->update;
-            $widget->update_timer;
+            $w->update_timer;
          },
       );
       $self->update_face;
       $self->update_timer;
 }
 sub update_face {
    my ($self) = @_;
-   return unless $::CONN;
+   if ($::CONN) {
-   if (my $anim = $::CONN->{anim}[$self->{anim}]) {
+      if (my $anim = $::CONN->{anim}[$self->{anim}]) {
-      if ($anim && @$anim) {
+         if ($anim && @$anim) {
-         delete $self->{wait_face};
-         $self->{face} = $anim->[ $self->{frame} % @$anim ];
+            $self->{face} = $anim->[ $self->{frame} % @$anim ];
+            delete $self->{face_change_cb};
-         $self->{tex} = $::CONN->{texture}[ $::CONN->{faceid}[$self->{face}] ];
+            if (my $tex = $self->{tex} = $::CONN->{texture}[ $::CONN->{face}[$self->{face}]{id} ]) {
+               unless ($tex->{name} || $tex->{loading}) {
+                  $tex->upload (sub { $self->reconfigure });
+               }
+            }
+         }
       }
    }
 }
 sub size_request {
    my ($self) = @_;
    if ($::CONN) {
-      if (my $faceid = $::CONN->{faceid}[$self->{face}]) {
+      if (my $faceid = $::CONN->{face}[$self->{face}]{id}) {
-         if (my $tex = $::CONN->{texture}[$faceid]) {
+         if (my $tex = $self->{tex} = $::CONN->{texture}[$faceid]) {
-            $self->{tex} = $tex;
+            if ($tex->{name}) {
-            return ($self->{size_w} || $tex->{w}, $self->{size_h} || $tex->{h});
+               return ($self->{size_w} || $tex->{w}, $self->{size_h} || $tex->{h});
-         } else {
+            } elsif (!$tex->{loading}) {
-            $self->{wait_face} ||= $::CONN->connect_face_update ($faceid, sub {
+               $tex->upload (sub { $self->reconfigure });
-               $self->realloc;
-            });
+            }
          }
+         $self->{face_change_cb} ||= $::CONN->on_face_change ($self->{face}, sub { $self->reconfigure });
       }
    }
    ($self->{size_w} || 8, $self->{size_h} || 8)
 }
 }
 sub update {
    my ($self) = @_;
-   $::WANT_REFRESH++;
+   $::WANT_REFRESH->start;
 }
 sub add {
    my ($self, @children) = @_;

Diff Legend

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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents): Revision 1.420 by root, Wed Jul 25 15:50:17 2007 UTC vs. Revision 1.429 by root, Tue Aug 21 00:59:34 2007 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.420 by root, Wed Jul 25 15:50:17 2007 UTC vs.
Revision 1.429 by root, Tue Aug 21 00:59:34 2007 UTC