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

[tfry at users.sourceforge.net]

Revision: 973
          http://svn.sourceforge.net/rkward/?rev=973&view=rev
Author:   tfry
Date:     2006-11-30 05:28:17 -0800 (Thu, 30 Nov 2006)

Log Message:
-----------
Correct return value for x11 ()

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	2006-11-29 20:21:23 UTC (rev 972)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2006-11-30 13:28:17 UTC (rev 973)
@@ -143,9 +143,11 @@
 "x11" <- function (...) {
 	.rk.do.call ("startOpenX11", as.character (dev.cur ()));
 
-	grDevices::X11 (...)
+	x <- grDevices::X11 (...)
 
 	.rk.do.call ("endOpenX11", as.character (dev.cur ()));
+
+	invisible (x)
 }
 
 "X11" <- x11


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