--- deliantra/Deliantra-Client/DC/UI/Canvas.pm 2007/07/21 16:07:53 1.1 +++ deliantra/Deliantra-Client/DC/UI/Canvas.pm 2007/12/26 20:46:39 1.3 @@ -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 = (