[brlcad-commits] SF.net SVN: brlcad:[36542] brlcad/trunk/src/tclscripts/archer/ArcherCore. tcl
Open Source Solid Modeling CAD
Brought to you by:
brlcad
From: <bo...@us...> - 2009-11-18 21:01:58
|
Revision: 36542 http://brlcad.svn.sourceforge.net/brlcad/?rev=36542&view=rev Author: bob1961 Date: 2009-11-18 21:01:50 +0000 (Wed, 18 Nov 2009) Log Message: ----------- Added a public putString method. Modified Paths: -------------- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl =================================================================== --- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2009-11-18 20:31:27 UTC (rev 36541) +++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2009-11-18 21:01:50 UTC (rev 36542) @@ -126,6 +126,7 @@ method setSave {} method getLastSelectedDir {} method refreshDisplay {} + method putString {_str} # Commands exposed to the user via the command line. # More to be added later... @@ -3280,6 +3281,10 @@ } } +::itcl::body ArcherCore::putString {_str} { + $itk_component(cmd) putstring $_str +} + ::itcl::body ArcherCore::mouseRay {_dm _x _y} { set target [$_dm screen2model $_x $_y] set view [$_dm screen2view $_x $_y] This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |