Revision: 54999
http://brlcad.svn.sourceforge.net/brlcad/?rev=54999&view=rev
Author: bob1961
Date: 2013-04-01 14:29:49 +0000 (Mon, 01 Apr 2013)
Log Message:
-----------
Automatically select newly created objects in Archer. This mod covers c, g,
comb, r and make.
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-01 12:40:17 UTC
(rev 54998)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2013-04-01 14:29:49 UTC
(rev 54999)
@@ -5992,6 +5992,16 @@
::itcl::body ArcherCore::c {args} {
eval gedWrapper c 0 1 1 2 $args
+
+ set ilist [lsearch -all -regexp $args {^-[cr]$}]
+ if {$ilist == ""} {
+ return
+ }
+ set i [lindex $list end]
+ incr i
+
+ set oname [lindex $args $i]
+ selectTreePath $oname
}
::itcl::body ArcherCore::cd {args} {
@@ -6020,6 +6030,9 @@
::itcl::body ArcherCore::comb {args} {
eval gedWrapper comb 0 1 1 2 $args
+
+ set oname [lindex $args 0]
+ selectTreePath $oname
}
::itcl::body ArcherCore::comb_color {args} {
@@ -6292,6 +6305,9 @@
::itcl::body ArcherCore::group {args} {
eval gedWrapper g 1 1 1 2 $args
+
+ set oname [lindex $args 0]
+ selectTreePath $oname
}
::itcl::body ArcherCore::hide {args} {
@@ -6352,6 +6368,9 @@
::itcl::body ArcherCore::make {args} {
eval gedWrapper make 0 0 1 2 $args
+
+ set oname [lindex $args 0]
+ selectTreePath $oname
}
::itcl::body ArcherCore::make_bb {args} {
@@ -6577,6 +6596,9 @@
::itcl::body ArcherCore::r {args} {
eval gedWrapper r 0 1 1 2 $args
+
+ set oname [lindex $args 0]
+ selectTreePath $oname
}
::itcl::body ArcherCore::rcodes {args} {
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Own the Future-Intel® Level Up Game Demo Contest 2013
Rise to greatness in Intel's independent game demo contest.
Compete for recognition, cash, and the chance to get your game
on Steam. $5K grand prize plus 10 genre and skill prizes.
Submit your demo by 6/6/13. http://p.sf.net/sfu/intel_levelupd2d
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
