home *** CD-ROM | disk | FTP | other *** search
/ Curso de Informatica 10 / elPeriodico10.iso / menu.dir / Internal_88.ls < prev    next >
Encoding:
Text File  |  1997-12-15  |  417 b   |  23 lines
  1. on desactivaBotoExecutar
  2.   global executar
  3.   set executar to 0
  4.   controlBotoExecutar()
  5. end
  6.  
  7. on activaBotoExecutar
  8.   global executar
  9.   set executar to 1
  10.   controlBotoExecutar()
  11. end
  12.  
  13. on controlBotoExecutar
  14.   global executar
  15.   if executar = 1 then
  16.     set the visible of sprite 23 to 1
  17.     set the visible of sprite 24 to 1
  18.   else
  19.     set the visible of sprite 23 to 0
  20.     set the visible of sprite 24 to 0
  21.   end if
  22. end
  23.