[brlcad-commits] SF.net SVN: brlcad:[36612] brlcad/trunk/src/tclscripts/lib/Ged.tcl

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

Revision: 36612
          http://brlcad.svn.sourceforge.net/brlcad/?rev=36612&view=rev
Author:   bob1961
Date:     2009-11-24 17:17:41 +0000 (Tue, 24 Nov 2009)

Log Message:
-----------
Added data_axes and lastMouseRayPos methods.

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

Modified: brlcad/trunk/src/tclscripts/lib/Ged.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/Ged.tcl	2009-11-24 17:10:16 UTC (rev 36611)
+++ brlcad/trunk/src/tclscripts/lib/Ged.tcl	2009-11-24 17:17:41 UTC (rev 36612)
@@ -147,6 +147,7 @@
 	method copymat {args}
 	method cp {args}
 	method cpi {args}
+	method data_axes {args}
 	method dbconcat {args}
 	method dbfind {args}
 	method dbip {args}
@@ -201,6 +202,7 @@
 	method killrefs {args}
 	method killtree {args}
 	method l {args}
+	method lastMouseRayPos {}
 	method light {args}
 	method light_all {args}
 	method list_views {args}
@@ -520,6 +522,7 @@
 	variable mMeasuringStickColorVDraw ffff00
 	variable mMouseRayCallbacks ""
 	variable mRefreshOn 1
+	variable mLastMouseRayPos ""
 
 	method multi_pane {args}
 	method new_view {args}
@@ -958,6 +961,13 @@
     eval $mGed cpi $args
 }
 
+::itcl::body cadwidgets::Ged::data_axes {args} {
+    eval $mGed data_axes $itk_component(ur) $args
+    eval $mGed data_axes $itk_component(ul) $args
+    eval $mGed data_axes $itk_component(ll) $args
+    eval $mGed data_axes $itk_component(lr) $args
+}
+
 ::itcl::body cadwidgets::Ged::dbconcat {args} {
     eval $mGed dbconcat $args
 }
@@ -1085,6 +1095,10 @@
     eval $mGed get_eyemodel $itk_component($itk_option(-pane)) $args
 }
 
+::itcl::body cadwidgets::Ged::lastMouseRayPos {} {
+    return $mLastMouseRayPos
+}
+
 ::itcl::body cadwidgets::Ged::get_type {args} {
     eval $mGed get_type $args
 }
@@ -2579,6 +2593,8 @@
 }
 
 ::itcl::body cadwidgets::Ged::pane_mouse_ray {_pane _x _y {_pflag 0}} {
+    set mLastMouseRayPos "$_x $_y"
+
     set target [$mGed screen2model $itk_component($_pane) $_x $_y]
     set view [$mGed screen2view $itk_component($_pane) $_x $_y]
 


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