--- deliantra/Deliantra-Client/DC/MapWidget.pm	2006/04/19 20:46:44	1.3
+++ deliantra/Deliantra-Client/DC/MapWidget.pm	2006/04/19 23:37:49	1.4
@@ -4,7 +4,7 @@
 
 use List::Util qw(min max);
 
-use SDL::OpenGL;
+use CFClient::OpenGL;
 
 our @ISA = CFClient::UI::Base::;
 
@@ -14,11 +14,19 @@
    $class->SUPER::new (
       z         => -1,
       can_focus => 1,
-      list      => (glGenLists 1),
+      list      => glGenList,
       @_
    )
 }
 
+sub DESTROY {
+   my $self = shift;
+
+   glDeleteList $self->{list};
+
+   $self->SUPER::DESTROY;
+}
+
 sub key_down {
    print "MAPKEYDOWN\n";
 }
@@ -78,7 +86,7 @@
    my ($self) = @_;
 
    if (delete $self->{need_update}) {
-      glNewList $self->{list}, GL_COMPILE;
+      glNewList $self->{list};
 
       if ($::MAP) {
          my $sw = int $::WIDTH  / 32;