--- deliantra/Deliantra-Client/DC/UI.pm	2007/08/21 02:39:17	1.430
+++ deliantra/Deliantra-Client/DC/UI.pm	2007/08/21 02:41:52	1.431
@@ -2803,11 +2803,9 @@
       can_events => 1,
       ellipsise  => 1,
       %arg,
-      text       => "-",
-      value      => -1,
    );
 
-   $self->set_value ($arg{value}) if exists $arg{value};
+   $self->set_value ($arg{value} || -1);
 
    $self
 }
@@ -2817,7 +2815,12 @@
 
    if ($self->{value} != $value) {
       $self->{value} = $value;
-      $self->set_text (sprintf "%d%%", $value * 100);
+
+      if ($value < 0) {
+         $self->set_text ("-");
+      } else {
+         $self->set_text (sprintf "%d%%", $value * 100);
+      }
       $self->update;
    }
 }
@@ -2879,7 +2882,7 @@
 sub set_value {
    my ($self, $lvl, $exp) = @_;
 
-   my $v = 0;
+   my $v = -1;
 
    if ($::CONN && (my $table = $::CONN->{exp_table})) {
       my $l0 = $table->[$lvl - 1];