correction tabbox

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',