Revision: 44878
http://brlcad.svn.sourceforge.net/brlcad/?rev=44878&view=rev
Author: bhinesley
Date: 2011-06-10 02:49:57 +0000 (Fri, 10 Jun 2011)
Log Message:
-----------
Applied patch 3309107, submitted by myself. It adds a closedb command to
Archer, which simply loads an empty database in memory, like when Archer is
first started.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2011-06-10 02:43:47 UTC
(rev 44877)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2011-06-10 02:49:57 UTC
(rev 44878)
@@ -151,6 +151,7 @@
method cd {args}
method clear {args}
method clone {args}
+ method closedb {args}
method color {args}
method comb {args}
method comb_color {args}
@@ -439,7 +440,7 @@
3ptarb adjust arced attr bb bev
blast bo \
bot bot_condense bot_decimate
bot_face_fuse \
bot_face_sort bot_flip bot_merge
bot_smooth bot_split bot_sync bot_vertex_fuse \
- c cd clear clone color comb
comb_color combmem copy copyeval copymat \
+ c cd clear clone closedb color comb
comb_color combmem copy copyeval copymat \
cp cpi dbconcat dbExpand decompose
delete draw E edcodes edcolor edcomb \
edmater erase erase_all ev exit
facetize fracture \
g group hide human i
importFg4Section \
@@ -4853,6 +4854,14 @@
eval gedWrapper clone 0 0 1 1 $args
}
+::itcl::body ArcherCore::closedb {args} {
+ Load ""
+
+ if {[llength $args] != 0} {
+ return "Usage: closedb\nWarning - ignored unsupported argument(s)
\"$args\""
+ }
+}
+
::itcl::body ArcherCore::color {args} {
eval gedWrapper color 0 0 1 0 $args
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
EditLive Enterprise is the world's most technically advanced content
authoring tool. Experience the power of Track Changes, Inline Image
Editing and ensure content is compliant with Accessibility Checking.
http://p.sf.net/sfu/ephox-dev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
