Revision: 54531
http://brlcad.svn.sourceforge.net/brlcad/?rev=54531&view=rev
Author: bob1961
Date: 2013-03-05 14:28:59 +0000 (Tue, 05 Mar 2013)
Log Message:
-----------
Tweak BotEditFrame::loadTables.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/BotEditFrame.tcl
Modified: brlcad/trunk/src/tclscripts/archer/BotEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/BotEditFrame.tcl 2013-03-05 11:25:15 UTC
(rev 54530)
+++ brlcad/trunk/src/tclscripts/archer/BotEditFrame.tcl 2013-03-05 14:28:59 UTC
(rev 54531)
@@ -130,7 +130,7 @@
method handleEnter {_row _col}
method highlightCurrentBotElements {}
method initPointHighlight {}
- method loadTables {_gdata}
+ method loadTables {_gdata {_lflag 1}}
method manageTables {}
method multiEdgeSelectCallback {}
method multiFaceSelectCallback {}
@@ -213,8 +213,6 @@
return
}
- loadTables $_gdata
-
GeometryEditFrame::initGeometry $_gdata
if {$itk_option(-geometryObject) != $itk_option(-prevGeometryObject)} {
@@ -222,8 +220,13 @@
set mCurrentBotEdges ""
set mCurrentBotFaces ""
set itk_option(-prevGeometryObject) $itk_option(-geometryObject)
+ set lflag 1
+ } else {
+ set lflag 0
}
+ loadTables $_gdata $lflag
+
$itk_component(edgeTab) unselectAllRows
$itk_component(faceTab) unselectAllRows
@@ -983,15 +986,7 @@
}
-::itcl::body BotEditFrame::loadTables {_gdata} {
- unset mVertDetail
- unset mEdgeDetail
- unset mFaceDetail
-
- set mVertDetail(active) ""
- set mEdgeDetail(active) ""
- set mFaceDetail(active) ""
-
+::itcl::body BotEditFrame::loadTables {_gdata {_lflag 1}} {
set vl [$itk_option(-mged) get $itk_option(-geometryObject) V]
set vlen [llength $vl]
if {$mIgnoreMaxVertThreshold || $vlen <= $mMaxVertThreshold} {
@@ -1002,10 +997,37 @@
manageTables
- if {!$mShowTables} {
+ if {!$_lflag} {
+ set mPointList {}
+ foreach {attr val} $_gdata {
+ switch -- $attr {
+ "V" {
+ set index 1
+ foreach item $val {
+ set mVertDetail($index,$SELECT_COL) ""
+ set mVertDetail($index,$X_COL) [lindex $item 0]
+ set mVertDetail($index,$Y_COL) [lindex $item 1]
+ set mVertDetail($index,$Z_COL) [lindex $item 2]
+ incr index
+
+ lappend mPointList $item
+ }
+ }
+ }
+ }
+
return
}
+ SetWaitCursor $::ArcherCore::application
+ unset mVertDetail
+ unset mEdgeDetail
+ unset mFaceDetail
+
+ set mVertDetail(active) ""
+ set mEdgeDetail(active) ""
+ set mFaceDetail(active) ""
+
set col 0
foreach heading $mVertDetailHeadings {
set mVertDetail(0,$col) $heading
@@ -1027,7 +1049,6 @@
set mPointList {}
set mEdgeList {}
set mFaceList {}
- set tmpFaceList {}
foreach {attr val} $_gdata {
switch -- $attr {
"mode" {
@@ -1049,7 +1070,6 @@
}
}
"F" {
- set tmpFaceList $val
set index 1
foreach item $val {
set mFaceDetail($index,$SELECT_COL) ""
@@ -1086,6 +1106,8 @@
}
incr index
}
+
+ SetNormalCursor $::ArcherCore::application
}
@@ -1142,7 +1164,7 @@
::itcl::body BotEditFrame::reloadTables {} {
set gdata [lrange [$itk_option(-mged) get $itk_option(-geometryObject)] 1
end]
- loadTables $gdata
+ loadTables $gdata 0
}
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
