# Script da assegnare a un'icona qualsiasi (poi lo script imposterà quella giusta), la
# quale andrà collegata a un segnale non permissivo (protezione o partenza).
# Un click su di essa chiude e spegne o accende senza aprirlo il segnale a cui è colle-
# gata, a seconda che esso sia acceso (indicatore grigio) o spento (indicatore azzurro).

# Script to be assigned to any icon (the script itself will set the correct one), which will
# be linked to a non permissive signal (a home or exit signal of a station).
# A click on it will unclear and switch off or switch on without clearing the linked signal,
# depending on its being on (grey indication) or off (cyan indication).

# P.Rosati  21/01/2021 (Versione 5.1)

OnInit:
	.linked.noclickpenalty = 1
	if .linked.aspect = fault or .linked.aspect = off
		.icon = "TD_fault_X.xpm"
	else
		.icon = "TD_off_X.xpm"
	end
end

OnIconUpdate:
	if .linked.aspect = fault or .linked.aspect = off
		.icon = "TD_fault_X.xpm"
	else
		.icon = "TD_off_X.xpm"
	end
end

OnClicked:
	if .linked.aspect = off
		.linked.aspect = red
		do update
	end
	if .linked.aspect ! fault
		if .linked.aspect ! red
			.linked.click = 1
			.linked.aspect = off
			do update
		end
		.linked.aspect = off
		do update
	end
end