home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaMiscModsCD3.iso / _PROGRAMME / PLAYER / GUI / EasyPlayer.lha / EYP / Source / easyplaylist.e < prev    next >
Encoding:
Text File  |  1999-09-25  |  1.5 KB  |  80 lines
  1. /*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  2. -- EasyPlayer, EYP, Ralph Debusmann 1997-9
  3. */
  4.  
  5. OPT MODULE
  6. OPT EXPORT
  7.  
  8. MODULE '*modules/listv'
  9.  
  10. OBJECT playlist
  11.     dirlist:PTR TO listv
  12.     filelist:PTR TO listv
  13. ENDOBJECT
  14.  
  15. PROC playlist() OF playlist
  16.     NEW self.dirlist.stringnode()
  17.     NEW self.filelist.stringnode()
  18. ENDPROC
  19.  
  20. PROC end() OF playlist
  21.     END self.filelist
  22.     END self.dirlist
  23. ENDPROC
  24.  
  25. PROC prev() OF playlist
  26.     self.dirlist.prev()
  27. ENDPROC self.filelist.prev()
  28.  
  29. PROC succ() OF playlist
  30.     self.dirlist.succ()
  31. ENDPROC self.filelist.succ()
  32.  
  33. PROC addr() OF playlist IS self.filelist.addr()
  34.  
  35. PROC del() OF playlist
  36.     self.dirlist.del()
  37. ENDPROC self.filelist.del()
  38.  
  39. PROC item(n) OF playlist
  40.     self.dirlist.item(n)
  41. ENDPROC self.filelist.item(n)
  42.  
  43. PROC clear() OF playlist
  44.     self.dirlist.clear()
  45.     self.filelist.clear()
  46. ENDPROC
  47.  
  48. PROC add(dir:PTR TO CHAR,file:PTR TO CHAR) OF playlist
  49.     self.dirlist.add(dir)
  50.     self.filelist.add(file)
  51. ENDPROC
  52.  
  53. PROC pos() OF playlist IS self.filelist.pos()
  54.  
  55. PROC numitems() OF playlist IS self.filelist.numitems()
  56.  
  57. PROC first() OF playlist
  58.     self.dirlist.first()
  59. ENDPROC self.filelist.first()
  60.  
  61. PROC last() OF playlist
  62.     self.dirlist.last()
  63. ENDPROC self.filelist.last()
  64.  
  65. PROC moveitemfirst() OF playlist
  66.     self.dirlist.moveitemfirst()
  67. ENDPROC self.filelist.moveitemfirst()
  68.  
  69. PROC moveitemlast() OF playlist
  70.     self.dirlist.moveitemlast()
  71. ENDPROC self.filelist.moveitemlast()
  72.  
  73. PROC moveitemup() OF playlist
  74.     self.dirlist.moveitemup()
  75. ENDPROC self.filelist.moveitemup()
  76.  
  77. PROC moveitemdown() OF playlist
  78.     self.dirlist.moveitemdown()
  79. ENDPROC self.filelist.moveitemdown()
  80.