Revision: 55529
http://sourceforge.net/p/brlcad/code/55529
Author: bob1961
Date: 2013-05-22 11:12:16 +0000 (Wed, 22 May 2013)
Log Message:
-----------
Tweaks for Archer's Rt image view mode.
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-05-22 03:28:04 UTC
(rev 55528)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2013-05-22 11:12:16 UTC
(rev 55529)
@@ -408,6 +408,9 @@
variable mColorObjects {}
variable mGhostObjects {}
variable mEdgeObjects {}
+ variable mColorObjectsHow 0
+ variable mGhostObjectsHow 0
+ variable mEdgeObjectsHow 0
variable mAccordianCallbackActive 0
variable mTreeMode $TREE_MODE_TREE
@@ -2630,16 +2633,26 @@
set whoList [gedCmd who]
+ set who [lindex $whoList 0]
+ if {$who != ""} {
+ set how [gedCmd how $who]
+ } else {
+ set how 0
+ }
+
switch -- $mTreeMode \
$TREE_MODE_TREE - \
$TREE_MODE_COLOR_OBJECTS {
set mColorObjects $whoList
+ set mColorObjectsHow $how
} \
$TREE_MODE_GHOST_OBJECTS {
set mGhostObjects $whoList
+ set mGhostObjectsHow $how
} \
$TREE_MODE_EDGE_OBJECTS {
set mEdgeObjects $whoList
+ set mEdgeObjectsHow $how
}
foreach ditem $whoList {
@@ -7244,6 +7257,7 @@
set drawem 0
set draw_objects ""
+ set how 0
if {!$_state && !$mToolViewChange} { # The same accordian button was
pressed and there's NO tool view change
if {[regexp Tree $_item all]} {
@@ -7316,12 +7330,15 @@
$TREE_MODE_TREE - \
$TREE_MODE_COLOR_OBJECTS {
set draw_objects $mColorObjects
+ set how $mColorObjectsHow
} \
$TREE_MODE_GHOST_OBJECTS {
set draw_objects $mGhostObjects
+ set how $mGhostObjectsHow
} \
$TREE_MODE_EDGE_OBJECTS {
set draw_objects $mEdgeObjects
+ set how $mEdgeObjectsHow
}
}
@@ -7344,7 +7361,11 @@
set mSavedCenter [$itk_component(ged) center]
set mSavedSize [$itk_component(ged) size]
zap
- eval draw $draw_objects
+
+ if {$draw_objects != ""} {
+ eval draw -m$how $draw_objects
+ }
+
$itk_component(ged) center $mSavedCenter
$itk_component(ged) size $mSavedSize
$itk_component(ged) refresh_on
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Try New Relic Now & We'll Send You this Cool Shirt
New Relic is the only SaaS-based application performance monitoring service
that delivers powerful full stack analytics. Optimize and monitor your
browser, app, & servers with just a few lines of code. Try New Relic
and get this awesome Nerd Life shirt! http://p.sf.net/sfu/newrelic_d2d_may
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
