This commit is contained in:
radical_honesty on #flashsupport 2023-01-13 15:55:40 -08:00 committed by dupa dup
parent 28db36d520
commit 04d6625683

View File

@ -6,7 +6,7 @@
set u 0 set u 0
set cf -1 set cf -1
set cb -1 set cb -1
set r "" set r [lindex $c 0]
foreach f [lindex $c 1] { foreach f [lindex $c 1] {
lappend debug "working on $f"; lappend debug "working on $f";
if {[lindex $f 0] > $n} { if {[lindex $f 0] > $n} {
@ -28,7 +28,7 @@
} }
if {$b eq 1} {append r "\002"; lappend debug "starting bold"} if {$b eq 1} {append r "\002"; lappend debug "starting bold"}
if {$u eq 1} {append r "\037"; lappend debug "starting underline"} if {$u eq 1} {append r "\037"; lappend debug "starting underline"}
if {$cf > -1} {append r [format "\002%s" $cf]; lappend debug "starting color"} if {$cf > -1} {append r [format "%s" $cf]; lappend debug "starting color"}
if {$cb > -1} {append r [format ",%s" $cb]; lappend debug "adding background color"} if {$cb > -1} {append r [format ",%s" $cb]; lappend debug "adding background color"}
lappend debug "final result: $r" lappend debug "final result: $r"
return [join $debug "\n"] return [join $debug "\n"]