[rkward-cvs] rkward/rkward/rbackend/rpackages/rkward/R internal.R,1.14,1.15

[Thomas Friedrichsmeier]

Update of /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2782/rkward/rbackend/rpackages/rkward/R

Modified Files:
	internal.R 
Log Message:
Adding some dead/deactivated code I hoped would work to embed R X11 windows. Unfortunately, if activated, it crashes when trying to embed such a window.

Index: internal.R
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R/internal.R,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** internal.R	27 Apr 2005 17:11:29 -0000	1.14
--- internal.R	4 May 2005 14:04:30 -0000	1.15
***************
*** 115,118 ****
--- 115,130 ----
  }
  
+ # overriding x11 to get informed, when a new x11 window is opened
+ #"x11" <- function (display = "", width = 7, height = 7, pointsize = 12, gamma = 1, colortype = getOption("X11colortype"), maxcubesize = 256, bg #= "transparent", canvas = "white", fonts = getOption("X11fonts")) {
+ #	.rk.do.call ("startOpenX11", as.character (dev.cur ()));
+ #
+ #	if (display == "" && .Platform$GUI == "AQUA" && Sys.getenv("DISPLAY") == "")
+ #		Sys.putenv (DISPLAY = ":0")
+ #	.Internal(X11(display, width, height, pointsize, gamma, colortype, maxcubesize, bg, canvas, fonts, NA))
+ #
+ #	.rk.do.call ("endOpenX11", as.character (dev.cur ()));
+ #}
+ 
+ 
  # changed to allow assignment of values not in levels without losing information.
  "[<-.factor" <- function (x, i, value) {