home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 14 / cd.iso / pc / MEDIA / DEMOS.DXR / 00031_themes.ls < prev    next >
Encoding:
Text File  |  1999-12-28  |  309 b   |  15 lines
  1. on mouseUp
  2.   global categO, IndicT
  3.   IndicT = the mouseLine
  4.   member("prod").scrollTop = 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.