Revision: 46506
http://brlcad.svn.sourceforge.net/brlcad/?rev=46506&view=rev
Author: bob1961
Date: 2011-08-31 19:23:56 +0000 (Wed, 31 Aug 2011)
Log Message:
-----------
Calling GeometryEditFrame::updateGeometry.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/Arb4EditFrame.tcl
brlcad/trunk/src/tclscripts/archer/Arb5EditFrame.tcl
brlcad/trunk/src/tclscripts/archer/Arb6EditFrame.tcl
brlcad/trunk/src/tclscripts/archer/Arb7EditFrame.tcl
brlcad/trunk/src/tclscripts/archer/Arb8EditFrame.tcl
brlcad/trunk/src/tclscripts/archer/CombEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/EhyEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/EllEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/EpaEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/EtoEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/ExtrudeEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/GeometryEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/GripEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/HalfEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/HypEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/PartEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/RhcEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/RpcEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/SuperellEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/TgcEditFrame.tcl
brlcad/trunk/src/tclscripts/archer/TorusEditFrame.tcl
Modified: brlcad/trunk/src/tclscripts/archer/Arb4EditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Arb4EditFrame.tcl 2011-08-31
19:23:50 UTC (rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/Arb4EditFrame.tcl 2011-08-31
19:23:56 UTC (rev 46506)
@@ -457,9 +457,7 @@
set mV8y $mV5y
set mV8z $mV5z
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body Arb4EditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/Arb5EditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Arb5EditFrame.tcl 2011-08-31
19:23:50 UTC (rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/Arb5EditFrame.tcl 2011-08-31
19:23:56 UTC (rev 46506)
@@ -535,9 +535,7 @@
set mV8y $mV5y
set mV8z $mV5z
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body Arb5EditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/Arb6EditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Arb6EditFrame.tcl 2011-08-31
19:23:50 UTC (rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/Arb6EditFrame.tcl 2011-08-31
19:23:56 UTC (rev 46506)
@@ -593,9 +593,7 @@
set mV8y $mV7y
set mV8z $mV7z
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body Arb6EditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/Arb7EditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Arb7EditFrame.tcl 2011-08-31
19:23:50 UTC (rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/Arb7EditFrame.tcl 2011-08-31
19:23:56 UTC (rev 46506)
@@ -650,9 +650,7 @@
set mV8y $mV5y
set mV8z $mV5z
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body Arb7EditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/Arb8EditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Arb8EditFrame.tcl 2011-08-31
19:23:50 UTC (rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/Arb8EditFrame.tcl 2011-08-31
19:23:56 UTC (rev 46506)
@@ -791,9 +791,7 @@
V7 [list $mV7x $mV7y $mV7z] \
V8 [list $mV8x $mV8y $mV8z]
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body Arb8EditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/CombEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/CombEditFrame.tcl 2011-08-31
19:23:50 UTC (rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/CombEditFrame.tcl 2011-08-31
19:23:56 UTC (rev 46506)
@@ -277,9 +277,7 @@
return
}
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body CombEditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/EhyEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/EhyEditFrame.tcl 2011-08-31 19:23:50 UTC
(rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/EhyEditFrame.tcl 2011-08-31 19:23:56 UTC
(rev 46506)
@@ -129,9 +129,7 @@
r_2 $mR_2 \
c $mC
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body EhyEditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/EllEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/EllEditFrame.tcl 2011-08-31 19:23:50 UTC
(rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/EllEditFrame.tcl 2011-08-31 19:23:56 UTC
(rev 46506)
@@ -129,9 +129,7 @@
B [list $mBx $mBy $mBz] \
C [list $mCx $mCy $mCz]
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body EllEditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/EpaEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/EpaEditFrame.tcl 2011-08-31 19:23:50 UTC
(rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/EpaEditFrame.tcl 2011-08-31 19:23:56 UTC
(rev 46506)
@@ -126,9 +126,7 @@
r_1 $mR_1 \
r_2 $mR_2
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body EpaEditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/EtoEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/EtoEditFrame.tcl 2011-08-31 19:23:50 UTC
(rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/EtoEditFrame.tcl 2011-08-31 19:23:56 UTC
(rev 46506)
@@ -126,9 +126,7 @@
r $mR \
r_d $mR_d
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body EtoEditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/ExtrudeEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ExtrudeEditFrame.tcl 2011-08-31
19:23:50 UTC (rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/ExtrudeEditFrame.tcl 2011-08-31
19:23:56 UTC (rev 46506)
@@ -131,9 +131,7 @@
B [list $mBx $mBy $mBz] \
S $mS
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body ExtrudeEditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/GeometryEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/GeometryEditFrame.tcl 2011-08-31
19:23:50 UTC (rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/GeometryEditFrame.tcl 2011-08-31
19:23:56 UTC (rev 46506)
@@ -286,7 +286,9 @@
}
::itcl::body GeometryEditFrame::updateGeometry {} {
- catch {eval $itk_option(-geometryChangedCallback)}
+ if {$itk_option(-geometryChangedCallback) != ""} {
+ catch {eval $itk_option(-geometryChangedCallback)}
+ }
}
::itcl::body GeometryEditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/GripEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/GripEditFrame.tcl 2011-08-31
19:23:50 UTC (rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/GripEditFrame.tcl 2011-08-31
19:23:56 UTC (rev 46506)
@@ -257,9 +257,7 @@
N [list $mNx $mNy $mNz] \
L $mL
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body GripEditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/HalfEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/HalfEditFrame.tcl 2011-08-31
19:23:50 UTC (rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/HalfEditFrame.tcl 2011-08-31
19:23:56 UTC (rev 46506)
@@ -211,9 +211,7 @@
N [list $mNx $mNy $mNz] \
d $mD
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body HalfEditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/HypEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/HypEditFrame.tcl 2011-08-31 19:23:50 UTC
(rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/HypEditFrame.tcl 2011-08-31 19:23:56 UTC
(rev 46506)
@@ -128,9 +128,7 @@
b $mB \
bnr $mC
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body HypEditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/PartEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/PartEditFrame.tcl 2011-08-31
19:23:50 UTC (rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/PartEditFrame.tcl 2011-08-31
19:23:56 UTC (rev 46506)
@@ -117,9 +117,7 @@
r_v $mR_v \
r_h $mR_h
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body PartEditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/RhcEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/RhcEditFrame.tcl 2011-08-31 19:23:50 UTC
(rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/RhcEditFrame.tcl 2011-08-31 19:23:56 UTC
(rev 46506)
@@ -126,9 +126,7 @@
r $mR \
c $mC
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body RhcEditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/RpcEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/RpcEditFrame.tcl 2011-08-31 19:23:50 UTC
(rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/RpcEditFrame.tcl 2011-08-31 19:23:56 UTC
(rev 46506)
@@ -123,9 +123,7 @@
B [list $mBx $mBy $mBz] \
r $mR
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body RpcEditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/SuperellEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/SuperellEditFrame.tcl 2011-08-31
19:23:50 UTC (rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/SuperellEditFrame.tcl 2011-08-31
19:23:56 UTC (rev 46506)
@@ -117,9 +117,7 @@
n $mN \
e $mE
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body SuperellEditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/TgcEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/TgcEditFrame.tcl 2011-08-31 19:23:50 UTC
(rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/TgcEditFrame.tcl 2011-08-31 19:23:56 UTC
(rev 46506)
@@ -155,9 +155,7 @@
C [list $mCx $mCy $mCz] \
D [list $mDx $mDy $mDz]
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body TgcEditFrame::createGeometry {obj} {
Modified: brlcad/trunk/src/tclscripts/archer/TorusEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/TorusEditFrame.tcl 2011-08-31
19:23:50 UTC (rev 46505)
+++ brlcad/trunk/src/tclscripts/archer/TorusEditFrame.tcl 2011-08-31
19:23:56 UTC (rev 46506)
@@ -312,9 +312,7 @@
r_a $mR_a \
r_h $mR_h
- if {$itk_option(-geometryChangedCallback) != ""} {
- $itk_option(-geometryChangedCallback)
- }
+ GeometryEditFrame::updateGeometry
}
::itcl::body TorusEditFrame::createGeometry {obj} {
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Special Offer -- Download ArcSight Logger for FREE!
Finally, a world-class log management solution at an even better
price-free! And you'll get a free "Love Thy Logs" t-shirt when you
download Logger. Secure your free ArcSight Logger TODAY!
http://p.sf.net/sfu/arcsisghtdev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
