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

[tfry at users.sourceforge.net]

Revision: 839
          http://svn.sourceforge.net/rkward/?rev=839&view=rev
Author:   tfry
Date:     2006-10-09 08:44:54 -0700 (Mon, 09 Oct 2006)

Log Message:
-----------
Don't offer to search help on toplevel envirnoment objects

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

Modified: trunk/rkward/rkward/robjectbrowser.cpp
===================================================================
--- trunk/rkward/rkward/robjectbrowser.cpp	2006-10-09 15:42:32 UTC (rev 838)
+++ trunk/rkward/rkward/robjectbrowser.cpp	2006-10-09 15:44:54 UTC (rev 839)
@@ -170,7 +170,7 @@
 		return;
 	}
 
-	menu->setItemVisible (Help, !object->isInGlobalEnv ());
+	menu->setItemVisible (Help, !(object->isType (RObject::ToplevelEnv) || object->isInGlobalEnv ()));
 	menu->setItemVisible (Edit, object->canEdit () && RKWorkplace::mainWorkplace ()->canEditObject (object));
 	menu->setItemVisible (View, object->canRead ());
 	menu->setItemVisible (Rename, object->canRename ());


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