Revision: 54061
http://brlcad.svn.sourceforge.net/brlcad/?rev=54061&view=rev
Author: bob1961
Date: 2012-12-13 23:38:02 +0000 (Thu, 13 Dec 2012)
Log Message:
-----------
Updated SketchEditFrame::end_bezier to write back to the database.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl
Modified: brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl 2012-12-13
23:09:10 UTC (rev 54060)
+++ brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl 2012-12-13
23:38:02 UTC (rev 54061)
@@ -1083,6 +1083,7 @@
return
}
+ write_sketch_to_db
create_bezier
}
@@ -1707,6 +1708,8 @@
::itcl::body SketchEditFrame::vert_is_used {_vindex} {
foreach seg $segments {
if {[$seg is_vertex_used $_vindex]} {
+ .archer0 putString "vert is being used by $seg"
+ $seg describe
return 1
}
}
@@ -1873,8 +1876,6 @@
set start [lindex $vlist $start_index]
set end [lindex $vlist $end_index]
- $::ArcherCore::application putString
-
if { $radius < 0.0 } {
$::ArcherCore::application putString "full circle centered at
vertex #$end_index ($end) with vertex #$start_index ($start)"
} else {
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
LogMeIn Rescue: Anywhere, Anytime Remote support for IT. Free Trial
Remotely access PCs and mobile devices and provide instant support
Improve your efficiency, and focus on delivering more value-add services
Discover what IT Professionals Know. Rescue delivers
http://p.sf.net/sfu/logmein_12329d2d
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
