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

[kapatp at users.sourceforge.net]

Revision: 2894
          http://rkward.svn.sourceforge.net/rkward/?rev=2894&view=rev
Author:   kapatp
Date:     2010-06-24 01:15:13 +0000 (Thu, 24 Jun 2010)

Log Message:
-----------
Create a stub function (and its calls) which will be later used to enable / disable the menu entries

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

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal_graphics.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal_graphics.R	2010-06-24 01:05:41 UTC (rev 2893)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal_graphics.R	2010-06-24 01:15:13 UTC (rev 2894)
@@ -65,6 +65,14 @@
 	}
 }
 
+".rk.graph.history.gui" <- function (deviceId = dev.cur())
+{
+	# this function is called whenever the history length changes (ie, increases, for now)
+	# or the position changes in any device.
+	# see public_graphics.R :: rk.record.plot
+	invisible ()
+}
+
 "plot.new" <- function () 
 {
 	if (dev.cur() == 1) rk.screen.device ()

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-06-24 01:05:41 UTC (rev 2893)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-06-24 01:15:13 UTC (rev 2894)
@@ -90,6 +90,7 @@
 			if (class (try (unsavedPlot <- recordPlot(), silent=TRUE)) != 'try-error') {
 				current [[deviceId]] <<- length(recorded) + 1L
 				recorded [[current [[deviceId]]]] <<- unsavedPlot
+				.rk.graph.history.gui (deviceId)
 			}
 		} else if (force) {
 			if (class (try (unsavedPlot <- recordPlot(), silent=TRUE)) != 'try-error') {
@@ -112,6 +113,7 @@
 		if (n > 0 && n <= length(recorded)) {
 			current [[deviceId]] <<- n
 			replayPlot(recorded[[n]])
+			.rk.graph.history.gui (deviceId)
 		}
 		else message("replay: 'n' not in valid range: ", n)
 		dev.set (cur.deviceId)
@@ -133,6 +135,7 @@
 		recorded <<- list()
 		current <- as.list(0)
 		newPlotExists <- as.list(FALSE)
+		.rk.graph.history.gui (deviceId)
 	}
 	printPars <- function ()
 	{


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