--- deliantra/Deliantra-Client/DC/UI.pm	2006/04/24 08:22:22	1.165
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/04/24 08:38:36	1.166
@@ -494,7 +494,11 @@
 
    my $children = delete $arg{children} || [];
 
-   my $self = $class->SUPER::new (children => [], can_events => 0, %arg);
+   my $self = $class->SUPER::new (
+      children   => [],
+      can_events => 0,
+      %arg,
+   );
    $self->add ($_) for @$children;
 
    $self
@@ -753,6 +757,7 @@
       bg         => [1, 1, 1, 1],
       border_bg  => [1, 1, 1, 1],
       border     => 0.8,
+      can_events => 1,
       @_
    );