[Brlcad-commits] CVS: brlcad/src/tclscripts/lib Drawable.tcl,14.8,14.9 Mged.tcl,14.8,14.9

[Bob P. <bo...@us...>]

Update of /cvsroot/brlcad/brlcad/src/tclscripts/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18780

Modified Files:
	Drawable.tcl Mged.tcl 
Log Message:
Add set_outputHandler method

Index: Drawable.tcl
===================================================================
RCS file: /cvsroot/brlcad/brlcad/src/tclscripts/lib/Drawable.tcl,v
retrieving revision 14.8
retrieving revision 14.9
diff -w -u -r14.8 -r14.9
--- Drawable.tcl	24 Jun 2005 23:34:13 -0000	14.8
+++ Drawable.tcl	15 Aug 2005 19:35:26 -0000	14.9
@@ -65,6 +65,7 @@
 	method rtarea {args}
 	method rtedge {args}
 	method rtweight {args}
+	method set_outputHandler {args}
 	method set_transparency {args}
 	method shaded_mode {args}
 	method vdraw {args}
@@ -84,8 +85,11 @@
 }
 
 ::itcl::body Drawable::constructor {db} {
+    global tcl_platform
+
     set dg [subst $this]_dg
     dg_open $dg $db
+
     Drawable::help_init
 }
 
@@ -198,6 +202,10 @@
     eval $dg rweight $args
 }
 
+::itcl::body Drawable::set_outputHandler {args} {
+    eval $dg set_outputHandler $args
+}
+
 ::itcl::body Drawable::set_transparency {args} {
     eval $dg set_transparency $args
 }

Index: Mged.tcl
===================================================================
RCS file: /cvsroot/brlcad/brlcad/src/tclscripts/lib/Mged.tcl,v
retrieving revision 14.8
retrieving revision 14.9
diff -w -u -r14.8 -r14.9
--- Mged.tcl	24 Mar 2005 18:33:03 -0000	14.8
+++ Mged.tcl	15 Aug 2005 19:35:26 -0000	14.9
@@ -117,6 +117,7 @@
 	method rmap {args}
 	method rotate_arb_face {args}
 	method rt_gettrees {args}
+	method set_outputHandler {args}
 	method set_transparency {args}
 	method shaded_mode {args}
 	method shells {args}
@@ -228,6 +229,10 @@
     eval $db rt_gettrees $args
 }
 
+::itcl::body Mged::set_outputHandler {args} {
+    eval $db set_outputHandler $args
+}
+
 ::itcl::body Mged::set_transparency {args} {
     eval $db set_transparency $args
 }