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

[tfry at users.sourceforge.net]

Revision: 1473
          http://svn.sourceforge.net/rkward/?rev=1473&view=rev
Author:   tfry
Date:     2007-02-26 04:58:13 -0800 (Mon, 26 Feb 2007)

Log Message:
-----------
Make sure not to create preview window while trying to close it

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

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2007-02-26 00:45:41 UTC (rev 1472)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2007-02-26 12:58:13 UTC (rev 1473)
@@ -362,7 +362,9 @@
 	a <- .rk.preview.devices[[x]]
 	if (!is.null (a)) {
 		.rk.preview.devices[[x]] <<- NULL
-		dev.set (a)
-		dev.off ()
+		if (a %in% dev.list ()) {
+			dev.set (a)
+			dev.off ()
+		}
 	}
 }


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