diff options
Diffstat (limited to 'gdb/gdbtk/library/prefs.tcl')
| -rw-r--r-- | gdb/gdbtk/library/prefs.tcl | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/gdb/gdbtk/library/prefs.tcl b/gdb/gdbtk/library/prefs.tcl index 7e70f560acd..528aadc8c73 100644 --- a/gdb/gdbtk/library/prefs.tcl +++ b/gdb/gdbtk/library/prefs.tcl @@ -579,12 +579,20 @@ proc load_gnome_file {fd} { } elseif {[regexp "\[ \t\n\]*\(.+\) = \(.+\)" $line a name val] == 0} { continue } - set res [scan $val "\{ %f, %f, %f \}" r g b] - if {$res != 3} {continue} - set r [expr int($r*255)] - set g [expr int($g*255)] - set b [expr int($b*255)] - set val [format "\#%02x%02x%02x" $r $g $b] + + if {[regexp "\"#......\"" $val a] == 1} { + set val [lindex $a 0] + } else { + set res [scan $val "\{ %f, %f, %f \}" r g b] + if {$res != 3} { + continue + } + set r [expr int($r*255)] + set g [expr int($g*255)] + set b [expr int($b*255)] + set val [format "\#%02x%02x%02x" $r $g $b] + } + debug "name=\"$name\" val=\"$val\"" # This is a bit of a hack and probably only |