home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / propage4.0 / arexx / fontlist.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-07-19  |  559 b   |  28 lines
  1. /*
  2.     Return the fontlist with the current font at the beginning of list
  3. */
  4.  
  5. parse arg cfont
  6.  
  7. fontlist = getclip(ppuser_fontlist)
  8.  
  9. if fontlist =  '' then
  10. do
  11.    fontlist = ppm_GetTypeFaceList()
  12.    fontlist = substr(fontlist, pos('0a'x, fontlist) + 1)
  13.    call SetClip(ppuser_fontlist, fontlist)
  14. end
  15.  
  16. if cfont ~= '' then 
  17. cfont2 = '0a'x || cfont
  18. do
  19.    stringpos = pos(cfont2, fontlist)+1
  20.    if stringpos ~= 0 then
  21.    do
  22.         fontlist = delstr(fontlist, stringpos, length(cfont2))
  23.         fontlist = cfont || '0a'x || fontlist
  24.     end
  25. end
  26.  
  27. return(fontlist)
  28.