added help lookup for 'lableface'

behollis · Aug 12, 2015 · 2f2d1ce · 2f2d1ce
1 parent 2a9d3a7
commit 2f2d1ce
Show file tree

Hide file tree

Showing 3 changed files with 399 additions and 0 deletions.
diff --git a/src/mged/overlay.c b/src/mged/overlay.c
@@ -207,6 +207,17 @@ f_labelface(ClientData UNUSED(clientData), Tcl_Interp *interp, int argc, const c
 
     BU_LIST_INIT( &f_list );
 
+    CHECK_DBI_NULL;
+
+    if (argc < 2) {
+        struct bu_vls vls = BU_VLS_INIT_ZERO;
+
+        bu_vls_printf(&vls, "help labelface");
+        Tcl_Eval(interp, bu_vls_addr(&vls));
+        bu_vls_free(&vls);
+        return TCL_ERROR;
+    }
+
     /* attempt to resolve and verify */
     name = argv[1];
 

diff --git a/src/tclscripts/mged/help.tcl b/src/tclscripts/mged/help.tcl
@@ -200,6 +200,7 @@ set mged_help_data(knob)	{{[-e -i -m -v] [-o v/m/e/k] [zap|zero|(x|y|z|X|Y|Z|S|a
 set mged_help_data(l)		$helplib_data(wdb_list)
 set mged_help_data(l_muves)	{{MUVES_component1 MUVES_component2 ...} {DEPRECATED: list the MGED components that make up the specified MUVES components/systems}}
 set mged_help_data(labelvert)	{{object[s]}	{label vertices of wireframes of objects}}
+set mged_help_data(labelface)	{{object[s]}	{label faces of wireframes of objects}}
 set mged_help_data(listeval)	$helplib_data(wdb_listeval)
 set mged_help_data(loadtk)	{{[DISPLAY]}	{initializes the Tk window library}}
 set mged_help_data(loadview)	{{file}	{load view from raytrace script file}}