Progress/seek bar for Pharo morphic

Question

I'm searching for a visual component such as video progress bar / seek bar or something like this:

are there something like it ?

Answer 1

From Benjamin van Ryseghem

| slider |

slider := SliderModel new.
slider 
    min: 0;
    max: 100;
    whenValueChangedDo: [:value | slider label: value asString ].
slider openWithSpec