*** empty log message ***

4 files changed, 20 insertions, 17 deletions

diff --git a/doc/refman.tex b/doc/refman.tex
index 35a2784..633c658 100644
--- a/doc/refman.tex
+++ b/doc/refman.tex
@@ -1742,11 +1742,11 @@ false.
   \item{\ident{add}} to extend the surface of the curve. In this case there is a mandatory
   flag describing the way the contour will be added. It may take the following values:
   \begin{description}
-	\item{0} the list of points is taken unchanged. In this case, the {\tt coordListOrTagOrId}
-	parameter cannot be a tag and must be an explicit list of points.
-	\item{1} the list of points is reverted, if needed, so that the points defines
+        \item{0} the list of points is taken unchanged. In this case, the {\tt coordListOrTagOrId}
+        parameter cannot be a tag and must be an explicit list of points.
+        \item{1} the list of points is reverted, if needed, so that the points defines
                  a {\bf counterclockwise} contour.
-	\item{-1} the list of points is reverted,if needed, so that the points  defines
+        \item{-1} the list of points is reverted,if needed, so that the points  defines
                  a {\bf clockwise} contour.
   \end{description}
   \item{\ident{remove}} to remove an existing contour
@@ -1991,11 +1991,11 @@ false.
 
 \begin{blockindent}
   This command fits a sequence of Bezier segments on the curve described by the vertices
-  in {\tt coordList} and returns a list of vertices describing the control points for the
-  generated segments. All the points on the fitted segments will be within {\tt error}
-  distance from the given curve.  {\tt coordList} should be either a flat list of even
-  number of coordinates in x, y order or a lst of [X, Y]. The returned list can be directly used
-  to create or change a curve item contour.
+  in {\tt coordList} and returns a list of lists describing the points and control points
+  for the generated segments. All the points on the fitted segments will be within {\tt error}
+  distance from the given curve.  {\tt coordList} should be either a flat list of an even
+  number of coordinates in x, y order or a list of lists of point coordinates X, Y.
+  The returned list can be directly used to create or change a curve item contour.
 \end{blockindent}
 
 
@@ -2362,11 +2362,12 @@ false.
 {\tt\large @coords = \$zinc->{\bf smooth}(coordList);}
 
 \begin{blockindent}
-  This command computes a sequence of Bezier segments in order to smooth the curve
+  This command computes a sequence of Bezier segments that will smooth the polygon
   described by the vertices in {\tt coordList} and returns a list of lists describing
-  points and control points for the generated segments. {\tt coordList} should be either a
-  flat list of even number of coordinates in x, y order, or a list of [X, Y].
-  The returned list can be used to create or change a contour of a curve item.
+  thr points and control points for the generated segments. {\tt coordList} should be either a
+  flat list of an even number of coordinates in x, y order, or a list of lists of point
+  coordinates X, Y. The returned list can be used to create or change the contour of a
+  curve item.
 \end{blockindent}
 
 
diff --git a/generic/Curve.c b/generic/Curve.c
index a881a4b..bad3de5 100644
--- a/generic/Curve.c
+++ b/generic/Curve.c
@@ -1915,7 +1915,6 @@ Coords(Item	item,
 	      for (i = index-1; c->controls[i] && (i >= 0); i--, num_controls++);
 	    }
 	    for (i = index+1; c->controls[i] && (i < c->num_points); i++, num_controls++);
-	    printf("******* num controls(): %d\n", num_controls);
 	    if (num_controls > 1) {
 	    control_err:
 	      Tcl_AppendResult(item->wi->interp, " too many consecutive control points in a curve", NULL);
diff --git a/patchlvl.h b/patchlvl.h
index 46ac4d5..dc4b88c 100644
--- a/patchlvl.h
+++ b/patchlvl.h
@@ -9,5 +9,5 @@
 #define ZINCVER		3
 #define ZINCREV		2
 #define ZINCPLVL	06
-#define ZINCVERSION	"zinc-version-3206g"
+#define ZINCVERSION	"zinc-version-3206h"
 #endif
diff --git a/sandbox/testshape.pl b/sandbox/testshape.pl
index e14d341..5897912 100644
--- a/sandbox/testshape.pl
+++ b/sandbox/testshape.pl
@@ -120,8 +120,11 @@ $zinc->Tk::bind('<1>', sub {
 		  my $ev = $zinc->XEvent();
 		  my $it = $zinc->find('closest', $ev->x, $ev->y);
 		  print "Closest: $it\n";
-		  my @t = $zinc->vertexat($it, $ev->x, $ev->y);
-		  print "VertexAt: ", join(', ', @t), "\n";
+#		  my @t = $zinc->vertexat($it, $ev->x, $ev->y);
+#		  print "VertexAt: ", join(', ', @t), "\n";
+		  $zinc->bind($cv2, '<1>', sub { print "zou\n";});
+		  $zinc->coords($cv2, 0, [[100,0]]);
+		  print $zinc->bind($cv2, '<1>'), "\n";
 		});
 
 $zinc->focusFollowsMouse();