[Pkg] The Trunk: MorphicExtras-nice.111.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jun 18 20:43:46 UTC 2013

Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk:

==================== Summary ====================

Name: MorphicExtras-nice.111
Author: nice
Time: 18 June 2013, 10:42:55.148 pm
UUID: 1f2ba902-1c24-4fdc-b18a-79349e9d8844
Ancestors: MorphicExtras-fbs.110

Make UI requests to the same UIManager object rather than once to Utilities and once to UIManager default.

=============== Diff against MorphicExtras-fbs.110 ===============

Item was changed:
  ----- Method: RemoteHandMorph class>>ensureNetworkConnected (in category 'utilities') -----
  	"Try to ensure that an intermittent network connection, such as a dialup or ISDN line, is actually connected. This is necessary to make sure a server is visible in order to accept an incoming connection. If the network connection does not work - the user has given up - return false. Otherwise, return true."
  	"RemoteHandMorph ensureNetworkConnected"
  	| address |
+ 	UIManager default
- 	Utilities
  		informUser: 'Ensuring your network connection works...'
  		during: [
  			address := (NetNameResolver
  				addressForName: 'squeak.org'
  				timeout: 30)].
  	^ address notNil.!

Item was changed:
  ----- Method: WaveEditor>>chooseLoopStart (in category 'menu') -----
  	| bestLoops choice start labels values |
  	possibleLoopStarts ifNil: [
+ 		UIManager default
- 		Utilities
  			informUser: 'Finding possible loop points...' translated
  			during: [possibleLoopStarts := self findPossibleLoopStartsFrom: graph cursor]].
  	bestLoops := possibleLoopStarts copyFrom: 1 to: (100 min: possibleLoopStarts size).
  	labels := OrderedCollection new.
  	values := OrderedCollection new.
  	bestLoops do: [:entry |
  		| secs |
  		secs := ((loopEnd - entry first) asFloat / self samplingRate) roundTo: 0.01.
  		labels add: ('{1} cycles; {2} secs' translated format:{entry third. secs}).
  		values add: entry].
  	choice := UIManager default chooseFrom: labels values: values.
  	choice ifNil: [^ self].
  	loopCycles := choice third.
  	start := self fractionalLoopStartAt: choice first.
  	self loopLength: (loopEnd asFloat - start) + 1.0.

More information about the Packages mailing list