Revision: 41191
          http://brlcad.svn.sourceforge.net/brlcad/?rev=41191&view=rev
Author:   bob1961
Date:     2010-10-29 20:37:28 +0000 (Fri, 29 Oct 2010)

Log Message:
-----------
Mods to DataUtils::dataPick to accomodate _group's containing whitespace.

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-29 19:35:23 UTC 
(rev 41190)
+++ brlcad/trunk/src/tclscripts/archer/DataUtils.tcl    2010-10-29 20:37:28 UTC 
(rev 41191)
@@ -137,7 +137,7 @@
                eval lappend sda $points
                set sdal [lreplace $sdal $i $i $sda]
            } else {
-               lappend sdal [eval list $_group $points]
+               lappend sdal [eval list [list $_group] $points]
                set sda [lindex $sdal end]
            }
 
@@ -279,7 +279,7 @@
                eval lappend sdl $points
                set sdll [lreplace $sdll $i $i $sdl]
            } else {
-               lappend sdll [eval list $_group $points]
+               lappend sdll [eval list [list $_group] $points]
                set sdl [lindex $sdll end]
            }
 
@@ -329,7 +329,7 @@
                eval lappend da $points
                set dal [lreplace $dal $i $i $da]
            } else {
-               lappend dal [eval list $_group $points]
+               lappend dal [eval list [list $_group] $points]
                set da [lindex $dal end]
            }
 
@@ -471,7 +471,7 @@
                eval lappend dl $points
                set dll [lreplace $dll $i $i $dl]
            } else {
-               lappend dll [eval list $_group $points]
+               lappend dll [eval list [list $_group] $points]
                set dl [lindex $dll end]
            }
 


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

------------------------------------------------------------------------------
Nokia and AT&T present the 2010 Calling All Innovators-North America contest
Create new apps & games for the Nokia N8 for consumers in  U.S. and Canada
$10 million total in prizes - $4M cash, 500 devices, nearly $6M in marketing
Develop with Nokia Qt SDK, Web Runtime, or Java and Publish to Ovi Store 
http://p.sf.net/sfu/nokia-dev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits

Reply via email to