progress bar

[yves COPPE]

Hello,




Here is my final script and it works fine (finally, thanks Klaus)

on mouseUp
   put the number of cds of this stack into tcards
   put the long name of sb "progressbar" of cd 1 of stack 
"Progression" into le_prog
   set the endvalue of le_prog to tcards
   palette "Progression"
   repeat with x = 1 to tcards
     set cursor to busy
     set the thumbpos of le_prog to x
     set the text of fld "prompt" of stack "Progression" to\
         "Fiche : "&x&"/"&tcards&"."
     put return & fld "test" of cd x after myVar
     wait 1 sec --just to see what happens !
   end repeat
   filter myVar with "*?"
   close stack "Progression"
   answer myVar
end mouseUp


Sorry, some words are in french, but it can easily be adapted in English
-- 
Greetings.

Yves COPPE

Email : yvescoppe at skynet.be