Evaluated proc fgbg2str {fg bg} { if {[string equal - $bg] == 1} {} }