diff options
| -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, |