A new version of Sugar was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Sugar-kfr.19.mcz
==================== Summary ====================
Name: Sugar-kfr.19 Author: kfr Time: 21 February 2012, 8:12:16 pm UUID: d2cc19df-bb04-af40-a901-2e412e101f0b Ancestors: Sugar-kfr.18
More fiddeling. Only delete on mouseLeave.
=============== Diff against Sugar-kfr.18 ===============
Item was changed: ----- Method: SugarNavigatorBar>>soundVolume (in category 'buttons creation') ----- soundVolume | bar slider r p | bar := SimpleSliderMorph new. + bar position: ActiveHand position- (12@10). - bar position: ActiveHand position. 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 . + bar on: #mouseLeave send: #value to: [ bar delete]. bar on: #mouseUp send: #value to: [ r := bar roomToMove. p := ActiveHand lastEvent position adhereTo: r. bar setValue: ((r bottom - p y ) asFloat / r height ). self setSoundVolume: bar value. + self beep:'coyote']. - self beep:'coyote'. - bar delete. - ]. slider on: #mouseUp send: #value to: [ self setSoundVolume: bar value. + self beep:'coyote']. - self beep:'coyote'. - bar delete]. slider on: #mouseMove send: #value to: [ bar scrollAbsolute: ActiveHand lastEvent. + self setSoundVolume: bar value]. - self setSoundVolume: bar value. ]. ^bar openInWorld!
etoys-dev@lists.squeakfoundation.org