A new version of Sugar was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Sugar-kfr.13.mcz
==================== Summary ====================
Name: Sugar-kfr.13 Author: kfr Time: 8 February 2012, 10:48:16 am UUID: e5d01474-fa7f-a147-b775-ec796cf33f2f Ancestors: Sugar-kfr.12
Add a sound volume button to the navigator bar
=============== Diff against Sugar-kfr.12 ===============
Item was changed: ----- Method: SugarNavigatorBar class>>rebuildButtons (in category 'utilitity') ----- rebuildButtons + "self rebuildButtons" self current ifNotNilDo: [:bar | bar rebuildButtons]!
Item was added: + ----- Method: SugarNavigatorBar>>buttonSound (in category 'buttons creation') ----- + buttonSound + "Answer an new instance of a 'Sound' button." + + ^ shareButton := self makeButton: 'Sound' + balloonText: 'Adjust the sound volume' translated + for: #soundControl!
Item was changed: ----- Method: SugarNavigatorBar>>makeTheButtons (in category 'initialization') ----- makeTheButtons
^ { self buttonHelp. self makeProjectNameLabel. }, ( Preferences showAdvancedNavigatorButtons ifTrue: [{self buttonNewProject}] ifFalse: [#()] ), { self buttonPrev. self buttonNext. self buttonPaint. self buttonSupplies. self buttonLanguage. + self buttonSound. }, (SugarLauncher isRunningInSugar ifTrue: [{ self buttonShare. #spacer. self buttonChoose. self buttonKeep. stopButton := SugarLauncher current willSaveOnQuit ifTrue: [self buttonStop] ifFalse: [self buttonQuit] }] ifFalse: [{ self buttonZoom. #spacer. self buttonFind. self buttonPublish. self buttonQuit}] ), (Preferences navControlInNavBar ifTrue: [{self buttonHideNavBar}] ifFalse: [#()])!
Item was added: + ----- Method: SugarNavigatorBar>>soundControl (in category 'button actions') ----- + soundControl + | bar slider | + bar := SimpleSliderMorph new. + bar position: ActiveHand position. + bar adjustToValue: SoundPlayer soundVolume first."array with stereo values. pick first" + bar descending: true. + bar beSticky. + slider := bar submorphs first. + slider on: #mouseUp send: #value to: [ + self setSoundVolume: bar value. + bar delete]. + slider on: #mouseMove send: #value to: [ + bar scrollAbsolute: ActiveHand lastEvent. + self setSoundVolume: bar value]. + ^bar openInWorld!
etoys-dev@lists.squeakfoundation.org