alias List_Fonts {
did -r fontlister 1
.filter -k $Shortfn(data\fonts.dat) load.font
did -c setup 1 %font.id
unset %font.id
}
alias load.font {
if ($1 != [fonts]) {
var %x = $gettok($1-,2,61)
did -a setup 1 %x
if (%x == $readini(data.ini,font,fontname)) { set %font.id $did(setup,36).lines }
}
}
not sure who wrote it, i just found it but it gives me:
* /filter: invalid window (line 42, fontlister)
the fonts are in my data\fonts.dat like:
[FONTS]
Agency\bFB\bNegreta=Agency FB Negreta
Agency\bFB=Agency FB