Revision: 41312
http://brlcad.svn.sourceforge.net/brlcad/?rev=41312&view=rev
Author: bob1961
Date: 2010-11-10 18:25:04 +0000 (Wed, 10 Nov 2010)
Log Message:
-----------
Added a way to bypass tree decoration (i.e. increase tree update speed) by
setting a no_tree_decorate variable in .archerrc.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/Archer.tcl
brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
Modified: brlcad/trunk/src/tclscripts/archer/Archer.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Archer.tcl 2010-11-10 16:06:48 UTC
(rev 41311)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2010-11-10 18:25:04 UTC
(rev 41312)
@@ -8313,6 +8313,7 @@
::itcl::body Archer::readPreferences {} {
global env
+ global no_tree_decorate
if {$mViewOnly} {
return
@@ -8385,6 +8386,12 @@
}
::itcl::body Archer::writePreferencesBody {_pfile} {
+ global no_tree_decorate
+
+ if {[info exists no_tree_decorate]} {
+ puts $_pfile "set no_tree_decorate $no_tree_decorate"
+ }
+
puts $_pfile "set mBackgroundColor \"$mBackgroundColor\""
puts $_pfile "set mBindingMode $mBindingMode"
puts $_pfile "set mEnableBigE $mEnableBigE"
Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2010-11-10 16:06:48 UTC
(rev 41311)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2010-11-10 18:25:04 UTC
(rev 41312)
@@ -3287,6 +3287,8 @@
}
::itcl::body ArcherCore::fillTree {_pnode _ctext _flat {_allow_multiple 0}} {
+ global no_tree_decorate
+
set cnodes [getCNodesFromCText $_pnode $_ctext]
# Atleast one node for _pnode/_ctext already exists
@@ -3303,12 +3305,18 @@
}
set ptext $mNode2Text($_pnode)
- set op [getTreeOp $ptext $_ctext]
- set img [getTreeImage $_ctext $ctype $op $isregion]
- set cnode [$itk_component(newtree) insert $_pnode end \
- -tags $TREE_POPUP_TAG \
- -text $_ctext \
- -image $img]
+ if {[info exists no_tree_decorate] && $no_tree_decorate} {
+ set cnode [$itk_component(newtree) insert $_pnode end \
+ -tags $TREE_POPUP_TAG \
+ -text $_ctext]
+ } else {
+ set op [getTreeOp $ptext $_ctext]
+ set img [getTreeImage $_ctext $ctype $op $isregion]
+ set cnode [$itk_component(newtree) insert $_pnode end \
+ -tags $TREE_POPUP_TAG \
+ -text $_ctext \
+ -image $img]
+ }
fillTreeColumns $cnode $_ctext
if {!$_flat && $ctype == "comb"} {
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
The Next 800 Companies to Lead America's Growth: New Video Whitepaper
David G. Thomson, author of the best-selling book "Blueprint to a
Billion" shares his insights and actions to help propel your
business during the next growth cycle. Listen Now!
http://p.sf.net/sfu/SAP-dev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
