home *** CD-ROM | disk | FTP | other *** search
/ MASPC 1 / MASPC_1.iso / CursoWordI / MENU.DXR / 00014.ls < prev    next >
Encoding:
Text File  |  1998-07-31  |  301 b   |  15 lines
  1. on mouseUp
  2.   global xseccion, xuactivo, xlpasadas, xnumpasadas
  3.   set a to EMPTY
  4.   if xnumpasadas > 0 then
  5.     sort(xlpasadas)
  6.     repeat with i in xlpasadas
  7.       set a to a & i & ","
  8.     end repeat
  9.     set a to chars(a, 1, length(a) - 1)
  10.     User.Passed.Set(xseccion, a)
  11.   else
  12.   end if
  13.   quit()
  14. end
  15.