diff options
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/testGraphics.pl')
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/testGraphics.pl | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl b/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl index e5e4bb4..272d1cc 100644 --- a/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl +++ b/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl @@ -582,14 +582,14 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, 'Polygone' => {'consigne' => {-itemtype => 'text', - -coords => [-285, 165], + -coords => [-285, 160], -params => {-font => $font_9b, - -text => "Click and Drag inside Polygons for rotate them", + -text => "Click and Drag inside Polygons for rotate them\nEscape key reset transfos.", -color => '#2222cc', }, }, 'triangle' => {-itemtype => 'group', - -coords => [-210, -90], + -coords => [-215, -95], -items => {'form' => {-itemtype => 'polygone', -coords => [0, 0], -numsides => 3, @@ -619,7 +619,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, 'carre' => {-itemtype => 'group', - -coords => [-80, -70], + -coords => [-80, -75], -items => {'form' => {-itemtype => 'polygone', -coords => [0, 0], -numsides => 4, @@ -649,7 +649,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, 'pentagone' => {-itemtype => 'group', - -coords => [65, -70], + -coords => [65, -75], -items => {'form' => {-itemtype => 'polygone', -coords => [0, 0], -numsides => 5, @@ -679,7 +679,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, 'hexagone' => {-itemtype => 'group', - -coords => [210, -70], + -coords => [210, -75], -items => {'form' => {-itemtype => 'polygone', -coords => [0, 0], -numsides => 6, @@ -708,7 +708,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, 'heptagone' => {-itemtype => 'group', - -coords => [-215, 90], + -coords => [-215, 85], -items => {'form' => {-itemtype => 'polygone', -coords => [0, 0], -numsides => 7, @@ -738,7 +738,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', 'octogone' => {-itemtype => 'group', - -coords => [-76, 90], + -coords => [-76, 85], -items => {'form' => {-itemtype => 'polygone', -coords => [0, 0], -numsides => 8, @@ -767,7 +767,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, 'petagone' => {-itemtype => 'group', - -coords => [66, 90], + -coords => [66, 85], -items => {'form' => {-itemtype => 'polygone', -coords => [0, 0], -numsides => 32, @@ -796,7 +796,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, 'etoile' => {-itemtype => 'group', - -coords => [210, 90], + -coords => [210, 85], -items => {'form' => {-itemtype => 'polygone', -coords => [0, 0], -numsides => 5, @@ -1494,7 +1494,7 @@ foreach my $shape (reverse @{$shapes}) { } # création du contenu des pages -my $i = 0; +$i = 0; foreach my $pagename (reverse @pagenames) { my $pagestyle = $pagesconf{$pagename}; if ($pagestyle) { @@ -1568,7 +1568,8 @@ sub setBindings { $mw->Tk::bind('<less>', sub {viewRotate('ccw');}); # Escape : reset transfos - $mw->Tk::bind('<Escape>', sub {$zinc->treset('move'); + $mw->Tk::bind('<Escape>', sub {$zinc->treset('poly'); + $zinc->treset('move'); $zinc->raise('move'); $zinc->treset($curview);}); |