aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/testGraphics.pl44
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',