[Vegan-commits] r458 - in pkg: R inst

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

Author: jarioksa
Date: 2008-08-05 09:05:09 +0200 (Tue, 05 Aug 2008)
New Revision: 458

Modified:
   pkg/R/orditkplot.R
   pkg/inst/ChangeLog
Log:
orditkplot: zooming works again

Modified: pkg/R/orditkplot.R
===================================================================
--- pkg/R/orditkplot.R	2008-08-04 11:30:53 UTC (rev 457)
+++ pkg/R/orditkplot.R	2008-08-05 07:05:09 UTC (rev 458)
@@ -1,5 +1,3 @@
-
-
 ###
 ### Editable Tcl/Tk plot for ordination
 ###
@@ -538,8 +536,9 @@
         ## FIXME: Doesn't do a perfect job
         mul <- abs(diff(nxlim)/diff(xlim))
         xy$labels <- xy$points + (xy$labels - xy$points)*mul
-        orditkplot(ordDump(), xlim = nxlim, ylim = nylim, tcex = tcex,
-                   pcol = pcol, pcex = pcex)
+        xy$args$xlim <- nxlim
+        xy$args$ylim <- nylim
+        orditkplot(xy)
     }
     ## Dummy location of the mouse
     .lastX <- 0

Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2008-08-04 11:30:53 UTC (rev 457)
+++ pkg/inst/ChangeLog	2008-08-05 07:05:09 UTC (rev 458)
@@ -10,8 +10,8 @@
 	* ordiArgAbsorber: now knows about 'choices' and 'display' args
 	of scores(). Reported by Michael Denslow.
 
-	* orditkplot: plotting text labels was broken in the default case
-	(zooming is still broken). Plotting character (pch) is now better
+	* orditkplot: plotting text labels was broken in the default case.
+	Zooming works again. Plotting character (pch) is now better
 	centred on the canvas, and the code was simplified.
 	
 Version 1.14-7 (closed July 30, 2008)