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

[Thomas Friedrichsmeier]

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

Modified Files:
	internal.R 
Log Message:
Disabling RKWindowCatcher only using defines. Some improvments that did not help and some infos added.

Index: internal.R
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R/internal.R,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** internal.R	4 May 2005 14:04:30 -0000	1.15
--- internal.R	4 May 2005 15:23:02 -0000	1.16
***************
*** 115,118 ****
--- 115,122 ----
  }
  
+ ".rk.catch.window" <- function (title_begin, corresponding_device) {
+ 	.rk.do.call ("catchWindow", c (as.character (title_begin), as.character (corresponding_device)))
+ }
+ 
  # 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")) {