------------------------------------------

to handle indicizzascript contesto
if contesto is null
	request "Indicizzare lo script di:" with Book or Background or Page
	set contesto to it
end if
get ("get (script of this "&contesto &&"is null)")
execute it
if it is not true
clear aggiornamento
set trovato to false
set syscursor to 4
while not trovato
		get ("get textline 1 of script of this "&contesto)
		execute it
		conditions
		when it is "-- FINE INDICE --" 
	    	get ("clear textline 1 of script of this "&contesto)
	    	execute it
     		set trovato to true
		when first word of it is "to"
			 set trovato to true
		else
			get ("clear textline 1 of script of this "&contesto)
			execute it
			get ("get (script of this "&contesto &&"is null)")
			execute it
			if it is true
				break indicizzascript
			end if	
		end conditions
end while			 

get ("get textlinecount(script of this "&contesto&")")
execute it
set stop to it
step i from 1 to stop
	get ("get textline "&i&&"of script of this "&contesto)
	execute it
	if word 1 of it is "to"
	conditions
	when word 2 of it is "handle"
		put "-- h: "& word 3 of it &crlf  after aggiornamento
	when word 2 of it is "get"
		put "-- g: "& word 3 of it  &crlf after aggiornamento
	end conditions 
	end if
end step
put "-- FINE INDICE --"&crlf&crlf after aggiornamento
conditions
when contesto is page
	put aggiornamento before script of this page
when contesto is background
	put aggiornamento before script of this background
when contesto is book
	put aggiornamento before script of this book
end conditions
-- put aggiornamento into text of field indicescript of page indice	
end if
set syscursor to default
end