home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -readerstuff- / barry_beukhof / mpagui_mui / loadlist.rexx < prev    next >
OS/2 REXX Batch file  |  1998-04-29  |  680b  |  29 lines
  1. /* ListLoad.rexx */
  2.  
  3. options results
  4. address MPAgui
  5.  
  6. MUIA_List_Active    = 0x8042391c
  7. MUIA_List_Entries    = 0x80421654
  8. MUIV_List_Active_Bottom    = -3
  9. MUIV_List_Active_Top    = -2
  10. MUIV_List_Remove_active = -1 
  11.  
  12. aslrequest TITLE """Select A playlist"""
  13. if open('PlayList', result, 'r') = 1 then do
  14.  
  15. list ID LIST1 ATTRS MUIA_List_Entries
  16. do i = 0 to result - 1
  17. list ID LIST1 REMOVE POS MUIV_List_Remove_Active
  18. end
  19.  
  20. list ID LIST1 ATTRS MUIA_List_Entries
  21. entries = result
  22. do while ~eof('PlayList')
  23. list ID LIST1 INSERT NODUP POS MUIV_List_Active_Bottom STRING readln('PlayList')
  24. end
  25. call close('PlayList')
  26. if entries = 0 then list ID LIST1 ATTRS MUIA_List_Active MUIV_List_Active_Top
  27. end
  28. return
  29.