[rkward-cvs] SF.net SVN: rkward:[2710] trunk/rkward/rkward/agents/rksaveagent.cpp

[kapatp at users.sourceforge.net]

Revision: 2710
          http://rkward.svn.sourceforge.net/rkward/?rev=2710&view=rev
Author:   kapatp
Date:     2009-11-12 05:54:29 +0000 (Thu, 12 Nov 2009)

Log Message:
-----------
Use conventional filename extensions for save() images.
See:
http://cran.r-project.org/doc/manuals/R-exts.html#Data-in-packages

Modified Paths:
--------------
    trunk/rkward/rkward/agents/rksaveagent.cpp

Modified: trunk/rkward/rkward/agents/rksaveagent.cpp
===================================================================
--- trunk/rkward/rkward/agents/rksaveagent.cpp	2009-10-27 16:58:43 UTC (rev 2709)
+++ trunk/rkward/rkward/agents/rksaveagent.cpp	2009-11-12 05:54:29 UTC (rev 2710)
@@ -57,7 +57,7 @@
 
 bool RKSaveAgent::askURL () {
 	RK_TRACE (APP);
-	save_url = KFileDialog::getSaveFileName (save_url, "*.R");
+	save_url = KFileDialog::getSaveFileName (save_url, "*.RData *.rdata *.rda|R Data Files (*.RData *.rdata *.rda)\n*.*|All Files (*.*)");
 	if (save_url.isEmpty ()) {
 		if (when_done != DoNothing) {
 			if (KMessageBox::warningYesNo (0, i18n ("No filename given. Your data was NOT saved. Do you still want to proceed?")) != KMessageBox::Yes) when_done = DoNothing;


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