home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 10: University / CDAT10.iso / UTILIDADES.DXR / 00025_ScMenuAbajo.ls < prev    next >
Encoding:
Text File  |  1999-10-20  |  527 b   |  26 lines
  1. property destino, tipo
  2.  
  3. on getPropertyDescriptionList
  4.   lista = [:]
  5.   addProp(lista, #destino, [#format: #string, #default: EMPTY, #comment: "El destino"])
  6.   addProp(lista, #tipo, [#format: #symbol, #range: [#peli, #mark], #default: EMPTY, #comment: "Peli o marker"])
  7.   return lista
  8. end
  9.  
  10. on mouseUp me
  11.   cursor(-1)
  12.   if tipo = #mark then
  13.     go(destino, "menu2")
  14.   else
  15.     go(1, destino & ".dir")
  16.   end if
  17. end
  18.  
  19. on mouseEnter me
  20.   member("menuabajo").text = destino
  21. end
  22.  
  23. on mouseLeave me
  24.   member("menuabajo").text = EMPTY
  25. end
  26.