diff options
| author | marion | 2008-04-03 12:09:23 +0000 |
|---|---|---|
| committer | marion | 2008-04-03 12:09:23 +0000 |
| commit | ff932ffa6fcf1c1dcee2a5b01ce52c35d4560cff (patch) | |
| tree | 58202801c2ed77f67c821b05185d0256357b29be /src | |
| parent | 2f279dbca6f54856ed9569573f325acb309130b8 (diff) | |
| download | mtc-ff932ffa6fcf1c1dcee2a5b01ce52c35d4560cff.zip mtc-ff932ffa6fcf1c1dcee2a5b01ce52c35d4560cff.tar.gz mtc-ff932ffa6fcf1c1dcee2a5b01ce52c35d4560cff.tar.bz2 mtc-ff932ffa6fcf1c1dcee2a5b01ce52c35d4560cff.tar.xz | |
Possibilité d'utiliser un objet zinc ou mtools comme élément à clipper.
Diffstat (limited to 'src')
| -rw-r--r-- | src/MTools/GUI/MClip.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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, |