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

[tfry at users.sourceforge.net]

Revision: 2887
          http://rkward.svn.sourceforge.net/rkward/?rev=2887&view=rev
Author:   tfry
Date:     2010-06-20 19:38:43 +0000 (Sun, 20 Jun 2010)

Log Message:
-----------
Add basic gui for graphics history. Implementation to be added by PK.

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

Modified: trunk/rkward/rkward/windows/rkcatchedx11windowpart.rc
===================================================================
--- trunk/rkward/rkward/windows/rkcatchedx11windowpart.rc	2010-06-20 17:51:06 UTC (rev 2886)
+++ trunk/rkward/rkward/windows/rkcatchedx11windowpart.rc	2010-06-20 19:38:43 UTC (rev 2887)
@@ -1,5 +1,5 @@
 <!DOCTYPE kpartgui>
-<kpartgui name="rkward" version="42">
+<kpartgui name="rkward" version="54">
 	<MenuBar>
 		<Menu name="device"><text>&Device</text>
 			<Action name="device_activate"/>
@@ -18,6 +18,9 @@
 			<Action name="set_fixed_size_3"/>
 			<Action name="set_fixed_size_manual"/>
 			<Merge/>
+			<Separator/>
+			<Action name="plot_prev"/>
+			<Action name="plot_next"/>
 		</Menu>
 		<Merge/>
 	</MenuBar>

Modified: trunk/rkward/rkward/windows/rkwindowcatcher.cpp
===================================================================
--- trunk/rkward/rkward/windows/rkwindowcatcher.cpp	2010-06-20 17:51:06 UTC (rev 2886)
+++ trunk/rkward/rkward/windows/rkwindowcatcher.cpp	2010-06-20 19:38:43 UTC (rev 2887)
@@ -2,7 +2,7 @@
                           rwindowcatcher.cpp  -  description
                              -------------------
     begin                : Wed May 4 2005
-    copyright            : (C) 2005, 2006, 2007, 2009 by Thomas Friedrichsmeier
+    copyright            : (C) 2005, 2006, 2007, 2009, 2010 by Thomas Friedrichsmeier
     email                : tfry at users.sourceforge.net
  ***************************************************************************/
 
@@ -316,7 +316,18 @@
 	RKGlobals::rInterface ()->issueCommand ("dev.set (" + QString::number (device_number) + ")\ndev.copy (device=x11)", RCommand::App, i18n ("Duplicate graphics device number %1", device_number), error_dialog);
 }
 
+void RKCaughtX11Window::nextPlot () {
+	RK_TRACE (MISC);
 
+	RKGlobals::rInterface ()->issueCommand ("rk.next.plot (" + QString::number (device_number) + ')', RCommand::App, i18n ("Load next plot in device number %1", device_number), error_dialog);
+}
+
+void RKCaughtX11Window::previousPlot () {
+	RK_TRACE (MISC);
+
+	RKGlobals::rInterface ()->issueCommand ("rk.previous.plot (" + QString::number (device_number) + ')', RCommand::App, i18n ("Load previous plot in device number %1", device_number), error_dialog);
+}
+
 ///////////////////////////////// END RKCaughtX11Window ///////////////////////////////
 /**************************************************************************************/
 //////////////////////////////// BEGIN RKCaughtX11WindowPart //////////////////////////
@@ -346,6 +357,11 @@
 	action = actionCollection ()->addAction ("set_fixed_size_manual", window, SLOT (setFixedSizeManual()));
 	action->setText (i18n ("Set specified fixed size..."));
 
+	action = actionCollection ()->addAction ("plot_prev", window, SLOT (previousPlot()));
+	action->setText (i18n ("Restore previous plot"));
+	action = actionCollection ()->addAction ("plot_next", window, SLOT (nextPlot()));
+	action->setText (i18n ("Advance to next plot"));
+
 	action = actionCollection ()->addAction ("device_activate", window, SLOT (activateDevice()));
 	action->setText (i18n ("Make active"));
 	action = actionCollection ()->addAction ("device_copy_to_output", window, SLOT (copyDeviceToOutput()));

Modified: trunk/rkward/rkward/windows/rkwindowcatcher.h
===================================================================
--- trunk/rkward/rkward/windows/rkwindowcatcher.h	2010-06-20 17:51:06 UTC (rev 2886)
+++ trunk/rkward/rkward/windows/rkwindowcatcher.h	2010-06-20 19:38:43 UTC (rev 2887)
@@ -2,7 +2,7 @@
                           rwindowcatcher.h  -  description
                              -------------------
     begin                : Wed May 4 2005
-    copyright            : (C) 2005, 2006, 2009 by Thomas Friedrichsmeier
+    copyright            : (C) 2005, 2006, 2009, 2010 by Thomas Friedrichsmeier
     email                : tfry at users.sourceforge.net
  ***************************************************************************/
 
@@ -121,6 +121,8 @@
 	void copyDeviceToRObject ();
 	void duplicateDevice ();
 
+	void previousPlot ();
+	void nextPlot ();
 private slots:
 	void doEmbed ();
 private:


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