From 8b26b4c2416759094fe34ba80595a5588e706f5f Mon Sep 17 00:00:00 2001
From: etienne
Date: Tue, 24 Jun 2003 12:45:44 +0000
Subject: Mise � jour instanciation du logo Tk:Zinc::Logo->new(-widget =>
 $zinc, ...) remplace $zinc->ZincLogo(...)

---
 Perl/Zinc/Logo.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'Perl/Zinc/Logo.pm')

diff --git a/Perl/Zinc/Logo.pm b/Perl/Zinc/Logo.pm
index b83155f..b601f0d 100644
--- a/Perl/Zinc/Logo.pm
+++ b/Perl/Zinc/Logo.pm
@@ -16,8 +16,6 @@ use strict;
 use Carp;
 use Math::Trig;
 
-Construct Tk::Widget 'ZincLogo';
-
 
 my @Gradiants;
 
@@ -94,13 +92,15 @@ my %builder = (-gradset => {'logoshape' => '=axial 270 |#ffffff;100 0 28|#66848c
 sub new {
     my $proto = shift;
     my $type = ref($proto) || $proto;
-    my $widget = shift;
     my %params = @_;
 
     my $self = {};
     bless ($self, $type);
-
-    $self->{'-widget'} = $widget;
+    if (exists $params{'-widget'}) {
+	$self->{'-widget'} = $params{'-widget'};
+    } else {
+	croak "in Tk::Zinc::Logo constructor, the -widget attribute must be defined\n";
+    }
     $self->{'-parent'} = (exists $params{'-parent'}) ? $params{'-parent'} : 1;
     $self->{'-priority'} = (exists $params{'-priority'}) ? $params{'-priority'} : 500;
     $self->{'-position'} = (exists $params{'-position'}) ? $params{'-position'} : [0, 0];
-- 
cgit v1.1