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

[Thomas Friedrichsmeier]

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

Modified Files:
	internal.R 
Log Message:
Implemented R_EditFile(s), R_ShowFiles, R_ChooseFile, R_Cleanup, R_Suicide.
Override for q () and quit () in R.
Make help (...)-calls open HTML-help in rkward-HTML-window (via DCOP).

Index: internal.R
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R/internal.R,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** internal.R	4 May 2005 15:23:02 -0000	1.16
--- internal.R	14 Sep 2005 16:32:25 -0000	1.17
***************
*** 115,118 ****
--- 115,127 ----
  }
  
+ # overriding q, to ask via GUI instead. Arguments are not interpreted.
+ "q" <- function (save = "default", status = 0, runLast = TRUE) {
+ 	.rk.do.call ("quit")
+ }
+ 
+ "quit" <- function (save = "default", status = 0, runLast = TRUE) {
+ 	q (save, status, runLast)
+ }
+ 
  ".rk.catch.window" <- function (title_begin, corresponding_device) {
  	.rk.do.call ("catchWindow", c (as.character (title_begin), as.character (corresponding_device)))