The Trunk: Protocols-nice.45.mcz

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!