Code:
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

Last edited by pouncer; 05/09/06 12:47 PM.