diff options
| author | mertz | 2002-11-19 09:57:23 +0000 |
|---|---|---|
| committer | mertz | 2002-11-19 09:57:23 +0000 |
| commit | f3ad9d399cda39aa7c619e2b1aae7f577777f5f1 (patch) | |
| tree | e143480d59ff6c7ede12a7b505aed2bac107e51b /Perl/demos/Tk/demos/zinc_lib/window-contours.pl | |
| parent | c51cf9b5a63bde35d57f8e69072a41fe76fbfd6c (diff) | |
| download | tkzinc-f3ad9d399cda39aa7c619e2b1aae7f577777f5f1.zip tkzinc-f3ad9d399cda39aa7c619e2b1aae7f577777f5f1.tar.gz tkzinc-f3ad9d399cda39aa7c619e2b1aae7f577777f5f1.tar.bz2 tkzinc-f3ad9d399cda39aa7c619e2b1aae7f577777f5f1.tar.xz | |
passage � la nouvelle m�thode contour.
N'a pas pu �tre test� avec le paquet 3.2.6c du 13/11/02
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 0b2d91b..0cf4018 100644 --- a/Perl/demos/Tk/demos/zinc_lib/window-contours.pl +++ b/Perl/demos/Tk/demos/zinc_lib/window-contours.pl @@ -45,16 +45,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, 'diff', $aGlass); +$zinc->contour($window, 'addhole', $aGlass); $zinc->translate($aGlass, 90,0); -$zinc->contour($window, 'diff', $aGlass); +$zinc->contour($window, 'addhole', $aGlass); $zinc->translate($aGlass, 0,140); -$zinc->contour($window, 'diff', $aGlass); +$zinc->contour($window, 'addhole', $aGlass); $zinc->translate($aGlass, -90,0); -$zinc->contour($window, 'diff', $aGlass); +$zinc->contour($window, 'addhole', $aGlass); # deleting $aGlass which is no more usefull $zinc->remove($aGlass); |