Revision: 42714
http://brlcad.svn.sourceforge.net/brlcad/?rev=42714&view=rev
Author: bob1961
Date: 2011-01-28 20:14:30 +0000 (Fri, 28 Jan 2011)
Log Message:
-----------
Added methods to expose libtclcad's view_callback function.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/lib/Ged.tcl
Modified: brlcad/trunk/src/tclscripts/lib/Ged.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/Ged.tcl 2011-01-28 20:12:59 UTC (rev
42713)
+++ brlcad/trunk/src/tclscripts/lib/Ged.tcl 2011-01-28 20:14:30 UTC (rev
42714)
@@ -364,6 +364,7 @@
method pane_v2m_point {_pane args}
method pane_view {_pane args}
method pane_view2model {_pane args}
+ method pane_view_callback {_pane args}
method pane_viewdir {_pane args}
method pane_vmake {_pane args}
method pane_vnirt {_pane args}
@@ -482,6 +483,8 @@
method view {args}
method view2model {args}
method view_axes {args}
+ method view_callback {args}
+ method view_callback_all {args}
method viewdir {args}
method vmake {args}
method vnirt {args}
@@ -1991,6 +1994,10 @@
eval $mGed view2model $itk_component($_pane) $args
}
+::itcl::body cadwidgets::Ged::pane_view_callback {_pane args} {
+ eval $mGed view_callback $itk_component($_pane) $args
+}
+
::itcl::body cadwidgets::Ged::pane_viewdir {_pane args} {
eval $mGed viewdir $itk_component($_pane) $args
}
@@ -2533,6 +2540,16 @@
return $ret
}
+::itcl::body cadwidgets::Ged::view_callback {args} {
+ eval $mGed view_callback $itk_component($itk_option(-pane)) $args
+}
+
+::itcl::body cadwidgets::Ged::view_callback_all {args} {
+ foreach dm {ur ul ll lr} {
+ eval $mGed view_callback $itk_component($dm) $args
+ }
+}
+
::itcl::body cadwidgets::Ged::viewdir {args} {
eval $mGed viewdir $itk_component($itk_option(-pane)) $args
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Special Offer-- Download ArcSight Logger for FREE (a $49 USD value)!
Finally, a world-class log management solution at an even better price-free!
Download using promo code Free_Logger_4_Dev2Dev. Offer expires
February 28th, so secure your free ArcSight Logger TODAY!
http://p.sf.net/sfu/arcsight-sfd2d
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
