--- deliantra/Deliantra-Client/DC/UI.pm	2006/04/14 11:43:51	1.101
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/04/14 12:17:06	1.102
@@ -1257,6 +1257,10 @@
 
 our @ISA = CFClient::UI::DrawBG::;
 
+my @tex =
+      map { new_from_file CFClient::Texture CFClient::find_rcfile $_ }
+         qw(c1_checkbox_bg.png c1_checkbox_active.png);
+
 use SDL;
 use SDL::OpenGL;
 
@@ -1303,24 +1307,19 @@
    glTranslate $self->{padding} + 0.375, $self->{padding} + 0.375, 0;
 
    my $s = (List::Util::min @$self{qw(w h)}) - $self->{padding} * 2;
-   
+
    glColor @{ $FOCUS == $self ? $self->{active_fg} : $self->{fg} };
 
-   glBegin GL_LINE_LOOP;
-   glVertex 0 , 0;
-   glVertex 0 , $s;
-   glVertex $s, $s;
-   glVertex $s, 0;
-   glEnd;
-
-   if ($self->{state}) {
-      glBegin GL_LINES;
-      glVertex 0 , 0;
-      glVertex $s, $s;
-      glVertex $s, 0;
-      glVertex 0 , $s;
-      glEnd;
-   }
+   glEnable GL_BLEND;
+   glEnable GL_TEXTURE_2D;
+   glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
+
+   my $tex = $self->{state} ? $tex[1] : $tex[0];
+
+   $tex->draw_quad (0, 0, $s, $s);
+
+   glDisable GL_TEXTURE_2D;
+   glDisable GL_BLEND;
 }
 
 #############################################################################