--- deliantra/Deliantra-Client/DC/UI.pm	2006/04/15 12:29:46	1.112
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/04/15 13:56:25	1.114
@@ -9,7 +9,7 @@
 
 our ($FOCUS, $HOVER, $GRAB); # various widgets
 
-our $TOPLEVEL;
+our $ROOT;
 our $BUTTON_STATE;
 
 # class methods for events
@@ -26,7 +26,7 @@
    my ($x, $y) = ($ev->motion_x, $ev->motion_y);
 
    if (!$BUTTON_STATE) {
-      my $widget = $TOPLEVEL->find_widget ($x, $y);
+      my $widget = $ROOT->find_widget ($x, $y);
 
       $GRAB = $widget;
       $GRAB->update if $GRAB;
@@ -34,18 +34,18 @@
 
    $BUTTON_STATE |= 1 << ($ev->button - 1);
 
-   $GRAB->button_down ($ev, $GRAB->translate ($x, $y)) if $GRAB;
+   $GRAB->button_down ($ev, $GRAB->coord2local ($x, $y)) if $GRAB;
 }
 
 sub feed_sdl_button_up_event {
    my ($ev) = @_;
    my ($x, $y) = ($ev->motion_x, $ev->motion_y);
 
-   my $widget = $GRAB || $TOPLEVEL->find_widget ($x, $y);
+   my $widget = $GRAB || $ROOT->find_widget ($x, $y);
 
    $BUTTON_STATE &= ~(1 << ($ev->button - 1));
 
-   $GRAB->button_up ($ev, $GRAB->translate ($x, $y)) if $GRAB;
+   $GRAB->button_up ($ev, $GRAB->coord2local ($x, $y)) if $GRAB;
 
    if (!$BUTTON_STATE) {
       my $grab = $GRAB; undef $GRAB;
@@ -58,7 +58,7 @@
    my ($ev) = @_;
    my ($x, $y) = ($ev->motion_x, $ev->motion_y);
 
-   my $widget = $GRAB || $TOPLEVEL->find_widget ($x, $y);
+   my $widget = $GRAB || $ROOT->find_widget ($x, $y);
 
    if ($widget != $HOVER) {
       my $hover = $HOVER; $HOVER = $widget;
@@ -67,7 +67,7 @@
       $HOVER->update if $HOVER && $HOVER->{can_hover};
    }
 
-   $HOVER->mouse_motion ($ev, $HOVER->translate ($x, $y)) if $HOVER;
+   $HOVER->mouse_motion ($ev, $HOVER->coord2local ($x, $y)) if $HOVER;
 }
 
 # convert position array to integers
@@ -148,11 +148,27 @@
    $self->_size_allocate ($x, $y, $w, $h);
 }
 
+# return top left coordinates
+sub _topleft {
+   my ($self, $x, $y) = @_;
+
+   $self->{parent}->_topleft ($x + $self->{x}, $y + $self->{y});
+}
+
 # translate global coordinates to local coordinate system
-sub translate {
+sub coord2local {
+   my ($self, $x, $y) = @_;
+
+   my ($X, $Y) = $self->_topleft;
+   ($x - $X, $y - $Y)
+}
+
+# translate local coordinates to global coordinate system
+sub coord2global {
    my ($self, $x, $y) = @_;
 
-   $self->{parent}->translate ($x - $self->{x}, $y - $self->{y});
+   my ($X, $Y) = $self->_topleft;
+   ($x + $X, $y + $Y)
 }
 
 sub focus_in {
@@ -235,14 +251,9 @@
 }
 
 sub set_parent {
-   my ($self, $par) = @_;
-
-   $self->{parent} = $par;
-   Scalar::Util::weaken $self->{parent};
-}
+   my ($self, $parent) = @_;
 
-sub get_parent {
-   $_[0]->{parent}
+   Scalar::Util::weaken ($self->{parent} = $parent);
 }
 
 sub update {
@@ -341,13 +352,15 @@
 }
 
 sub add {
-   my ($self, $chld) = @_;
+   my ($self, $child) = @_;
+
+   $child->set_parent ($self);
 
-   $chld->set_parent ($self);
+   use sort 'stable';
 
    $self->{children} = [
       sort { $a->{z} <=> $b->{z} }
-         @{$self->{children}}, $chld
+         @{$self->{children}}, $child
    ];
 
    $self->{w} = $self->{h} = -1;
@@ -687,10 +700,10 @@
 }
 
 sub add {
-   my ($self, $x, $y, $chld) = @_;
+   my ($self, $x, $y, $child) = @_;
 
-   $self->{children}[$y][$x] = $chld;
-   $chld->set_parent ($self);
+   $child->set_parent ($self);
+   $self->{children}[$y][$x] = $child;
 
    $self->{w} = $self->{h} = -1;
    $self->update;
@@ -1577,7 +1590,7 @@
 
    delete $self->{texture};
 
-   $TOPLEVEL->on_refresh ($self, sub {
+   $ROOT->on_refresh ($self, sub {
       if (delete $self->{need_reflow}) {
          my $height = 0;
 
@@ -1947,19 +1960,20 @@
 
    # TODO: use animation
    if ($self->{state} = !$self->{state}) {
-      $CFClient::UI::TOPLEVEL->add ($self->{other});
-      $self->{other}->move (
-         ($::WIDTH  - $self->{other}{w}) * 0.5,
-         ($::HEIGHT - $self->{other}{h}) * 0.5,
-      );
+      $CFClient::UI::ROOT->add ($self->{other});
+      $self->{other}->move ($self->coord2global (0, $self->{h}));
+      $self->emit ("open");
    } else {
-      $CFClient::UI::TOPLEVEL->remove ($self->{other});
+      $CFClient::UI::ROOT->remove ($self->{other});
+      $self->emit ("close");
    }
+
+   $self->emit (changed => $self->{state});
 }
 
 #############################################################################
 
-package CFClient::UI::Toplevel;
+package CFClient::UI::Root;
 
 our @ISA = CFClient::UI::Container::;
 
@@ -1978,7 +1992,7 @@
       for @{$self->{children}};
 }
 
-sub translate {
+sub _topleft {
    my ($self, $x, $y) = @_;
 
    ($x, $y)
@@ -2029,7 +2043,7 @@
 
 package CFClient::UI;
 
-$TOPLEVEL = new CFClient::UI::Toplevel;
+$ROOT = new CFClient::UI::Root;
 
 1