home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 14 / cd.iso / pc / MEDIA / NETC.DXR / 00032_prod.ls < prev    next >
Encoding:
Text File  |  2000-01-31  |  549 b   |  21 lines
  1. on mouseUp
  2.   global categO, fileName, dito, Indic, Drive, DProd, capt, exe, inst, type, IndicT
  3.   put EMPTY into field "titre"
  4.   put line IndicT of field "prod" into field "titre"
  5.   if type = 1 then
  6.     fileName = the pathName & "prodb" & categO & ".fds"
  7.     dito = "prodb"
  8.     reFile()
  9.     Drive = char 1 to 3 of the pathName
  10.     Indic = the mouseLine
  11.   end if
  12.   if type = 2 then
  13.     fileName = the pathName & "Mprodb" & categO & ".fds"
  14.     dito = "prodb"
  15.     reFile()
  16.     Drive = the pathName
  17.     Indic = the mouseLine
  18.   end if
  19.   repartition()
  20. end
  21.