[Pharo-project] Progress bars

Hello all, Is there a preferred way to produce a progress bar? The example below seems to work, but is there a better way? Is there a way to provide a cancel button? Bill [ #( 1 2 3 4 5 ) do:[ :each | ( Delay forMilliseconds:500 ) wait. ] displayingProgress:'Gratuitous Progress Bar.' ] fork.