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