home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 5 / cd.iso / pc / Media / DEMOS.Dxr / 00031_themes.ls < prev    next >
Encoding:
Text File  |  1999-10-06  |  325 b   |  15 lines
  1. on mouseUp
  2.   global categO, IndicT
  3.   set IndicT to the mouseLine
  4.   set the scrollTop of member "prod" to 1
  5.   put EMPTY into field "version"
  6.   put EMPTY into field "auteur"
  7.   put EMPTY into field "contact"
  8.   put EMPTY into field "des"
  9.   put EMPTY into field "titre"
  10.   Prod()
  11.   if categO = 2 then
  12.     go("ProdB2")
  13.   end if
  14. end
  15.