dialog fontlist { ... list 25 1 1 1 1 } alias grabfonts { $findfile(c:\,*.ttf,0,did -a fontlist 25 $1-) }