[rkward-cvs] SF.net SVN: rkward: [1582] trunk/rkward/rkward/rbackend

[tfry at users.sourceforge.net]

Revision: 1582
          http://svn.sourceforge.net/rkward/?rev=1582&view=rev
Author:   tfry
Date:     2007-03-14 14:35:56 -0700 (Wed, 14 Mar 2007)

Log Message:
-----------
Update working directory in the status bar

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

Modified: trunk/rkward/rkward/rbackend/rinterface.cpp
===================================================================
--- trunk/rkward/rkward/rbackend/rinterface.cpp	2007-03-14 21:35:28 UTC (rev 1581)
+++ trunk/rkward/rkward/rbackend/rinterface.cpp	2007-03-14 21:35:56 UTC (rev 1582)
@@ -357,6 +357,8 @@
 			MUTEX_UNLOCK;
 		}
 #endif // DISABLE_RKWINDOWCATCHER
+	} else if (call == "wdChange") {
+		RKWardMainWindow::getMain ()->updateCWD ();
 	} else if (call == "preLocaleChange") {
 		int res = KMessageBox::warningContinueCancel (0, i18n ("A command in the R backend is trying to change the character encoding. While RKWard offers support for this, and will try to adjust to the new locale, this operation may cause subtle bugs, if data windows are currently open. Also the feature is not well tested, yet, and it may be advisable to save your workspace before proceeding.\nIf you have any data editor opened, or in any doubt, it is recommended to close those first (this will probably be auto-detected in later versions of RKWard). In this case, please chose 'Cancel' now, then close the data windows, save, and retry."), i18n ("Locale change"));
 		if (res != KMessageBox::Continue) {

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2007-03-14 21:35:28 UTC (rev 1581)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2007-03-14 21:35:56 UTC (rev 1582)
@@ -402,3 +402,9 @@
 		base::Sys.setlocale (category, locale, ...)
 	}
 }
+
+"setwd" <- function () {
+	eval (body (base::setwd))
+	.rk.do.call ("wdChange", NULL);
+}
+formals (setwd) <- formals (base::setwd)


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