diff options
Diffstat (limited to 'src/MTools')
| -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; |