[rkward-cvs] SF.net SVN: rkward:[2942] trunk/rkward/rkward/rbackend/rpackages/rkward/R/ public_graphics.R

[kapatp at users.sourceforge.net]

Revision: 2942
          http://rkward.svn.sourceforge.net/rkward/?rev=2942&view=rev
Author:   kapatp
Date:     2010-07-06 00:53:38 +0000 (Tue, 06 Jul 2010)

Log Message:
-----------
Revert back to updating all (managed) devices on every call. See http://thread.gmane.org/gmane.comp.statistics.rkward.devel/835/focus=859

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-07-05 17:23:16 UTC (rev 2941)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-07-06 00:53:38 UTC (rev 2942)
@@ -88,7 +88,7 @@
 			histPositions [[deviceId]] <<- if (n > 0) n + 1 else 0
 		}
 		newPlotExists [[deviceId]] <<- FALSE
-		.rk.graph.history.gui (deviceId)
+		.rk.graph.history.gui () # (deviceId)
 	}
 	onDelDevice <- function (deviceId = dev.cur())
 	{
@@ -216,7 +216,7 @@
 				m <- min (histPositions[[d]] - sum (n <= histPositions[[d]]) + 1, len.r)
 				if (newPlotExists[[d]]) {
 					histPositions [[d]] <<- m
-					.rk.graph.history.gui (d)
+					.rk.graph.history.gui () # (d)
 				} else
 					replay (n = m, deviceId = d)
 			}
@@ -225,9 +225,7 @@
 			for (d in dGtn) {
 				histPositions[[d]] <<- histPositions[[d]] - sum (n <= histPositions[[d]])
 			}
-			.rk.graph.history.gui (dGtn)
-			
-			.rk.graph.history.gui (names (histPositions) [unlist (histPositions) == len.r])
+			.rk.graph.history.gui () # (dGtn)
 		}
 		
 		if (is.null (pos)) {
@@ -269,7 +267,7 @@
 		if (n > 0 && n <= length(recorded)) {
 			histPositions [[deviceId]] <<- n
 			replayPlot(recorded[[n]])
-			.rk.graph.history.gui (deviceId)
+			.rk.graph.history.gui () # (deviceId)
 		}
 		else message("replay: 'n' not in valid range: ", n)
 		dev.set (cur.deviceId)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.