global progress_counter
set progress_counter to 0
repeat with i from 1 to 10
progress("mein Text", 10)
end repeat
close_progress()
on progress(progress_description, progress_total_steps)
try -- for older systems without progress in AppleScript
set AppleScript's progress total steps to progress_total_steps
log progress_description
set progress_counter to progress_counter + 1
set AppleScript's progress completed steps to progress_counter
set AppleScript's progress description to progress_description
set AppleScript's progress additional description to ""
delay 0.5
end try
end progress
on close_progress()
try
activate me
tell me
set AppleScript's progress total steps to 0
set AppleScript's progress completed steps to 0
set AppleScript's progress description to ""
set AppleScript's progress additional description to ""
end tell
end try
end close_progress