aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--doc/manuel_utilisateur.txt3
-rw-r--r--src/MTools/GUI/MClip.pm13
2 files changed, 16 insertions, 0 deletions
diff --git a/doc/manuel_utilisateur.txt b/doc/manuel_utilisateur.txt
index ea0cf7f..8f54270 100644
--- a/doc/manuel_utilisateur.txt
+++ b/doc/manuel_utilisateur.txt
@@ -231,6 +231,9 @@ La création nécessite les arguments suivants :
- soit un objet existant qui prendra pour père le groupe
$clipped.
+Note : un clip peut être rendu visible (ce qui signifie qu'il joue son rôle de
+masquage) ou non visible (pas de masquage) avec la propriété "-visible".
+
Exemple d'utilisation :
use MTools;
use MTools::GUI::MGroup;
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;