Files
TempleOS-Rijn/Apps/AfterEgypt/Comics.CPP
T
2018-09-08 21:46:09 +02:00

27 lines
535 B
C++

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