2013-07-05 46 views

回答

2

從本傑明·範Ryseghem

| slider | 

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

你可以使用一個PluggableSliderMorph用於此目的:

PluggableSliderMorph