From ff932ffa6fcf1c1dcee2a5b01ce52c35d4560cff Mon Sep 17 00:00:00 2001
From: marion
Date: Thu, 3 Apr 2008 12:09:23 +0000
Subject: Possibilité d'utiliser un objet zinc ou mtools comme élément à
 clipper.

---
 src/MTools/GUI/MClip.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/MTools/GUI/MClip.pm b/src/MTools/GUI/MClip.pm
index c449c1c..7276591 100644
--- a/src/MTools/GUI/MClip.pm
+++ b/src/MTools/GUI/MClip.pm
@@ -44,7 +44,11 @@ sub new {
   if(ref ($path) eq 'ARRAY')
     {
       my $type = shift @{$path};
-      $clip = $zinc -> add ($type, $clipped -> {instance}, $path, 
+      my $obj = $clipped;
+      if (ref ($clipped) ne '') {
+	$obj = $clipped -> {instance};
+      }
+      $clip = $zinc -> add ($type, $obj, $path, 
 			    -filled => 1, 
 			    -priority => 10,
 			    -linewidth => 0,
-- 
cgit v1.1