--- deliantra/Deliantra-Client/DC/UI.pm	2009/01/11 23:45:52	1.476
+++ deliantra/Deliantra-Client/DC/UI.pm	2009/01/11 23:50:27	1.477
@@ -658,6 +658,13 @@
    )
 }
 
+sub set_bg {
+   my ($self, $bg) = @_;
+
+   $self->{bg} = $bg;
+   $self->update;
+}
+
 sub _draw {
    my ($self) = @_;