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

[kapatp at users.sourceforge.net]

Revision: 2970
          http://rkward.svn.sourceforge.net/rkward/?rev=2970&view=rev
Author:   kapatp
Date:     2010-08-27 21:05:32 +0000 (Fri, 27 Aug 2010)

Log Message:
-----------
Some cosmetics

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-08-27 21:03:38 UTC (rev 2969)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-08-27 21:05:32 UTC (rev 2970)
@@ -234,6 +234,9 @@
 		
 		pop.and.update <- function (n) {
 			## TODO: check if this is too expensive? Use recorded[[n]] <<- NULL ??
+			## length (n) can be > 1: see .verify.hist.limits ()
+			
+			## TODO: investigate b/n x <<- x[-n] & x[n] <<- NULL
 			recorded <<- recorded [-n]
 			gType <<- gType [-n]
 			len.r <- length (recorded)
@@ -294,13 +297,16 @@
 		cur.deviceId <- dev.cur ()
 		dev.set (as.numeric(deviceId))
 		
+		status.display <- paste ("Device: ", deviceId, ", History: ", n, sep = '')
 		if (n > 0 && n <= length(recorded)) {
 			if (gType [[n]] == "standard") {
+				status.display <- paste (status.display, ", Call: Standard graphics", sep = "")
 				replayPlot (recorded[[n]])
 			} else if (gType [[n]] == "lattice") {
-				message (deparse (recorded[[n]]$call)) # show case call object
+				status.display <- paste (status.display, ", Call: ", deparse (recorded[[n]]$call), sep = "")
 				plot (recorded[[n]], save.object = (cur.deviceId == as.numeric (deviceId)))
 			}
+			message (status.display, "\n") # add to a new status bar?
 			histPositions [[deviceId]] <<- n
 			.set.gType.newplot (gType [[n]])
 			.rk.graph.history.gui () # (deviceId)


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