[brlcad-commits] SF.net SVN: brlcad:[55271] brlcad/trunk/src/tclscripts/archer/PipeEditFrame .tcl

[<bo...@us...>]

Revision: 55271
          http://sourceforge.net/p/brlcad/code/55271
Author:   bob1961
Date:     2013-04-30 18:12:04 +0000 (Tue, 30 Apr 2013)
Log Message:
-----------
Minor cleanup of PipeEditFrame::initEditState

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-04-30 14:38:31 UTC (rev 55270)
+++ brlcad/trunk/src/tclscripts/archer/PipeEditFrame.tcl	2013-04-30 18:12:04 UTC (rev 55271)
@@ -502,37 +502,31 @@
 	} \
 	$setPointOD {
 	    set mEditCommand pscale
-	    set mEditPCommand [::itcl::code $this p]
 	    set mEditClass $EDIT_CLASS_SCALE
 	    set mEditParam1 "o$seg_i"
 	} \
 	$setPointID {
 	    set mEditCommand pscale
-	    set mEditPCommand [::itcl::code $this p]
 	    set mEditClass $EDIT_CLASS_SCALE
 	    set mEditParam1 "i$seg_i"
 	} \
 	$setPointBend {
 	    set mEditCommand pscale
-	    set mEditPCommand [::itcl::code $this p]
 	    set mEditClass $EDIT_CLASS_SCALE
 	    set mEditParam1 "b$seg_i"
 	} \
 	$setPipeOD {
 	    set mEditCommand pscale
-	    set mEditPCommand [::itcl::code $this p]
 	    set mEditClass $EDIT_CLASS_SCALE
 	    set mEditParam1 O
 	} \
 	$setPipeID {
 	    set mEditCommand pscale
-	    set mEditPCommand [::itcl::code $this p]
 	    set mEditClass $EDIT_CLASS_SCALE
 	    set mEditParam1 I
 	} \
 	$setPipeBend {
 	    set mEditCommand pscale
-	    set mEditPCommand [::itcl::code $this p]
 	    set mEditClass $EDIT_CLASS_SCALE
 	    set mEditParam1 B
 	} \

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.