s=selectedTextlines of field "lista" -- Trova la linea selezionata
if s<>null -- Se c’è una selezione
dis="draw\Draw"&s&".tif" -- Converti la selezione in nome file
run "viewer\view.exe "&dis -- Richiama il visualizzatore esterno
end
end
to handle mouseEnter
set fillColor to 0, 90, 0 -- "illumina" il bottone
show angledLine "LD1" -– Mostra effetto 3D
show angledLine "LD2"
end
to handle mouseLeave -- All’uscita del mouse
set fillColor to 0, 75, 0 -- "spegni" il bottone
hide angledLine "LD1" -– Nascondi effetto 3D
hide angledLine "LD2"
end
close this window -- Chiude la finestra
end
to handle mouseEnter -- All’entrata del mouse
set fillColor to 0, 90, 0 -- "illumina" il bottone
show angledLine "LE1" -- aggiungi effetto 3D
show angledLine "LE2"
end
to handle mouseLeave -- All’uscita del mouse
set fillColor to 0, 75, 0 -- "spegni" il bottone
hide angledLine "LE1" -- Togli effetto 3D
hide angledLine "LE2"
end