[Vegan-commits] r448 - pkg/R

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

Author: jarioksa
Date: 2008-07-18 07:35:18 +0200 (Fri, 18 Jul 2008)
New Revision: 448

Modified:
   pkg/R/orditkplot.R
Log:
orditkplot: does not try to move empty places, but only labels

Modified: pkg/R/orditkplot.R
===================================================================
--- pkg/R/orditkplot.R	2008-07-16 06:37:52 UTC (rev 447)
+++ pkg/R/orditkplot.R	2008-07-18 05:35:18 UTC (rev 448)
@@ -423,7 +423,7 @@
 ##############################
     
     ## Plotting and Moving
-    ## Mouse moves to a label
+    ## Mouse enters a label
     pEnter <- function() {
         tkdelete(can, "box")
         hbox <- tkcreate(can, "rectangle", tkbbox(can, "current"),
@@ -528,13 +528,13 @@
     .pX <- 0
     .pY <- 0
     ## Mouse bindings:
-    ## Moving a labels
+    ## Moving a label
     tkitembind(can, "label", "<Any-Enter>", pEnter)
     tkitembind(can, "label", "<Any-Leave>", pLeave)
     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)