linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merges from ics1-wombat

Browse Source 
r2834 | ffr | 2009-12-09 17:07:45 +1100 (Wed, 09 Dec 2009) | 2 lines
This commit is contained in:
Ferdi Franceschini
2009-12-09 17:07:45 +11:00
committed by Douglas Clowes
parent 64ab146a44
commit c73c4c85c8
15 changed files with 3779 additions and 209 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
site_ansto/instrument/gumxml.tcl
View File

@@ -33,8 +33,12 @@ proc property_elements {path indent} {
foreach {key value} [string map {= " "} [hlistprop $path tcl]] {
if {[string compare -nocase $key "control"] == 0} {continue}
lappend proplist "$prefix<property id=\"$key\">\n"
foreach v [split $value ,] {
lappend proplist "$prefix$prefix<value>$v</value>\n"
if {[string compare -nocase $key "help"] == 0} {
lappend proplist "$prefix$prefix<value>$value</value>\n"
} else {
foreach v [split $value ,] {
lappend proplist "$prefix$prefix<value>$v</value>\n"
}
}
lappend proplist "$prefix</property>\n"
}