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