diff options
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/window-contours.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/window-contours.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/window-contours.pl b/Perl/demos/Tk/demos/zinc_lib/window-contours.pl index 9199f20..c51782c 100644 --- a/Perl/demos/Tk/demos/zinc_lib/window-contours.pl +++ b/Perl/demos/Tk/demos/zinc_lib/window-contours.pl @@ -41,16 +41,16 @@ my $window = $zinc->add('curve', 1, [100,100 , 300,100, 300,400 , 100,400 ], ); my $aGlass= $zinc->add('rectangle', 1, [120,120 , 190,240]); -$zinc->contour($window, 'addhole', $aGlass); +$zinc->contour($window, 'add', +1, $aGlass); $zinc->translate($aGlass, 90,0); -$zinc->contour($window, 'addhole', $aGlass); +$zinc->contour($window, 'add', +1, $aGlass); $zinc->translate($aGlass, 0,140); -$zinc->contour($window, 'addhole', $aGlass); +$zinc->contour($window, 'add', +1, $aGlass); $zinc->translate($aGlass, -90,0); -$zinc->contour($window, 'addhole', $aGlass); +$zinc->contour($window, 'add', +1, $aGlass); # deleting $aGlass which is no more usefull $zinc->remove($aGlass); |