Revision: 40977
http://brlcad.svn.sourceforge.net/brlcad/?rev=40977&view=rev
Author: bob1961
Date: 2010-10-13 18:34:40 +0000 (Wed, 13 Oct 2010)
Log Message:
-----------
Added the updateData proc for grabbing the specified attribute value from
_GLOBAL and applying it to the current data via data_arrows, data_axes,
data_labels or data_lines.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/DataUtils.tcl
Modified: brlcad/trunk/src/tclscripts/archer/DataUtils.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/DataUtils.tcl 2010-10-13 17:56:43 UTC
(rev 40976)
+++ brlcad/trunk/src/tclscripts/archer/DataUtils.tcl 2010-10-13 18:34:40 UTC
(rev 40977)
@@ -29,19 +29,25 @@
destructor {}
public {
- proc appendGlobalData {_ged _archer _group _attr_name _data_cmd
_data_subcmd _data _pindex_begin _pindex_end}
+ proc appendGlobalData {_ged _archer _group
+ _attr_name _data_cmd _data_subcmd
+ _data _index_begin _index_end}
proc dataPick {_ged _archer _group
_pdata _data_arrows_name _sdata_arrows_name
_data_axes_name _sdata_axes_name
_data_labels_name _sdata_labels_name
_data_lines_name _sdata_lines_name}
+ proc updateData {_ged _archer _group
+ _attr_name _data_cmd _data_subcmd}
proc updateGlobalData {_ged _archer _group _attr_name _data_cmd
_data_subcmd}
}
}
################################### Public Section
###################################
-::itcl::body DataUtils::appendGlobalData {_ged _archer _group _attr_name
_data_cmd _data_subcmd _data _pindex_begin _pindex_end} {
+::itcl::body DataUtils::appendGlobalData {_ged _archer _group
+ _attr_name _data_cmd _data_subcmd
+ _data _index_begin _index_end} {
if {$_group == ""} {
$_archer putString "Please select a group before creating $_attr_name."
return
@@ -68,7 +74,7 @@
$_ged refresh_off
set plist {}
foreach item [lrange $subDataList 1 end] {
- lappend plist [lrange $item $_pindex_begin $_pindex_end]
+ lappend plist [lrange $item $_index_begin $_index_end]
}
catch {$_ged $_data_cmd $_data_subcmd $plist} msg
$_ged refresh_on
@@ -76,10 +82,10 @@
}
::itcl::body DataUtils::dataPick {_ged _archer _group
- _pdata _data_arrows_name _sdata_arrows_name
- _data_axes_name _sdata_axes_name
- _data_labels_name _sdata_labels_name
- _data_lines_name _sdata_lines_name} {
+ _pdata _data_arrows_name _sdata_arrows_name
+ _data_axes_name _sdata_axes_name
+ _data_labels_name _sdata_labels_name
+ _data_lines_name _sdata_lines_name} {
if {$_pdata == ""} {
return
@@ -483,6 +489,24 @@
}
}
+::itcl::body DataUtils::updateData {_ged _archer _group
+ _attr_name _data_cmd _data_subcmd} {
+ if {[catch {$_ged attr get _GLOBAL $_attr_name} dal]} {
+ set dal {}
+ }
+
+ set i [lsearch -index 0 $dal $_group]
+ if {$i != -1} {
+ set da [lindex $dal $i]
+ } else {
+ set da {}
+ }
+
+ $_ged refresh_off
+ $_ged $_data_cmd $_data_subcmd [lrange $da 1 end]
+ $_ged refresh_on
+}
+
::itcl::body DataUtils::updateGlobalData {_ged _archer _group _attr_name
_data_cmd _data_subcmd} {
if {[catch {$_ged attr get _GLOBAL $_attr_name} gdl]} {
set gdl {}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Beautiful is writing same markup. Internet Explorer 9 supports
standards for HTML5, CSS3, SVG 1.1, ECMAScript5, and DOM L2 & L3.
Spend less time writing and rewriting code and more time creating great
experiences on the web. Be a part of the beta today.
http://p.sf.net/sfu/beautyoftheweb
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
