[squeak-dev] The Trunk: Protocols-nice.45.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Sep 22 11:56:12 UTC 2013


Nicolas Cellier uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-nice.45.mcz

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

Name: Protocols-nice.45
Author: nice
Time: 22 September 2013, 1:55:48.765 pm
UUID: b2651c1e-a2dd-45b6-978c-c2f495949fd9
Ancestors: Protocols-nice.44

Vocabulary class>>typeChoices throws an error if Preferences>>allowEtoysUserCustomEvents is false
Mantis #7786

=============== Diff against Protocols-nice.44 ===============

Item was changed:
  ----- Method: Vocabulary class>>typeChoices (in category 'type vocabularies') -----
  typeChoices
  	"Answer a list of all user-choosable data types"
  
+ 	| vocabulariesForType |
+ 	vocabulariesForType := self allStandardVocabularies select: [:e | e representsAType].
+ 	Preferences allowEtoyUserCustomEvents ifFalse: [vocabulariesForType removeKey: #CustomEvents ifAbsent: []].
+ 	^vocabulariesForType keys sort!
- 	| aList |
- 	(aList := self allStandardVocabularies
- 		select:
- 			[:aVocab | aVocab representsAType]
- 		thenCollect:
- 			[:aVocab | aVocab vocabularyName]).
- 	Preferences allowEtoyUserCustomEvents ifFalse: [aList remove: #CustomEvents ifAbsent: []].
- 	^ aList asSortedArray!



More information about the Squeak-dev mailing list