Revision: 41548
http://brlcad.svn.sourceforge.net/brlcad/?rev=41548&view=rev
Author: bob1961
Date: 2010-12-07 21:41:37 +0000 (Tue, 07 Dec 2010)
Log Message:
-----------
This update affects setting the keypoint in any of the "Relative Edit" tables.
If the row in question has been selected, all selected rows will have their
keypoints set using the view center.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/CombEditFrame.tcl
Modified: brlcad/trunk/src/tclscripts/archer/CombEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/CombEditFrame.tcl 2010-12-07
21:24:10 UTC (rev 41547)
+++ brlcad/trunk/src/tclscripts/archer/CombEditFrame.tcl 2010-12-07
21:41:37 UTC (rev 41548)
@@ -103,6 +103,7 @@
method deleteRow {_type _row}
method setKeypoint {args}
method setKeypointVC {_tname _row _col}
+ method setKeypointVC_doit {_tname _row _col}
method syncColumn {_tname _row _col _val}
method validateTableEntry {_row _col _newval _tname}
@@ -1086,6 +1087,26 @@
}
::itcl::body CombEditFrame::setKeypointVC {_tname _row _col} {
+ if {[subst $[subst mMemberData$_tname\($_row,0\)]] == "*"} {
+ set anames [lsort -dictionary [array names mMemberData$_tname]]
+ set rows {}
+ foreach aindex [lsearch -all -regexp $anames "\[0-9\]+,0"] {
+ set aname [lindex $anames $aindex]
+ if {[subst $[subst mMemberData$_tname\($aname\)]] == "*"} {
+ set alist [split $aname ,]
+ lappend rows [lindex $alist 0]
+ }
+ }
+ } else {
+ set rows $_row
+ }
+
+ foreach row $rows {
+ setKeypointVC_doit $_tname $row $_col
+ }
+}
+
+::itcl::body CombEditFrame::setKeypointVC_doit {_tname _row _col} {
if {$itk_option(-mged) == ""} {
return
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
What happens now with your Lotus Notes apps - do you make another costly
upgrade, or settle for being marooned without product support? Time to move
off Lotus Notes and onto the cloud with Force.com, apps are easier to build,
use, and manage than apps on traditional platforms. Sign up for the Lotus
Notes Migration Kit to learn more. http://p.sf.net/sfu/salesforce-d2d
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
