--- deliantra/Deliantra-Client/DC/UI.pm	2006/05/15 22:52:17	1.208
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/05/17 00:26:55	1.209
@@ -284,6 +284,17 @@
    delete $self->{max_h}; $self->{max_h} = $h if $h;
 }
 
+sub set_tooltip {
+   my ($self, $tooltip) = @_;
+
+   $self->{tooltip} = $tooltip;
+
+   if ($CFClient::UI::TOOLTIP->{owner} == $self) {
+      delete $CFClient::UI::TOOLTIP->{owner};
+      CFClient::UI::check_tooltip;
+   }
+}
+
 # translate global coordinates to local coordinate system
 sub coord2local {
    my ($self, $x, $y) = @_;
@@ -457,8 +468,8 @@
    # range [value, low, high, page]
 
    $class->SUPER::new (
-      bg        => [0, 0, 0, 0.2],
-      active_bg => [1, 1, 1, 0.5],
+      #bg        => [0, 0, 0, 0.2],
+      #active_bg => [1, 1, 1, 0.5],
       @_
    )
 }
@@ -466,20 +477,26 @@
 sub _draw {
    my ($self) = @_;
 
-   my ($w, $h) = @$self{qw(w h)};
+   my $color = $FOCUS == $self && $self->{active_bg}
+             ? $self->{active_bg}
+             : $self->{bg};
 
-   glEnable GL_BLEND;
-   glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
-   glColor @{ $FOCUS == $self ? $self->{active_bg} : $self->{bg} };
+   if ($color && (@$color < 4 || $color->[3])) {
+      my ($w, $h) = @$self{qw(w h)};
 
-   glBegin GL_QUADS;
-   glVertex 0 , 0;
-   glVertex 0 , $h;
-   glVertex $w, $h;
-   glVertex $w, 0;
-   glEnd;
+      glEnable GL_BLEND;
+      glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
+      glColor @$color;
 
-   glDisable GL_BLEND;
+      glBegin GL_QUADS;
+      glVertex 0 , 0;
+      glVertex 0 , $h;
+      glVertex $w, $h;
+      glVertex $w, 0;
+      glEnd;
+
+      glDisable GL_BLEND;
+   }
 }
 
 #############################################################################
@@ -1268,7 +1285,7 @@
 
 package CFClient::UI::Label;
 
-our @ISA = CFClient::UI::Base::;
+our @ISA = CFClient::UI::DrawBG::;
 
 use CFClient::OpenGL;
 
@@ -1277,6 +1294,8 @@
 
    my $self = $class->SUPER::new (
       fg         => [1, 1, 1],
+      #bg        => none
+      #active_bg => none
       #font      => default_font
       #text      => initial text
       #markup    => initial narkup
@@ -1304,14 +1323,14 @@
    $self
 }
 
-sub escape {
-   local $_ = $_[1];
+sub escape($) {
+   local $_ = $_[0];
 
    s/&/&amp;/g;
    s/>/&gt;/g;
    s/</&lt;/g;
 
-   $_[1]
+   $_
 }
 
 sub update {
@@ -1393,6 +1412,8 @@
 sub _draw {
    my ($self) = @_;
 
+   $self->SUPER::_draw; # draw background, if applicable
+
    my $tex = $self->{texture} ||= do {
       $self->{layout}->set_foreground (@{$self->{fg}});
       $self->{layout}->set_font ($self->{font}) if $self->{font};
@@ -1662,7 +1683,6 @@
    $class->SUPER::new (
       padding    => 4,
       fg         => [1, 1, 1],
-      bg         => [1, 1, 1, 0.2],
       active_fg  => [0, 0, 1],
       can_hover  => 1,
       align      => 0,
@@ -1720,6 +1740,8 @@
       padding   => 2,
       fg        => [1, 1, 1],
       active_fg => [1, 1, 0],
+      bg        => [0, 0, 0, 0.2],
+      active_bg => [1, 1, 1, 0.5],
       state     => 0,
       can_hover => 1,
       @_
@@ -2021,6 +2043,8 @@
    my $self = $class->SUPER::new (
       fg        => [1, 1, 1],
       active_fg => [0, 0, 0],
+      bg        => [0, 0, 0, 0.2],
+      active_bg => [1, 1, 1, 0.5],
       range     => [0, 0, 100, 10],
       req_w     => $::WIDTH / 80,
       req_h     => $::WIDTH / 80,
@@ -2525,7 +2549,7 @@
    my $self = $class->SUPER::new (
       can_hover => 1,
       can_events => 1,
-      tooltip => (CFClient::UI::Label->escape ($desc)
+      tooltip => ((CFClient::UI::Label::escape $desc)
                  . "\n<small>leftclick - pick up\nmiddle click - apply\nrightclick - menu</small>"),
       connect_button_down => sub {
          my ($self, $ev, $x, $y) = @_;