|
property p_direccion, p_rutina
on getBehaviorTooltip me
return \
"usa este comportamiento para dirigirte a una pagina web"
end getBehaviorTooltip
on getPropertyDescriptionList
set lista= [:]
addProp lista, #p_direccion, [#comment: "escribe la direccion ",#format:#String,\
#default: "www.macromedia.com" ]
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 "http://"p_direccion
end if
end MouseUp
on MouseDown me
if p_rutina = "On MouseDown" then
gotoNetPage "http://"p_direccion
end if
end MouseDown
on MouseEnter me
if p_rutina = "On MouseEnter" then
gotoNetPage "http://"&p_direccion
end if
end MouseEnter
on MouseLeave me
if p_rutina = "On MouseLeave" then
gotoNetPage "http://"&p_direccion
end if
end MouseLeave
|
