Revision: 54453
http://brlcad.svn.sourceforge.net/brlcad/?rev=54453&view=rev
Author: bob1961
Date: 2013-02-21 14:02:54 +0000 (Thu, 21 Feb 2013)
Log Message:
-----------
Highlight the selected pipe point if the pipe is being displayed.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/PipeEditFrame.tcl
Modified: brlcad/trunk/src/tclscripts/archer/PipeEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/PipeEditFrame.tcl 2013-02-21
14:01:59 UTC (rev 54452)
+++ brlcad/trunk/src/tclscripts/archer/PipeEditFrame.tcl 2013-02-21
14:02:54 UTC (rev 54453)
@@ -468,6 +468,7 @@
set mEditPCommand [::itcl::code $this p]
set seg_i [expr {$mCurrentPipePoint - 1}]
+ highlightCurrentPipePoint
switch -- $mEditMode \
$selectPoint {
@@ -577,6 +578,11 @@
::itcl::body PipeEditFrame::highlightCurrentPipePoint {} {
+ if {$itk_option(-mged) == "" ||
+ [$itk_option(-mged) how $itk_option(-geometryObjectPath)] < 0} {
+ return
+ }
+
$itk_option(-mged) refresh_off
set hlcolor [$::ArcherCore::application getRgbColor [$itk_option(-mged)
cget -primitiveLabelColor]]
$itk_option(-mged) data_axes draw $mHighlightPoints
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
