--- deliantra/Deliantra-Client/DC/UI.pm	2006/06/05 22:30:35	1.290
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/06/06 03:05:16	1.293
@@ -1693,6 +1693,7 @@
       valign     => 0,
       can_events => 1,
       #text      => ...
+      #hidden    => "*",
       @_
    )
 }
@@ -2475,6 +2476,7 @@
    my $self = $class->SUPER::new (
       fontsize   => 1,
       can_events => 0,
+      indent     => 0,
       #font      => default_font
       @_,
                  
@@ -2507,6 +2509,7 @@
    $self->{layout}->set_font ($self->{font}) if $self->{font};
    $self->{layout}->set_height ($self->{fontsize} * $::FONTSIZE);
    $self->{layout}->set_width ($self->{children}[0]{w});
+   $self->{layout}->set_indent ($self->{fontsize} * $::FONTSIZE * $self->{indent});
 
    $self->reflow;
 }
@@ -2518,6 +2521,7 @@
 
    $layout->set_height ($self->{fontsize} * $::FONTSIZE);
    $layout->set_width ($self->{children}[0]{w} - $indent);
+   $layout->set_indent ($self->{fontsize} * $::FONTSIZE * $self->{indent});
    $layout->set_markup ($text);
    
    $layout->size
@@ -2579,6 +2583,7 @@
          for (@{$self->{par}}) {
             if (1 || $_->[0] >= $W) { # TODO: works,but needs reconfigure etc. support
                $layout->set_width ($W - $_->[3]);
+               $layout->set_indent ($self->{fontsize} * $::FONTSIZE * $self->{indent});
                $layout->set_markup ($_->[4]);
                my ($w, $h) = $layout->size;
                $_->[0] = $w + $_->[3];
@@ -2620,6 +2625,7 @@
             if ($y0 < $y + $h && $y < $y1) {
                $layout->set_foreground (@{ $par->[2] });
                $layout->set_width ($W - $par->[3]);
+               $layout->set_indent ($self->{fontsize} * $::FONTSIZE * $self->{indent});
                $layout->set_markup ($par->[4]);
 
                my ($w, $h, $data, $format, $internalformat) = $layout->render;
@@ -2922,14 +2928,15 @@
    $self->add ($self->{vbox} = new CFClient::UI::VBox);
 
    for my $item (@{ $self->{items} }) {
-      my ($widget, $cb) = @$item;
+      my ($widget, $cb, $tooltip) = @$item;
 
       # handle various types of items, only text for now
       if (!ref $widget) {
          $widget = new CFClient::UI::Label
             can_hover  => 1,
             can_events => 1,
-            text       => $widget;
+            text       => $widget,
+            tooltip    => $tooltip
       }
 
       $self->{item}{$widget} = $item;
@@ -3089,6 +3096,62 @@
 }
 
 #############################################################################
+
+package CFClient::UI::Combobox;
+
+use utf8;
+
+our @ISA = CFClient::UI::Button::;
+
+sub new {
+   my $class = shift;
+
+   my $self = $class->SUPER::new (
+      options => [], # [title, value, tooltip], ...
+      value   => undef,
+      @_,
+   );
+
+   $self->_set_value ($self->{value});
+
+   $self
+}
+
+sub button_down {
+   my ($self, $ev) = @_;
+
+   my @menu_items;
+
+   for (@{ $self->{options} }) {
+      my ($title, $value, $tooltip) = @$_;
+
+      push @menu_items, [$tooltip, sub { $self->set_value ($value) }];
+   }
+
+   CFClient::UI::Menu->new (items => \@menu_items)->popup ($ev);
+}
+
+sub _set_value {
+   my ($self, $value) = @_;
+
+   my ($item) = grep $_->[1] eq $value, @{ $self->{options} }
+      or return;
+
+   $self->{value} = $item->[1];
+   $self->set_markup ("$item->[0] ⇓");
+   $self->set_tooltip ($item->[2]);
+}
+
+sub set_value {
+   my ($self, $value) = @_;
+
+   return unless $self->{value} ne $value;
+
+   $self->_set_value ($value);
+   $self->_emit (changed => $value);
+}
+
+#############################################################################
 
 package CFClient::UI::Statusbox;