From 389dc2edaab8987dfc1475149940b9e615c2182b Mon Sep 17 00:00:00 2001
From: ribet
Date: Thu, 19 Jul 2007 07:24:12 +0000
Subject: Gestion de -visible pour les clip

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

(limited to 'src/MTools/GUI')

diff --git a/src/MTools/GUI/MClip.pm b/src/MTools/GUI/MClip.pm
index b34a537..bc8405d 100644
--- a/src/MTools/GUI/MClip.pm
+++ b/src/MTools/GUI/MClip.pm
@@ -38,6 +38,19 @@ sub new {
 	my $self = new MTools::MObjet ();
 	bless $self, $class;
 
+	$self -> recordProperty ('-visible', 1);
+	$self -> plisten ('-visible', sub { 
+		my ($src, $key, $val) = @_;
+		if ($val == 0)
+		{
+		    mconfigure($self->{__clipped}, -clip => undef);
+		}
+		else
+		{
+		    mconfigure($self->{__clipped}, -clip => $self->{__clip});
+		}
+	});
+
 	if (!defined $debug) {$debug = 0}
 	
 	my $clip = $path;
-- 
cgit v1.1