[Vegan-commits] r454 - in branches/1.13: R inst

[noreply at r-forge.r-project.org]

Author: jarioksa
Date: 2008-08-04 10:07:30 +0200 (Mon, 04 Aug 2008)
New Revision: 454

Modified:
   branches/1.13/R/orditkplot.R
   branches/1.13/inst/ChangeLog
Log:
merged r448 to branches/1.13: bind moving only to labels in orditkplot

Modified: branches/1.13/R/orditkplot.R
===================================================================
--- branches/1.13/R/orditkplot.R	2008-08-03 19:07:11 UTC (rev 453)
+++ branches/1.13/R/orditkplot.R	2008-08-04 08:07:30 UTC (rev 454)
@@ -1,3 +1,4 @@
+
 ###
 ### Editable Tcl/Tk plot for ordination
 ###
@@ -409,7 +410,7 @@
     .pX <- 0
     .pY <- 0
     ## Mouse bindings:
-    ## Moving a labels
+    ## Moving a label
     tkitembind(can, "label", "<Any-Enter>",
                function() tkitemconfigure(can, "current", fill="red"))
     tkitembind(can, "label", "<Any-Leave>",
@@ -417,7 +418,7 @@
     tkitembind(can, "label", "<1>", pDown)
     tkitembind(can, "label", "<ButtonRelease-1>",
                function() {tkdtag(can, "selected"); tkdelete(can, "ptr")})
-    tkbind(can, "<B1-Motion>", pMove)
+    tkitembind(can, "label", "<B1-Motion>", pMove)
     ## Edit labels
     tkitembind(can, "label", "<Double-Button-1>", pEdit) 
     ## Zoom (with one-button mouse)

Modified: branches/1.13/inst/ChangeLog
===================================================================
--- branches/1.13/inst/ChangeLog	2008-08-03 19:07:11 UTC (rev 453)
+++ branches/1.13/inst/ChangeLog	2008-08-04 08:07:30 UTC (rev 454)
@@ -1,4 +1,5 @@
 
+	
 $Date$
 
 VEGAN DEVEL VERSIONS at http://r-forge.r-project.org/
@@ -18,6 +19,9 @@
 	* r437 simultaneously with pkg/: oecosimu p/a transforms data also
 	for the original statistic.
 
+	* merged r448: bind moving only to labels (was canvas) in
+	orditkplot. 
+
 Version 1.13-1 (released June 11, 2008)
 
 	* adonis: speed-up and doc updates.