diff options
Diffstat (limited to 'Perl')
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/testGraphics.pl | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl b/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl index 108cdd0..be7675c 100644 --- a/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl +++ b/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl @@ -1037,14 +1037,14 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, 'TabBox' => {'consigne' => {-itemtype => 'text', - -coords => [-285, 170], + -coords => [-285, 160], -params => {-font => $font_9b, - -text => "Click hippo Buttons with mouse button 1.\n", + -text => "Click on thumbnail to select page\nChange anchor or alignment tabs options with radio buttons.\n", -color => '#2222cc', }, }, 'bo1' => {-itemtype => 'tabbox', - -coords => [[-240, -150], [240, 110]], + -coords => [[-240, -160], [240, 100]], -radius => 8, -tabwidth => 72, -tabheight => 28, @@ -1064,7 +1064,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, 'back' => {-itemtype => 'roundedrectangle', - -coords => [[-242, -152], [242, 112]], + -coords => [[-242, -162], [242, 102]], -radius => 10, -params => {-closed => 1, -filled => 1, @@ -1075,7 +1075,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, 'anchor' => {-itemtype => 'text', - -coords => [-120, 125], + -coords => [-120, 115], -params => {-text => 'tabs anchor', -color => '#2222cc', -font => $font_9b, @@ -1086,7 +1086,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, 'anchorN' => {-itemtype => 'hippodrome', - -coords => [[-210, 135], [-165, 161]], + -coords => [[-210, 125], [-165, 151]], -params => {-closed => 1, -filled => 1, -fillcolor => 'pushbtn4', @@ -1098,7 +1098,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', -trunc => 'right', }, 'txtanN' => {-itemtype => 'text', - -coords => [-187, 148], + -coords => [-187, 138], -params => {-text => 'N', -color => '#000000', -font => $font_9b, @@ -1110,7 +1110,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, 'anchorE' => {-itemtype => 'hippodrome', - -coords => [[-163, 135], [-120, 161]], + -coords => [[-163, 125], [-120, 151]], -params => {-closed => 1, -filled => 1, -fillcolor => 'pushbtn4', @@ -1122,7 +1122,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', -trunc => 'both', }, 'txtanE' => {-itemtype => 'text', - -coords => [-141.5, 148], + -coords => [-141.5, 138], -params => {-text => 'E', -color => '#000000', -font => $font_9b, @@ -1134,7 +1134,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, 'anchorS' => {-itemtype => 'hippodrome', - -coords => [[-118, 135], [-75, 161]], + -coords => [[-118, 125], [-75, 151]], -params => {-closed => 1, -filled => 1, -fillcolor => 'pushbtn4', @@ -1146,7 +1146,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', -trunc => 'both', }, 'txtanS' => {-itemtype => 'text', - -coords => [-96.5, 148], + -coords => [-96.5, 138], -params => {-text => 'S', -color => '#000000', -font => $font_9b, @@ -1157,7 +1157,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, }, 'anchorW' => {-itemtype => 'hippodrome', - -coords => [[-73, 135], [-28, 161]], + -coords => [[-73, 125], [-28, 151]], -params => {-closed => 1, -filled => 1, -fillcolor => 'pushbtn4', @@ -1169,7 +1169,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', -trunc => 'left', }, 'txtanW' => {-itemtype => 'text', - -coords => [-52, 148], + -coords => [-52, 138], -params => {-text => 'W', -color => '#000000', -font => $font_9b, @@ -1180,7 +1180,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, }, 'alignment' => {-itemtype => 'text', - -coords => [120, 125], + -coords => [120, 115], -params => {-text => 'tabs alignment', -color => '#2222cc', -font => $font_9b, @@ -1190,7 +1190,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, }, 'alignG' => {-itemtype => 'hippodrome', - -coords => [[30, 135], [90, 161]], + -coords => [[30, 125], [90, 151]], -params => {-closed => 1, -filled => 1, -fillcolor => 'pushbtn4', @@ -1202,7 +1202,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', -trunc => 'right', }, 'txtalG' => {-itemtype => 'text', - -coords => [60, 148], + -coords => [60, 138], -params => {-text => 'left', -color => '#000000', -font => $font_9b, @@ -1213,7 +1213,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, }, 'alignC' => {-itemtype => 'hippodrome', - -coords => [[92, 135], [148, 161]], + -coords => [[92, 125], [148, 151]], -params => {-closed => 1, -filled => 1, -fillcolor => 'pushbtn4', @@ -1225,7 +1225,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', -trunc => 'both', }, 'txtalC' => {-itemtype => 'text', - -coords => [120, 148], + -coords => [120, 138], -params => {-text => 'center', -color => '#000000', -font => $font_9b, @@ -1236,7 +1236,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', }, }, 'alignD' => {-itemtype => 'hippodrome', - -coords => [[150, 135], [210, 161]], + -coords => [[150, 125], [210, 151]], -params => {-closed => 1, -filled => 1, -fillcolor => 'pushbtn4', @@ -1248,7 +1248,7 @@ my %pagesconf = ('Rectangle' => {'consigne' => {-itemtype => 'text', -trunc => 'left', }, 'txtalD' => {-itemtype => 'text', - -coords => [180, 148], + -coords => [180, 138], -params => {-text => 'right', -color => '#000000', -font => $font_9b, @@ -1680,7 +1680,7 @@ sub clickSelector { -overlap => 3, ); - my ($shapes, $tcoords) = &tabBoxCoords([[-240, -150], [240, 110]], %tabparams); + my ($shapes, $tcoords) = &tabBoxCoords([[-240, -160], [240, 100]], %tabparams); for (my $index = 7; $index >= 0; $index--) { my $divgroup = $zinc->group("(div2 && $index && intercalaire)"); @@ -1844,7 +1844,7 @@ sub buildTabBox { # exemple fonte if ($tindex == 0) { $zinc->add('text', $parentgroup, - -position => [-165, -84], + -position => [-165, -105], -text => $table->{'-names'}->[0], -font => $font_9b, -alignment => 'left', |