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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.76 by root, Tue Apr 11 21:24:09 2006 UTC vs.
Revision 1.77 by root, Tue Apr 11 22:14:13 2006 UTC

    my $widget = $GRAB || $TOPLEVEL->find_widget ($x, $y);
    $BUTTON_STATE &= ~(1 << ($ev->button - 1));
-   $GRAB->button_down ($ev, $GRAB->translate ($x, $y)) if $GRAB;
+   $GRAB->button_up ($ev, $GRAB->translate ($x, $y)) if $GRAB;
    if (!$BUTTON_STATE) {
       my $grab = $GRAB; undef $GRAB;
       $grab->update if $grab;
       $GRAB->update if $GRAB;
    $self
 }
 sub add {
-   my ($self, $chld, $expand) = @_;
+   my ($self, $chld) = @_;
-   $chld->{expand} = $expand;
    $chld->set_parent ($self);
    $self->{children} = [
       sort { $a->{z} <=> $b->{z} }
          @{$self->{children}}, $chld
          qw(d1_bg.png d1_border_top.png d1_border_right.png d1_border_left.png d1_border_bottom.png);
 sub size_request {
    my ($self) = @_;
+   my ($w, $h) =
+      $self->{user_w} && $self->{user_h}
+         ? ($self->{user_w}, $self->{user_h})
-   my ($w, $h) = $self->SUPER::size_request;
+         : ($self->SUPER::size_request);
    $h += $tex[1]->{h};
    $h += $tex[4]->{h};
    $w += $tex[2]->{w};
    $w += $tex[3]->{w};
 sub size_allocate {
    my ($self, $x, $y, $w, $h) = @_;
    $self->_size_allocate ($x, $y, $w, $h) or return;
-   $h -= $tex[1]->{h};
+   $h -= $tex[1]{h};
-   $h -= $tex[4]->{h};
+   $h -= $tex[4]{h};
-   $w -= $tex[2]->{w};
+   $w -= $tex[2]{w};
-   $w -= $tex[3]->{w};
+   $w -= $tex[3]{w};
    $h = $h < 0 ? 0 : $h;
    $w = $w < 0 ? 0 : $w;
    my $child = $self->child;
    $child->size_allocate ($tex[3]->{w}, $tex[1]->{h}, $w, $h);
+}
+sub button_down {
+   my ($self, $ev, $x, $y) = @_;
+   if ($x < $self->{w} && $x >= $self->{w} - $tex[2]{w}
+       && $y < $self->{h} && $y >= $self->{h} - $tex[4]{h}) {
+      my ($ox, $oy) = ($ev->button_x, $ev->button_y);
+      my ($bw, $bh) = ($self->{w}, $self->{h});
+      $self->{motion} = sub {
+         my ($ev, $x, $y) = @_;
+         ($x, $y) = ($ev->motion_x, $ev->motion_y);
+         $self->{user_w} = $bw + $x - $ox;
+         $self->{user_h} = $bh + $y - $oy;
+         $self->update;
+      };
+   } elsif ($x >= 0 && $x < $self->{w}
+            && $y >= 0 && $y < $tex[1]{h}) {
+      my ($ox, $oy) = ($ev->button_x, $ev->button_y);
+      my ($bx, $by) = ($self->{x}, $self->{y});
+      $self->{motion} = sub {
+         my ($ev, $x, $y) = @_;
+         ($x, $y) = ($ev->motion_x, $ev->motion_y);
+         $self->move ($bx + $x - $ox, $by + $y - $oy);
+         $self->update;
+      };
+   }
+}
+sub button_up {
+   my ($self, $ev, $x, $y) = @_;
+   delete $self->{motion};
+}
+sub mouse_motion {
+   my ($self, $ev, $x, $y) = @_;
+   $self->{motion}->($ev, $x, $y) if $self->{motion};
 }
 sub _draw {
    my ($self) = @_;
    my $req_w = List::Util::sum @$ws;
    my $req_h = List::Util::sum @$hs;
    # linearly scale sizes
-   $_ *= $req_w / $w for @$ws;
+   $_ *= $w / $req_w for @$ws;
-   $_ *= $req_h / $h for @$hs;
+   $_ *= $h / $req_h for @$hs;
    my $y;
    for my $r (0 .. $#{$self->{children}}) {
       my $row = $self->{children}[$r]
    if ($req_h > $h) {
       # ah well, not enough space
       $_ = $h[$_] * $h / $req_h for @h;
    } else {
-      my @exp = grep $_->{expand}, @$children;
+      my $exp = List::Util::sum map $_->{expand}, @$children;
-      @exp = @$children unless @exp;
+      $exp ||= 1;
-      my %exp = map +($_ => 1), @exp;
       for (0 .. $#$children) {
          my $child = $children->[$_];
          my $alloc_h = $h[$_];
-         $alloc_h += ($h - $req_h) / @exp if $exp{$child};
+         $alloc_h += ($h - $req_h) * $child->{expand} / $exp;
          $h[$_] = $alloc_h;
       }
    }
    my $y = 0;
    if ($req_h > $h) {
       # ah well, not enough space
       $_ = $h[$_] * $h / $req_h for @h;
    } else {
-      my @exp = grep $_->{expand}, @$children;
+      my $exp = List::Util::sum map $_->{expand}, @$children;
-      @exp = @$children unless @exp;
+      $exp ||= 1;
-      my %exp = map +($_ => 1), @exp;
       for (0 .. $#$children) {
          my $child = $children->[$_];
-         my $alloc_h = $h[$_];
+         $h[$_] += ($h - $req_h) * $child->{expand} / $exp;
-         $alloc_h += ($h - $req_h) / @exp if $exp{$child};
-         $h[$_] = $alloc_h;
       }
    }
    my $y = 0;
    for (0 .. $#$children) {
    my $x =
       $self->{align} < 0 ? $self->{padding}
     : $self->{align} > 0 ? $self->{w} - $tex->{w} - $self->{padding}
     :                      ($self->{w} - $tex->{w}) * 0.5;
-   $tex->draw_quad ($x, 0);
+   $tex->draw_quad ($x, $self->{padding});
    glDisable GL_TEXTURE_2D;
    glDisable GL_BLEND;
 }
 sub key_up {
 }
 sub size_request {
    (
-      1 + int $::WIDTH  / 32,
+      1 + 32 * int $::WIDTH  / 32,
-      1 + int $::HEIGHT / 32,
+      1 + 32 * int $::HEIGHT / 32,
    )
 }
 sub update {
    my ($self) = @_;
    $self->{need_update} = 1;
    $self->SUPER::update;
 }
-sub _draw {
+sub draw {
    my ($self) = @_;
    if (delete $self->{need_update}) {
       glNewList $self->{list}, GL_COMPILE;

Diff Legend

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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents): Revision 1.76 by root, Tue Apr 11 21:24:09 2006 UTC vs. Revision 1.77 by root, Tue Apr 11 22:14:13 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.76 by root, Tue Apr 11 21:24:09 2006 UTC vs.
Revision 1.77 by root, Tue Apr 11 22:14:13 2006 UTC