How to use same cell for printing in a loop?

Question

I want to manually tag images.

For example, we prepare a list of images like

imgList = Table[Rasterize[i, ImageSize -> 50], {i, {a, b, c}}]

it gives

Now I made a loop like this

tagAssoc = <||>;
Do[
  Print[imgList[[i]]];
  tagAssoc[i] = Input[],
  {i, 1, Length@imgList}];
tagAssoc

Basically, in each loop, it print a image, then popup an input window for me to input the description of the image. All tag information is saved in tagAssoc. After loop finished, it looks like below

The print order of images should be reversed for better view and tagging. But this is not my concern. Since I only need to see one image at a time, how to make this loop update the same cell with different images instead of print all images in different cell.

Answer 1

One simple approach is to replace Print with Dynamic wrapped by PrintTemporary:

tagAssoc = <||>;
PrintTemporary[Dynamic[imgList[[i]]]];
Do[tagAssoc[i] = Input[], {i, Length@imgList, 1, -1}];
tagAssoc

... or even simpler, you can use Monitor instead as Lukas Lang suggests in the comments:

tagAssoc = <||>;
Monitor[Do[tagAssoc[i] = Input[], {i, Length@imgList, 1, -1}], imgList[[i]]]
tagAssoc