[prev in list] [next in list] [prev in thread] [next in thread] 

List:       olpc-etoys
Subject:    [etoys-dev] Etoys Inbox: Sugar-kfr.19.mcz
From:       commits () source ! squeak ! org
Date:       2012-02-21 19:12:04
[Download RAW message or body]

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 mailing list
etoys-dev@squeakland.org
http://lists.squeakland.org/mailman/listinfo/etoys-dev
[prev in list] [next in list] [prev in thread] [next in thread]