--- deliantra/Deliantra-Client/DC/UI.pm	2006/04/25 09:52:04	1.172
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/04/25 10:30:48	1.173
@@ -241,6 +241,16 @@
 sub children {
 }
 
+# call when resoltuion changes etc.
+sub reconfigure {
+   my ($self) = @_;
+
+   $_->reconfigure
+      for $self->children;
+
+   $_->check_size;
+}
+
 sub set_max_size {
    my ($self, $w, $h) = @_;
 
@@ -1206,24 +1216,43 @@
    $_[1]
 }
 
+sub update {
+   my ($self) = @_;
+
+   delete $self->{texture};
+   $self->SUPER::update;
+}
+
+sub reconfigure {
+   my ($self) = @_;
+
+   delete $self->{texture};
+}
+
 sub set_text {
    my ($self, $text) = @_;
 
+   return if $self->{text} eq "T$text";
+   $self->{text} = "T$text";
+
    $self->{layout}->set_text ($text);
 
    delete $self->{texture};
-   $self->check_size;
    $self->update;
+   $self->check_size;
 }
 
 sub set_markup {
    my ($self, $markup) = @_;
 
+   return if $self->{text} eq "M$markup";
+   $self->{text} = "M$markup";
+
    $self->{layout}->set_markup ($markup);
 
    delete $self->{texture};
-   $self->check_size;
    $self->update;
+   $self->check_size;
 }
 
 sub size_request {
@@ -1757,7 +1786,10 @@
 sub set_max {
    my ($self, $max) = @_;
 
+   return if $self->{max_val} == $max;
+
    $self->{max_val} = $max;
+   $self->update;
 }
 
 sub set_value {
@@ -1766,9 +1798,9 @@
    $self->set_max ($max)
       if defined $max;
 
-   $max = $self->{max_val};
-   $self->{val} = $val;
+   return if $self->{val} == $val;
 
+   $self->{val} = $val;
    $self->update;
 }
 
@@ -1861,6 +1893,13 @@
    $self->{max}  ->set_fontsize ($fsize);
 }
 
+sub set_max {
+   my ($self, $max) = @_;
+
+   $self->{gauge}->set_max ($max);
+   $self->{max}->set_text ($max);
+}
+
 sub set_value {
    my ($self, $val, $max) = @_;
 
@@ -1871,13 +1910,6 @@
    $self->{value}->set_text ($val);
 }
 
-sub set_max {
-   my ($self, $max) = @_;
-
-   $self->{gauge}->set_max ($max);
-   $self->{max}->set_text ($max);
-}
-
 #############################################################################
 
 package CFClient::UI::Slider;