[brlcad-commits] SF.net SVN: brlcad:[51769] brlcad/trunk/src/tclscripts/lib

[<anr...@us...>]

Revision: 51769
          http://brlcad.svn.sourceforge.net/brlcad/?rev=51769&view=rev
Author:   anrgmrty
Date:     2012-08-06 14:57:21 +0000 (Mon, 06 Aug 2012)
Log Message:
-----------
scripts changed for autocomplete

Modified Paths:
--------------
    brlcad/trunk/src/tclscripts/lib/Db.tcl
    brlcad/trunk/src/tclscripts/lib/Ged.tcl
    brlcad/trunk/src/tclscripts/lib/Mged.tcl
    brlcad/trunk/src/tclscripts/lib/tclIndex

Modified: brlcad/trunk/src/tclscripts/lib/Db.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/Db.tcl	2012-08-06 14:55:21 UTC (rev 51768)
+++ brlcad/trunk/src/tclscripts/lib/Db.tcl	2012-08-06 14:57:21 UTC (rev 51769)
@@ -55,6 +55,7 @@
 	method edmater {args}
 	method expand {args}
 	method facetize {args}
+	method voxelize {args}
 	method find {args}
 	method form {args}
 	method g {args}
@@ -294,6 +295,11 @@
     eval $db facetize $args
 }
 
+
+::itcl::body Db::voxelize {args} {
+    eval $db voxelize $args
+}
+
 ::itcl::body Db::kill {args} {
     eval $db kill $args
 }

Modified: brlcad/trunk/src/tclscripts/lib/Ged.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/Ged.tcl	2012-08-06 14:55:21 UTC (rev 51768)
+++ brlcad/trunk/src/tclscripts/lib/Ged.tcl	2012-08-06 14:57:21 UTC (rev 51769)
@@ -188,6 +188,7 @@
 	method exists {args}
 	method faceplate {args}
 	method facetize {args}
+	method voxelize {args}
 	method fb2pix {args}
 	method find_pipept {args}
 	method fontsize {args}
@@ -1400,6 +1401,11 @@
     eval $mGed facetize $args
 }
 
+
+::itcl::body cadwidgets::Ged::voxelize {args} {
+    eval $mGed voxelize $args
+}
+
 ::itcl::body cadwidgets::Ged::fb2pix {args} {
     eval $mGed fb2pix $itk_component($itk_option(-pane)) $args
 }
@@ -4854,6 +4860,7 @@
     $help add eye_pos		{{mx my mz} {set eye position to given model coordinates}}
     $help add exists		{{object} {check for the existence of object}}
     $help add facetize		{{[-m] [-n] [-t] [-T] new_obj old_obj [old_obj2 old_obj3 ...]} {create a new bot object by facetizing the specified objects}}
+    $help add voxelize		{{gg} {dfdf}}
     $help add form		{{objType} {returns form of objType}}
     $help add fracture		{{} {}}
     $help add g			{{groupname <objects>} {group objects}}

Modified: brlcad/trunk/src/tclscripts/lib/Mged.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/Mged.tcl	2012-08-06 14:55:21 UTC (rev 51768)
+++ brlcad/trunk/src/tclscripts/lib/Mged.tcl	2012-08-06 14:57:21 UTC (rev 51769)
@@ -75,6 +75,7 @@
 	method ev {args}
 	method expand {args}
 	method facetize {args}
+	method voxelize {args}
 	method find {args}
 	method form {args}
 	method g {args}
@@ -313,6 +314,11 @@
     eval $db facetize $args
 }
 
+
+::itcl::body Mged::voxelize {args} {
+    eval $db voxelize $args
+}
+
 ::itcl::body Mged::kill {args} {
     eval $db kill $args
 }

Modified: brlcad/trunk/src/tclscripts/lib/tclIndex
===================================================================
--- brlcad/trunk/src/tclscripts/lib/tclIndex	2012-08-06 14:55:21 UTC (rev 51768)
+++ brlcad/trunk/src/tclscripts/lib/tclIndex	2012-08-06 14:57:21 UTC (rev 51769)
@@ -109,6 +109,7 @@
 set auto_index(::Db::edmater) [list source [file join $dir Db.tcl]]
 set auto_index(::Db::expand) [list source [file join $dir Db.tcl]]
 set auto_index(::Db::facetize) [list source [file join $dir Db.tcl]]
+set auto_index(::Db::voxelize) [list source [file join $dir Db.tcl]]
 set auto_index(::Db::find) [list source [file join $dir Db.tcl]]
 set auto_index(::Db::form) [list source [file join $dir Db.tcl]]
 set auto_index(::Db::g) [list source [file join $dir Db.tcl]]

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