[brlcad-commits] SF.net SVN: brlcad:[49568] brlcad/trunk/src/tclscripts/archer/ArcherCore. tcl

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

Revision: 49568
          http://brlcad.svn.sourceforge.net/brlcad/?rev=49568&view=rev
Author:   bob1961
Date:     2012-02-28 16:07:12 +0000 (Tue, 28 Feb 2012)
Log Message:
-----------
Added rtcntrl method to allow control of the ArcherCore's raytrace control panel from other widgets.

Modified Paths:
--------------
    brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl

Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl	2012-02-28 15:06:56 UTC (rev 49567)
+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl	2012-02-28 16:07:12 UTC (rev 49568)
@@ -136,6 +136,7 @@
 	method getLastSelectedDir  {}
 	method refreshDisplay      {}
 	method putString           {_str}
+	method rtcntrl             {args}
 	method setStatusString     {_str}
 
 	# Commands exposed to the user via the command line.
@@ -4541,6 +4542,12 @@
     $itk_component(cmd) putstring $_str
 }
 
+
+::itcl::body ArcherCore::rtcntrl {args} {
+    eval $itk_component(rtcntrl) $args
+}
+
+
 ::itcl::body ArcherCore::setStatusString {_str} {
     set mStatusStr $_str
 }

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