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

tfry at users.sourceforge.net tfry at users.sourceforge.net
Wed Apr 6 17:19:05 UTC 2011


Revision: 3508
          http://rkward.svn.sourceforge.net/rkward/?rev=3508&view=rev
Author:   tfry
Date:     2011-04-06 17:19:05 +0000 (Wed, 06 Apr 2011)

Log Message:
-----------
Add interrupt all commands action to the status bar.

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

Modified: trunk/rkward/rkward/rkward.cpp
===================================================================
--- trunk/rkward/rkward/rkward.cpp	2011-04-06 11:27:04 UTC (rev 3507)
+++ trunk/rkward/rkward/rkward.cpp	2011-04-06 17:19:05 UTC (rev 3508)
@@ -369,6 +369,7 @@
 	interrupt_all_commands->setText (i18n ("Interrupt all commands"));
 	interrupt_all_commands->setShortcut (Qt::ShiftModifier + Qt::Key_Escape);
 	interrupt_all_commands->setIcon (RKStandardIcons::getIcon (RKStandardIcons::ActionInterrupt));
+	interrupt_all_commands->setEnabled (false);		// enabled from within setRStatus()
 
 	// These two currently do the same thing
 	action = actionCollection ()->addAction ("load_unload_libs", this, SLOT (slotFileLoadLibs()));
@@ -518,9 +519,17 @@
 	statusBar ()->addWidget (statusbar_cwd, 10);
 	updateCWD ();
 
-	statusbar_r_status = new QLabel (" <b>R</b> ", statusBar ());
+	KHBox *box = new KHBox (statusBar ());
+	box->setSpacing (0);
+	statusbar_r_status = new QLabel (" <b>R</b> ", box);
 	statusbar_r_status->setFixedHeight (statusBar ()->fontMetrics ().height () + 2);
-	statusBar ()->addPermanentWidget (statusbar_r_status, 0);
+
+	QToolButton* dummy = new QToolButton (box);
+	dummy->setDefaultAction (interrupt_all_commands);
+	dummy->setFixedHeight (statusbar_r_status->height ());
+	dummy->setAutoRaise (true);
+
+	statusBar ()->addPermanentWidget (box, 0);
 	setRStatus (Starting);
 }
 


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




More information about the rkward-tracker mailing list