|
Solo tienes que poner el comando
gotonetpage "mailto:bedelludrica@wanadoo.es"
Aqui tienes el comportamiento completo:
property p_direccion, p_rutina
on getBehaviorTooltip me
return \
"usa este comportamiento para mandar un e_mail mediate"\
" el programa de correo que tenga el usuario instalado "
end getBehaviorTooltip
on getPropertyDescriptionList
set lista= [:]
addProp lista, #p_direccion, [#comment: "escribe la direccion de correo",#format:#String,\
#default: "bedelludrica@wanadoo.es"]
addProp lista, #p_rutina, [#comment: "elige la rutina" ,#format:#String\
,#range:["On MouseUp","On MouseDown","On MouseEnter","On MouseLeave"]\
,#default:"On MouseUp"]
return lista
]
end getPropertyDescriptionList
on MouseUp me
if p_rutina = "On MouseUp" then
gotoNetPage "mailto:"&p_direccion
end if
end MouseUp
on MouseDown me
if p_rutina = "On MouseDown" then
gotoNetPage "mailto:"&p_direccion
end if
end MouseDown
on MouseEnter me
if p_rutina = "On MouseEnter" then
gotoNetPage "mailto:"&p_direccion
end if
end MouseEnter
on MouseLeave me
if p_rutina = "On MouseLeave" then
gotoNetPage "mailto:"&p_direccion
end if
end MouseLeave
|
