From b202d6700202a7dcacd9d2254af943b8269c0adf Mon Sep 17 00:00:00 2001 From: "ahrenholz@gmail.com" Date: Thu, 29 Aug 2013 16:03:53 +0000 Subject: [PATCH] (Boeing r1753) properly support session options having spaces in value --- trunk/gui/cfgparse.tcl | 2 +- trunk/gui/plugins.tcl | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/trunk/gui/cfgparse.tcl b/trunk/gui/cfgparse.tcl index 8ccfa53b..2ef5f7ed 100755 --- a/trunk/gui/cfgparse.tcl +++ b/trunk/gui/cfgparse.tcl @@ -464,7 +464,7 @@ proc loadCfg { cfg } { # uses 'key=value' instead of 'key value' if { $object == "session" } { # 'key=value', values with space needs quoting 'key={space val}' - setSessionOptions "" $line + setSessionOptions "" [split $line "\n"] set class "" set object "" continue diff --git a/trunk/gui/plugins.tcl b/trunk/gui/plugins.tcl index 98c6a6d3..1c4b53c8 100644 --- a/trunk/gui/plugins.tcl +++ b/trunk/gui/plugins.tcl @@ -1471,12 +1471,12 @@ proc resetSessionOptions {} { proc setSessionOptions { types vals } { global g_session_options foreach kv $vals { - set kvs [split $kv =] + set kvs [splitKeyValue $kv] if {[llength $kvs] < 2} { puts "error with session option: $kv" continue } - set key [lindex $kvs 0] + set key [string trim [lindex $kvs 0]] set value [lindex $kvs 1] array set g_session_options [list $key $value] }