diff options
| author | ribet | 2007-07-19 07:24:12 +0000 |
|---|---|---|
| committer | ribet | 2007-07-19 07:24:12 +0000 |
| commit | 389dc2edaab8987dfc1475149940b9e615c2182b (patch) | |
| tree | 6c7a2c03a6d4b72c1306d3f8f2fa634e7a9aa2f0 /src/MTools/GUI/MClip.pm | |
| parent | edd455020813a8989dbbeb306774aa76c393b7c6 (diff) | |
| download | mtc-389dc2edaab8987dfc1475149940b9e615c2182b.zip mtc-389dc2edaab8987dfc1475149940b9e615c2182b.tar.gz mtc-389dc2edaab8987dfc1475149940b9e615c2182b.tar.bz2 mtc-389dc2edaab8987dfc1475149940b9e615c2182b.tar.xz | |
Gestion de -visible pour les clip
Diffstat (limited to 'src/MTools/GUI/MClip.pm')
| -rw-r--r-- | src/MTools/GUI/MClip.pm | 13 |
1 files changed, 13 insertions, 0 deletions
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; |