Revision: 54469
          http://brlcad.svn.sourceforge.net/brlcad/?rev=54469&view=rev
Author:   bob1961
Date:     2013-02-22 13:46:27 +0000 (Fri, 22 Feb 2013)
Log Message:
-----------
Update ArcherCore::handleTreePopup to better accommodate dsp, ebm, extrude, 
revolve and vol.

Modified Paths:
--------------
    brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl

Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl   2013-02-22 12:28:10 UTC 
(rev 54468)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl   2013-02-22 13:46:27 UTC 
(rev 54469)
@@ -4483,6 +4483,13 @@
     }
 
     set path [getTreePath $item $text]
+    set dirname [file dirname $path]
+    if {$dirname != "."} {
+       set type [$itk_component(ged) get_type $dirname]
+       if {$type == "dsp" || $type == "ebm" || $type == "extrude" || $type == 
"revolve" || $type == "vol"} {
+           return
+       }
+    }
 
     loadMenu $itk_component(newtreepopup) $path $nodeType $item
     tk_popup $itk_component(newtreepopup) $_X $_Y

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


------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://p.sf.net/sfu/appdyn_d2d_feb
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits

Reply via email to