--- deliantra/Deliantra-Client/DC/UI/Canvas.pm	2007/07/21 16:07:53	1.1
+++ deliantra/Deliantra-Client/DC/UI/Canvas.pm	2007/12/28 17:43:52	1.5
@@ -1,13 +1,13 @@
-package CFPlus::UI::Canvas;
+package DC::UI::Canvas;
 
 use strict;
 use utf8;
 
 use List::Util qw(max min);
 
-use CFPlus::OpenGL;
+use DC::OpenGL;
 
-our @ISA = CFPlus::UI::Fixed::;
+our @ISA = DC::UI::Fixed::;
 
 sub new {
    my ($class, %arg) = @_;
@@ -15,7 +15,7 @@
    my $items = delete $arg{items};
 
    my $self = $class->SUPER::new (
-      items => [],
+      items   => [],
       @_,
    );
 
@@ -48,7 +48,10 @@
 
    my ($w, $h) = $self->SUPER::size_request;
 
-   ((max $w, $self->{item_max_w}), (max $h, $self->{item_max_h}))
+   (
+      (max $w, $self->{item_max_w}),
+      (max $h, $self->{item_max_h}),
+   )
 }
 
 my %GLTYPE = (
@@ -84,6 +87,9 @@
 
       glPopMatrix;
    }
+
+   glLineWidth 1;
+   glPointSize 1;
 }
 
 1