A new version of Sugar was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Sugar-kfr.21.mcz
==================== Summary ====================
Name: Sugar-kfr.21 Author: kfr Time: 24 February 2012, 8:08:17 am UUID: 25a6a4a6-d52a-9d48-9b14-a3ea7aa52f15 Ancestors: Sugar-kfr.20
Adjust position of scrollbar. Delete slider shadow on mouseUp.
=============== Diff against Sugar-kfr.20 ===============
Item was changed: ----- Method: SugarNavigatorBar>>soundVolume (in category 'buttons creation') ----- soundVolume + | slider r p sliderShadow | + soundSlider ifNotNil:[soundSlider delete]. + soundSlider := SimpleSliderMorph new. + soundSlider position: soundButton position+ (6@30). + soundSlider borderColor: Color black; borderWidth: 2. + soundSlider width:25. + soundSlider adjustToValue: SoundPlayer soundVolume average. + soundSlider descending: true. + soundSlider beSticky. + slider := soundSlider submorphs first. + sliderShadow := soundSlider submorphs second. - | bar slider r p | - bar := SimpleSliderMorph new. - bar position: soundButton position+ (6@15). - bar borderColor: Color black; borderWidth: 2. - bar width:25. - bar adjustToValue: SoundPlayer soundVolume average. - bar descending: true. - bar beSticky. - slider := bar submorphs first. slider borderWidth: 0; color: Color black . + soundSlider on: #mouseLeave send: #value to: [ soundSlider delete]. + soundSlider on: #mouseUp send: #value to: [ + r := soundSlider roomToMove. - bar on: #mouseLeave send: #value to: [ bar delete]. - bar on: #mouseUp send: #value to: [ - r := bar roomToMove. p := ActiveHand lastEvent position adhereTo: r. + soundSlider setValue: ((r bottom - p y ) asFloat / r height ). + self setSoundVolume: soundSlider value. + sliderShadow hide. - bar setValue: ((r bottom - p y ) asFloat / r height ). - self setSoundVolume: bar value. self beep:'coyote']. slider on: #mouseUp send: #value to: [ + self setSoundVolume: soundSlider value. + sliderShadow hide. - self setSoundVolume: bar value. self beep:'coyote']. slider on: #mouseMove send: #value to: [ + soundSlider scrollAbsolute: ActiveHand lastEvent. + self setSoundVolume: soundSlider value]. + ^soundSlider openInWorld! - bar scrollAbsolute: ActiveHand lastEvent. - self setSoundVolume: bar value]. - ^bar openInWorld!
etoys-dev@lists.squeakfoundation.org