Revision: 55027
http://brlcad.svn.sourceforge.net/brlcad/?rev=55027&view=rev
Author: bob1961
Date: 2013-04-03 11:41:38 +0000 (Wed, 03 Apr 2013)
Log Message:
-----------
Modify ArcherCore::cp to draw and select the new object.
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-04-03 06:42:52 UTC
(rev 55026)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2013-04-03 11:41:38 UTC
(rev 55027)
@@ -6057,6 +6057,14 @@
::itcl::body ArcherCore::cp {args} {
eval gedWrapper cp 0 0 1 2 $args
+
+ set oname [lindex $args 1]
+ if {$oname == ""} {
+ return ""
+ }
+
+ draw $oname
+ selectTreePath $oname
}
::itcl::body ArcherCore::cpi {args} {
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Minimize network downtime and maximize team effectiveness.
Reduce network management and security costs.Learn how to hire
the most talented Cisco Certified professionals. Visit the
Employer Resources Portal
http://www.cisco.com/web/learning/employer_resources/index.html
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
