27 lines
522 B
HolyC
27 lines
522 B
HolyC
U0 ViewComics()
|
|
{
|
|
I64 i=0;
|
|
U8 *st;
|
|
CDirEntry *tmpde=FilesFind("Comics/*.DD*"),*tmpde1=tmpde;
|
|
CDoc *doc=DocNew;
|
|
DocPrint(doc,"$$LTBLUE$$");
|
|
while (tmpde) {
|
|
st=StrNew(tmpde->name);
|
|
FileExtRem(st);
|
|
tmpde->user_data=DocPrint(doc,"$$MU-UL,\"%-10ts\",LE=%d$$ ",st,tmpde);
|
|
Free(st);
|
|
tmpde=tmpde->next;
|
|
if ((i++&3)==3)
|
|
DocPrint(doc,"\n");
|
|
}
|
|
while (TRUE) {
|
|
if ((tmpde=PopUpMenu(doc))>0)
|
|
Ed(tmpde->full_name);
|
|
else
|
|
break;
|
|
}
|
|
DocDel(doc);
|
|
DirTreeDel(tmpde1);
|
|
}
|
|
|