--- deliantra/Deliantra-Client/DC/UI.pm	2007/12/29 13:44:30	1.459
+++ deliantra/Deliantra-Client/DC/UI.pm	2009/01/11 22:15:23	1.475
@@ -5,6 +5,8 @@
 
 use List::Util ();
 
+use Guard ();
+
 use DC;
 use DC::Pod;
 use DC::Texture;
@@ -191,7 +193,7 @@
    my ($sx, $sy) = @_;
 
    for my $widget (values %WIDGET) {
-      if ($widget->{is_toplevel}) {
+      if ($widget->{is_toplevel} || $widget->{c_rescale}) {
          $widget->{x} += int $widget->{w} * 0.5 if $widget->{x} =~ /^[0-9.]+$/;
          $widget->{y} += int $widget->{h} * 0.5 if $widget->{y} =~ /^[0-9.]+$/;
 
@@ -288,6 +290,9 @@
 
    return if $self->{visible};
 
+   $self->{parent} && $self->{parent}{root}#d#
+      or return ::clienterror ("set_visible called without parent ($self->{parent}) or root\n" => 1);
+
    $self->{root}    = $self->{parent}{root};
    $self->{visible} = $self->{parent}{visible} + 1;
 
@@ -295,7 +300,7 @@
 
    $self->realloc if !exists $self->{req_w};
 
-   $_->set_visible for $self->children;
+   $_->set_visible for $self->visible_children;
 }
 
 sub set_invisible {
@@ -529,7 +534,7 @@
 
    push @{ $self->{signal_cb}{$signal} }, $cb;
 
-   defined wantarray and DC::guard {
+   defined wantarray and Guard::guard {
       @{ $self->{signal_cb}{$signal} } = grep $_ != $cb,
          @{ $self->{signal_cb}{$signal} };
    }
@@ -1258,7 +1263,7 @@
 
    my $self = $class->SUPER::new (
       # label     => "",
-      fg          => [0.6, 0.3, 0.1],
+      fg          => undef,
       border      => 0.8,
       style       => 'single',
       %arg,
@@ -1321,7 +1326,7 @@
 
    $child->draw;
 
-   glColor @{$self->{fg}};
+   glColor @{$self->{fg} || $DC::THEME{fancyframe}};
    glBegin GL_LINE_STRIP;
    glVertex $border * 1.5      , $border * 0.5 + 0.5;
    glVertex $border * 0.5 + 0.5, $border * 0.5 + 0.5;
@@ -1346,15 +1351,15 @@
 use DC::OpenGL;
 
 my $bg = 
-      new_from_file DC::Texture DC::find_rcfile "d1_bg.png",
+      new_from_resource DC::Texture "d1_bg.png",
          mipmap => 1, wrap => 1;
 
 my @border = 
-      map { new_from_file DC::Texture DC::find_rcfile $_, mipmap => 1 }
+      map { new_from_resource DC::Texture $_, mipmap => 1 }
          qw(d1_border_top.png d1_border_right.png d1_border_left.png d1_border_bottom.png);
 
 my @icon =
-      map { new_from_file DC::Texture DC::find_rcfile $_, mipmap => 1 }
+      map { new_from_resource DC::Texture $_, mipmap => 1 }
          qw(x1_move.png x1_resize.png);
 
 sub new {
@@ -1363,7 +1368,7 @@
    my $self = $class->SUPER::new (
       bg          => [1, 1, 1, 1],
       border_bg   => [1, 1, 1, 1],
-      border      => 0.6,
+      border      => 0.8,
       can_events  => 1,
       min_w       => 64,
       min_h       => 32,
@@ -1542,25 +1547,27 @@
 
    my $border = $self->border;
 
-   glColor @{ $self->{border_bg} };
-   $border[0]->draw_quad_alpha (           0,            0, $w, $border);
-   $border[1]->draw_quad_alpha (           0,      $border, $border, $ch);
-   $border[2]->draw_quad_alpha ($w - $border,      $border, $border, $ch);
-   $border[3]->draw_quad_alpha (           0, $h - $border, $w, $border);
-
-   # move
-   my $w2 = ($w - $border) * .5;
-   my $h2 = ($h - $border) * .5;
-   $icon[0]->draw_quad_alpha (           0,          $h2, $border, $border);
-   $icon[0]->draw_quad_alpha ($w - $border,          $h2, $border, $border);
-   $icon[0]->draw_quad_alpha ($w2         , $h - $border, $border, $border);
-
-   # resize
-   $icon[1]->draw_quad_alpha (           0,            0, $border, $border);
-   $icon[1]->draw_quad_alpha ($w - $border,            0, $border, $border)
-      unless $self->{has_close_button};
-   $icon[1]->draw_quad_alpha (           0, $h - $border, $border, $border);
-   $icon[1]->draw_quad_alpha ($w - $border, $h - $border, $border, $border);
+   if ($border) {
+      glColor @{ $self->{border_bg} };
+      $border[0]->draw_quad_alpha (           0,            0, $w, $border);
+      $border[1]->draw_quad_alpha (           0,      $border, $border, $ch);
+      $border[2]->draw_quad_alpha ($w - $border,      $border, $border, $ch);
+      $border[3]->draw_quad_alpha (           0, $h - $border, $w, $border);
+
+      # move
+      my $w2 = ($w - $border) * .5;
+      my $h2 = ($h - $border) * .5;
+      $icon[0]->draw_quad_alpha (           0,          $h2, $border, $border);
+      $icon[0]->draw_quad_alpha ($w - $border,          $h2, $border, $border);
+      $icon[0]->draw_quad_alpha ($w2         , $h - $border, $border, $border);
+
+      # resize
+      $icon[1]->draw_quad_alpha (           0,            0, $border, $border);
+      $icon[1]->draw_quad_alpha ($w - $border,            0, $border, $border)
+         unless $self->{has_close_button};
+      $icon[1]->draw_quad_alpha (           0, $h - $border, $border, $border);
+      $icon[1]->draw_quad_alpha ($w - $border, $h - $border, $border, $border);
+   }
 
    if (@{$self->{bg}} < 4 || $self->{bg}[3]) {
       glColor @{ $self->{bg} };
@@ -2092,7 +2099,7 @@
    $class->SUPER::new (
       fg         => [1, 1, 1],
       bg         => [0, 0, 0, 0.2],
-      outline    => [0.6, 0.3, 0.1],
+      outline    => undef,
       active_bg  => [0, 0,  1, .2],
       active_fg  => [1, 1,  1],
       active_outline => [1, 1, 0],
@@ -2160,9 +2167,9 @@
 
    $self->{cursor} = List::Util::max 0, List::Util::min $self->{cursor}, length $text;
 
-   if ($uni == 8) {
+   if ($sym == DC::SDLK_BACKSPACE) {
       substr $text, --$self->{cursor}, 1, "" if $self->{cursor};
-   } elsif ($uni == 127) {
+   } elsif ($sym == DC::SDLK_DELETE) {
       substr $text, $self->{cursor}, 1, "";
    } elsif ($sym == DC::SDLK_LEFT) {
       --$self->{cursor} if $self->{cursor};
@@ -2275,7 +2282,7 @@
       glLineWidth 1;
 
    } else {
-      glColor @{$self->{outline}};
+      glColor @{$self->{outline} || $DC::THEME{entry_outline}};
       glBegin GL_LINE_STRIP;
       glVertex              .5, $self->{h} *  .5;
       glVertex              .5, $self->{h} - 2.5;
@@ -2293,6 +2300,16 @@
 
 use DC::OpenGL;
 
+sub new {
+   my $class = shift;
+
+   $class->SUPER::new (
+      history_pointer => -1,
+      @_
+   )
+}
+
+
 sub invoke_key_down {
    my ($self, $ev) = @_;
 
@@ -2326,7 +2343,10 @@
       if ($self->{history_pointer} >= 0) {
          $self->set_text ($self->{history}->[$self->{history_pointer}]);
       } else {
-         $self->set_text ($self->{history_saveback});
+         if (defined $self->{history_saveback}) {
+            $self->set_text ($self->{history_saveback});
+            $self->{history_saveback} = undef;
+         }
       }
 
    } else {
@@ -2394,7 +2414,7 @@
 use DC::OpenGL;
 
 my @tex =
-      map { new_from_file DC::Texture DC::find_rcfile $_, mipmap => 1 }
+      map { new_from_resource DC::Texture $_, mipmap => 1 }
          qw(b1_button_inactive.png b1_button_active.png);
 
 sub new {
@@ -2443,7 +2463,7 @@
 use DC::OpenGL;
 
 my @tex =
-      map { new_from_file DC::Texture DC::find_rcfile $_, mipmap => 1 }
+      map { new_from_resource DC::Texture $_, mipmap => 1 }
          qw(b1_button_inactive.png b1_button_active.png);
 
 sub new {
@@ -2496,7 +2516,7 @@
 our @ISA = DC::UI::DrawBG::;
 
 my @tex =
-      map { new_from_file DC::Texture DC::find_rcfile $_, mipmap => 1 }
+      map { new_from_resource DC::Texture $_, mipmap => 1 }
          qw(c1_checkbox_bg.png c1_checkbox_active.png);
 
 use DC::OpenGL;
@@ -2505,6 +2525,7 @@
    my $class = shift;
 
    $class->SUPER::new (
+      fontsize  => 1,
       padding_x => 2,
       padding_y => 2,
       fg        => [1, 1, 1],
@@ -2520,7 +2541,7 @@
 sub size_request {
    my ($self) = @_;
 
-   (6) x 2
+   ($self->{fontsize} * $::FONTSIZE) x 2
 }
 
 sub toggle {
@@ -2587,7 +2608,7 @@
       or Carp::croak "'path' or 'tex' attributes required";
 
    $self->{tex} ||= $texture_cache{$self->{path}} ||=
-      new_from_file DC::Texture DC::find_rcfile $self->{path}, mipmap => 1;
+      new_from_resource DC::Texture $self->{path}, mipmap => 1;
 
    DC::weaken $texture_cache{$self->{path}};
 
@@ -2693,19 +2714,19 @@
 
 my %tex = (
    food => [
-      map { new_from_file DC::Texture DC::find_rcfile $_, mipmap => 1 }
+      map { new_from_resource DC::Texture $_, mipmap => 1 }
          qw/g1_food_gauge_empty.png g1_food_gauge_full.png/
    ],
    grace => [
-      map { new_from_file DC::Texture DC::find_rcfile $_, mipmap => 1 }
+      map { new_from_resource DC::Texture $_, mipmap => 1 }
          qw/g1_grace_gauge_empty.png g1_grace_gauge_full.png g1_grace_gauge_overflow.png/
    ],
    hp => [
-      map { new_from_file DC::Texture DC::find_rcfile $_, mipmap => 1 }
+      map { new_from_resource DC::Texture $_, mipmap => 1 }
          qw/g1_hp_gauge_empty.png g1_hp_gauge_full.png/
    ],
    mana => [
-      map { new_from_file DC::Texture DC::find_rcfile $_, mipmap => 1 }
+      map { new_from_resource DC::Texture $_, mipmap => 1 }
          qw/g1_mana_gauge_empty.png g1_mana_gauge_full.png g1_mana_gauge_overflow.png/
    ],
 );
@@ -2828,6 +2849,8 @@
    my ($class, %arg) = @_;
 
    my $self = $class->SUPER::new (
+      padding_x  => 2,
+      padding_y  => 2,
       fg         => [1, 1, 1],
       bg         => [0, 0, 1, 0.2],
       bar        => [0.7, 0.5, 0.1, 0.8],
@@ -2877,17 +2900,24 @@
    glEnable GL_BLEND;
    glBlendFunc GL_ONE, GL_ONE_MINUS_SRC_ALPHA;
 
+   my $px = $self->{padding_x};
+   my $py = $self->{padding_y};
+
    if ($self->{value} >= 0) {
-      my $s = int 2 + ($self->{w} - 4) * $self->{value};
+      my $s = int $px + ($self->{w} - $px * 2) * $self->{value};
 
       glColor_premultiply @{$self->{bar}};
-      glRect  2, 2,             $s, $self->{h} - 2;
+      glRect $px, $py,               $s, $self->{h} - $py;
       glColor_premultiply @{$self->{bg}};
-      glRect $s, 2, $self->{w} - 2, $self->{h} - 2;
+      glRect $s , $py, $self->{w} - $px, $self->{h} - $py;
    }
 
    glColor_premultiply @{$self->{outline}};
-   glRect_lineloop 1.5, 1.5, $self->{w} - 1.5, $self->{h} - 1.5;
+
+   $px -= .5;
+   $py -= .5;
+
+   glRect_lineloop $px, $py, $self->{w} - $px, $self->{h} - $py;
 
    glDisable GL_BLEND;
 
@@ -2906,17 +2936,21 @@
 sub new {
    my ($class, %arg) = @_;
 
+   my $tt = exists $arg{tooltip} ? "$arg{tooltip}\n\n" : "";
+
    my $self = $class->SUPER::new (
+      %arg,
       tooltip => sub {
          my ($self) = @_;
 
-         sprintf "level %d\n%s points\n%s next level\n%s to go",
+         sprintf "%slevel %d\n%s points\n%s next level\n%s to go, %d%% done",
+            $tt,
             $self->{lvl},
             ::formsep ($self->{exp}),
             ::formsep ($self->{nxt}),
             ::formsep ($self->{nxt} - $self->{exp}),
+            $self->_percent * 100,
       },
-      %arg
    );
 
    $::CONN->{on_exp_update}{$self+0} = sub { $self->set_value ($self->{value}) }
@@ -2934,24 +2968,27 @@
    $self->SUPER::DESTROY;
 }
 
-sub set_value {
-   my ($self, $lvl, $exp) = @_;
+sub _percent {
+   my ($self) = @_;
 
-   $self->{lvl} = $lvl;
-   $self->{exp} = $exp;
+   my $table = $::CONN && $::CONN->{exp_table}
+      or return -1;
 
-   my $v = -1;
+   my $l0 = $table->[$self->{lvl} - 1];
+   my $l1 = $table->[$self->{lvl}];
 
-   if ($::CONN && (my $table = $::CONN->{exp_table})) {
-      my $l0 = $table->[$lvl - 1];
-      my $l1 = $table->[$lvl];
+   $self->{nxt} = $l1;
 
-      $self->{nxt} = $l1;
+   ($self->{exp} - $l0) / ($l1 - $l0)
+}
 
-      $v = ($exp - $l0) / ($l1 - $l0);
-   }
+sub set_value {
+   my ($self, $lvl, $exp) = @_;
+
+   $self->{lvl} = $lvl;
+   $self->{exp} = $exp;
 
-   $self->SUPER::set_value ($v);
+   $self->SUPER::set_value ($self->_percent);
 }
 
 #############################################################################
@@ -3012,7 +3049,7 @@
 our @ISA = DC::UI::DrawBG::;
 
 my @tex =
-      map { new_from_file DC::Texture DC::find_rcfile $_ }
+      map { new_from_resource DC::Texture $_ }
          qw(s1_slider.png s1_slider_bg.png);
 
 sub new {
@@ -3059,12 +3096,10 @@
 
    my ($old_value, $lo, $hi, $page, $unit) = @{$self->{range}};
 
-   $hi = $lo + 1 if $hi <= $lo;
+   $hi = $lo if $hi < $lo;
 
-   $page = $hi - $lo if $page > $hi - $lo;
-
-   $value = $lo         if $value < $lo;
    $value = $hi - $page if $value > $hi - $page;
+   $value = $lo         if $value < $lo;
 
    $value = $lo + $unit * int +($value - $lo + $unit * 0.5) / $unit
       if $unit;
@@ -3138,10 +3173,10 @@
    unless ($self->{knob_w}) {
       $self->set_value ($self->{range}[0]);
 
-      my ($value, $lo, $hi, $page) = @{$self->{range}};
-      my $range = ($hi - $page - $lo) || 1e-100;
+      my ($value, $lo, $hi, $page, $unit) = @{$self->{range}};
+      my $range = ($hi - $page - $lo) || 1e-10;
 
-      my $knob_w = List::Util::min 1, $page / ($hi - $lo) || 0.1;
+      my $knob_w = List::Util::min 1, $page / (($hi - $lo) || 1e-10) || 24 / $self->{w};
 
       $self->{offset} = List::Util::max $self->{inner_pad}, $knob_w * 0.5;
       $self->{scale} = 1 - 2 * $self->{offset} || 1e-100;
@@ -3611,11 +3646,12 @@
    $tip =~ s/\n+$//;
 
    $self->add (new DC::UI::Label
+      fg        => $DC::THEME{tooltip_fg},
       markup    => $tip,
       max_w     => ($widget->{tooltip_width} || 0.25) * $::WIDTH,
       align     => 0,
       fontsize  => 0.8,
-      style     => 1, # FLAG_INVERSE
+      style     => $DC::THEME{tooltip_style}, # FLAG_INVERSE
       ellipsise => 0,
       font      => ($widget->{tooltip_font} || $::FONT_PROP),
    );
@@ -3662,10 +3698,10 @@
 
    my ($w, $h) = @$self{qw(w h)};
 
-   glColor 1, 0.8, 0.4;
+   glColor @{ $DC::THEME{tooltip_bg} };
    glRect 0, 0, $w, $h;
    
-   glColor 0, 0, 0;
+   glColor @{ $DC::THEME{tooltip_border} };
    glRect_lineloop .5, .5, $w + .5, $h + .5;
    
    glTranslate 2, 2;
@@ -3847,7 +3883,7 @@
                can_events => 1,
                tooltip    => $tooltip,
                children   => [
-                  (new DC::UI::Label markup => $left, expand => 1),
+                  (new DC::UI::Label markup => $left , align => 0, expand => 1),
                   (new DC::UI::Label markup => $right, align => 1),
                ],
             ;
@@ -3881,7 +3917,15 @@
    $self->{button} = $ev->{button};
 
    $self->show;
-   $self->move_abs ($ev->{x} - $self->{w} * 0.5, $ev->{y} - $self->{h} * 0.5);
+
+   my $x = $ev->{x};
+   my $y = $ev->{y};
+
+   $self->{root}->on_post_alloc ($self => sub {
+      $self->move_abs ($x - $self->{w} * 0.25, $y - $self->{border} * $::FONTSIZE * .5);
+   });
+
+   1 # so it can be used inside event handlers
 }
 
 sub invoke_mouse_motion {
@@ -3923,8 +3967,7 @@
       @_,
    );
 
-   $self->{current} = $self->{children}[0]
-      if @{ $self->{children} };
+   $self->set_current_page (0);
 
    $self
 }
@@ -3934,8 +3977,8 @@
 
    $self->SUPER::add (@widgets);
 
-   $self->{current} = $self->{children}[0]
-      if @{ $self->{children} };
+   $self->set_current_page (0)
+      if @widgets == @{ $self->{children} };
 }
 
 sub get_current_page {
@@ -3951,28 +3994,35 @@
                    ? $page_or_widget
                    : $self->{children}[$page_or_widget];
 
-   $self->{current} = $widget;
-   $self->{current}->configure (0, 0, $self->{w}, $self->{h});
+   $self->{current}->set_invisible if $self->{current} && $self->{visible};
+
+   if (($self->{current} = $widget)) {
+      $self->{current}->set_visible if $self->{current} && $self->{visible};
+      $self->{current}->configure (0, 0, $self->{w}, $self->{h});
 
-   $self->emit (page_changed => $self->{current});
+      $self->emit (page_changed => $self->{current});
+   }
 
    $self->realloc;
 }
 
 sub visible_children {
-   $_[0]{current}
+   $_[0]{current} || ()
 }
 
 sub size_request {
    my ($self) = @_;
 
-   $self->{current}->size_request
+   $self->{current}
+      ? $self->{current}->size_request
+      : (0, 0)
 }
 
 sub invoke_size_allocate {
    my ($self, $w, $h) = @_;
 
-   $self->{current}->configure (0, 0, $w, $h);
+   $self->{current}->configure (0, 0, $w, $h)
+     if $self->{current};
 
    1
 }
@@ -3980,7 +4030,8 @@
 sub _draw {
    my ($self) = @_;
 
-   $self->{current}->draw;
+   $self->{current}->draw
+      if $self->{current};
 }
 
 #############################################################################
@@ -4059,6 +4110,18 @@
    $self->{multiplexer}->children
 }
 
+sub page_index {
+   my ($self, $widget) = @_;
+
+   my $i = 0;
+   for ($self->pages) {
+      if ($_ eq $widget) { return $i };
+      $i++;
+   }
+
+   undef
+}
+
 sub add_tab {
    my ($self, $title, $widget, $tooltip) = @_;
 
@@ -4188,7 +4251,7 @@
 
 sub reorder {
    my ($self) = @_;
-   my $NOW = Time::HiRes::time;
+   my $NOW = EV::time;
 
    # freeze display when hovering over any label
    return if $DC::UI::TOOLTIP->{owner}
@@ -4249,6 +4312,10 @@
       push @widgets, $label;
    }
 
+   my $hash = join ",", @widgets;
+   return if $hash eq $self->{last_widget_hash};
+   $self->{last_widget_hash} = $hash;
+
    $self->clear;
    $self->SUPER::add (reverse @widgets);
 }
@@ -4558,8 +4625,7 @@
 
 package DC::UI;
 
-$ROOT = new DC::UI::Root;
+$ROOT    = new DC::UI::Root;
 $TOOLTIP = new DC::UI::Tooltip z => 900;
 
 1
-