I am creating a "quick" utility which uses the following handler :
Code: Select all
On InitaliseLists pListName
## Handler that controls reads the data stored in the file system
if pListName is "ListOfImages" then
put "Building List of Images" into field "status"
wait 0.5 second
lock screen
## first the image files
put field "PathToImages" into tPath_ImageLibrary
put getAllFiles (tPath_ImageLibrary) into tFileList
put the number of lines in tFileList into tCount
-- put tFileList into field "FileList"
put ConvertToArray (tFileList) into tImagesA
put SortArray(tImagesA,"FileName") into sImageFilesA
put "" into tImagesA
put "List of " & tCount & " images created!" into field "status"
unlock screen
wait 10 seconds with messages
Beep
put "" into field "status"
else
put "Building List of PrintJobs" into field "status"
wait 0.5 second
put GetListPrintJobs() into tPrintJobs
put tPrintJobs into field "SavedPrintJobs"
put "List of PrintJobs completed" into field "status"
wait 10 seconds with messages
put "" into field "status"
end if
end InitaliseLists
this initial write to the field is visible to the user, moving down the code the lineput "Building List of Images" into field "status"
is not displayed to the user. However, it is visible if the final write to the fieldput "List of " & tCount & " images created!" into field "status"
is commented out.put "" into field "status"
I thought the
commands would allow time for the screen to update but it does not. I'm about to experiment with using the send command but wonder why my code fails?wait