home *** CD-ROM | disk | FTP | other *** search
/ Curso de Informatica 1 / elPeriodico1.iso / menu.dir / Internal_51.ls < prev    next >
Encoding:
Text File  |  1997-08-14  |  309 b   |  12 lines
  1. on mouseUp
  2.   global shareware, valorTexte, opcio, submenu3
  3.   puppetSound("harp")
  4.   set shareware to 1
  5.   marcaDescripcio()
  6.   set the text of member "texte" to the text of member "texte shareware1"
  7.   desactivaBotoExecutar()
  8.   set valorTexte to the text of field "texte"
  9.   set opcio to 1
  10.   set submenu3 to 1
  11. end
  12.