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

[tfry at users.sourceforge.net]

Revision: 944
          http://svn.sourceforge.net/rkward/?rev=944&view=rev
Author:   tfry
Date:     2006-11-27 04:08:10 -0800 (Mon, 27 Nov 2006)

Log Message:
-----------
Add Device->Duplicate action

Modified Paths:
--------------
    trunk/rkward/TODO
    trunk/rkward/rkward/windows/rkcatchedx11windowpart.rc
    trunk/rkward/rkward/windows/rkwindowcatcher.cpp
    trunk/rkward/rkward/windows/rkwindowcatcher.h

Modified: trunk/rkward/TODO
===================================================================
--- trunk/rkward/TODO	2006-11-27 11:31:41 UTC (rev 943)
+++ trunk/rkward/TODO	2006-11-27 12:08:10 UTC (rev 944)
@@ -25,11 +25,11 @@
 
 UI-stuff
 	- Access to dev.copy (), dev.print (), and a function to copy gaphics to rkward output
-		- probably in Windows-menu for now
 		- cleanup DISABLE_RKWINDOWCATCHER (either get rid of it, or do it right)
 	- Output window should gain some sort of auto-update functionality:
 		- After user commands, should check, whether the output file was modified. If so, reload
 	- Option to save workplace per session instead of per workspace
+	- Fix help menu on RKMDIWindows
 	"First-run wizard"
 		- pre-install R packages
 	- Check for existence of php binary on startup, not only when loading a plugin

Modified: trunk/rkward/rkward/windows/rkcatchedx11windowpart.rc
===================================================================
--- trunk/rkward/rkward/windows/rkcatchedx11windowpart.rc	2006-11-27 11:31:41 UTC (rev 943)
+++ trunk/rkward/rkward/windows/rkcatchedx11windowpart.rc	2006-11-27 12:08:10 UTC (rev 944)
@@ -3,6 +3,7 @@
 	<MenuBar>
 		<Menu name="plot"><text>&Plot Device</text>
 			<Action name="device_activate"/>
+			<Action name="device_duplicate"/>
 			<Separator/>
 			<Action name="device_print"/>
 			<Action name="device_copy_to_output"/>

Modified: trunk/rkward/rkward/windows/rkwindowcatcher.cpp
===================================================================
--- trunk/rkward/rkward/windows/rkwindowcatcher.cpp	2006-11-27 11:31:41 UTC (rev 943)
+++ trunk/rkward/rkward/windows/rkwindowcatcher.cpp	2006-11-27 12:08:10 UTC (rev 944)
@@ -248,7 +248,13 @@
 	#warning implement or deactivate action
 }
 
+void RKCatchedX11Window::duplicateDevice () {
+	RK_TRACE (MISC);
 
+	RKGlobals::rInterface ()->issueCommand ("dev.set (" + QString::number (device_number) + ")\ndev.copy (device=x11)", RCommand::App, i18n ("Duplicate graphics device number %1").arg (QString::number (device_number)));
+}
+
+
 ///////////////////////////////// END RKWindowCatchedWindow ////////////////////////////
 /**************************************************************************************/
 //////////////////////////////// BEGIN RKCatchedX11WindowPart //////////////////////////
@@ -277,6 +283,7 @@
 	new KAction (i18n ("Print"), 0, window, SLOT (printDevice ()), actionCollection (), "device_print");
 	new KAction (i18n ("Store as R object"), 0, window, SLOT (copyDeviceToRObject ()), actionCollection (), "device_copy_to_r_object");
 	new KAction (i18n ("Export"), 0, window, SLOT (copyDeviceToFile ()), actionCollection (), "device_copy_to_file");
+	new KAction (i18n ("Duplicate"), 0, window, SLOT (duplicateDevice ()), actionCollection (), "device_duplicate");
 }
 
 RKCatchedX11WindowPart::~RKCatchedX11WindowPart () {

Modified: trunk/rkward/rkward/windows/rkwindowcatcher.h
===================================================================
--- trunk/rkward/rkward/windows/rkwindowcatcher.h	2006-11-27 11:31:41 UTC (rev 943)
+++ trunk/rkward/rkward/windows/rkwindowcatcher.h	2006-11-27 12:08:10 UTC (rev 944)
@@ -119,6 +119,7 @@
 	void printDevice ();
 	void copyDeviceToRObject ();
 	void copyDeviceToFile ();
+	void duplicateDevice ();
 private:
 	friend class RKCatchedX11WindowPart;	// needs access to the actions
 	int device_number;


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