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