Custom Properties
Un ejemplo de utilización de nuevas propiedades de un objeto
Figura 6-1. Captura de la aplicación desarrollada para mostrar la utilización de las Custom Properties.
# button "mas"
on mouseUp
put the valor of scrollbar "barraProgres" into varAux
put varAux into the field "msg"
set the valor of scrollbar "barraProgres" to (varAux ) + 1
end mouseUp
#button "menos"
on mouseUp
put the valor of me
end mouseUp
#scroolbar "barraProgres"
on mouseUp
put the valor of scrollbar "barraProgres" into varAux
put varAux into the field "msg"
set the valor of scrollbar "barraProgres" to (varAux ) - 1
end mouseUp
setprop valor x
if ((x > -1) and (x < 101))
then
set the valor of me to x
set the thumbPosition of me to x
end if
end valor
#field "msg"
on returnInField
set the valor of scrollbar "barraProgres" to the text of me
end returnInField