home *** CD-ROM | disk | FTP | other *** search
/ Curso de Informatica 6 / elPeriodico6.iso / menu.dir / Internal_22.ls < prev    next >
Encoding:
Text File  |  1997-10-18  |  312 b   |  14 lines
  1. on mouseUp
  2.   global opcio, valorTexte, opcioMenu, Lsubmenus, shareware
  3.   puppetSound("harp")
  4.   marcaDescripcio()
  5.   ompleTexteShareware()
  6.   activaBotoExecutar()
  7.   set opcio to 1
  8.   set valorTexte to the text of field "texte"
  9.   set opcioMenu to 4
  10.   setAt(Lsubmenus, 3, 1)
  11.   set shareware to 1
  12.   go("shareware")
  13. end
  14.