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

[tfry at users.sourceforge.net]

Revision: 3712
          http://rkward.svn.sourceforge.net/rkward/?rev=3712&view=rev
Author:   tfry
Date:     2011-08-08 18:07:44 +0000 (Mon, 08 Aug 2011)

Log Message:
-----------
Fix one more locked environment problem.

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	2011-08-03 11:56:56 UTC (rev 3711)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal_graphics.R	2011-08-08 18:07:44 UTC (rev 3712)
@@ -71,7 +71,7 @@
 	}
 }
 
-".rk.printer.devices" <- list ()
+.rk.variables$.rk.printer.devices <- list ()
 
 # see .rk.fix.assignmetns () in internal.R
 ".rk.fix.assignments.graphics" <- function ()
@@ -92,10 +92,10 @@
 			
 			ret <- eval (body (.rk.backups$dev.off))
 
-			printfile <- .rk.printer.devices[[as.character (which)]]
+			printfile <- .rk.variables$.rk.printer.devices[[as.character (which)]]
 			if (!is.null (printfile)) {
 				.rk.do.plain.call ("printPreview", printfile, FALSE)
-				.rk.printer.devices[[as.character (which)]] <<- NULL
+				.rk.variables$.rk.printer.devices[[as.character (which)]] <- NULL
 			}
 
 			return (ret)

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2011-08-03 11:56:56 UTC (rev 3711)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2011-08-08 18:07:44 UTC (rev 3712)
@@ -61,7 +61,7 @@
 "rk.printer.device" <- function(...) {
 	tf <- tempfile (fileext=".ps")
 	postscript (file = tf, ...)
-	.rk.printer.devices[[as.character (dev.cur ())]] <<- tf
+	.rk.variables$.rk.printer.devices[[as.character (dev.cur ())]] <- tf
 }
 
 "rk.duplicate.device" <- function (devId = dev.cur ())


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