The Trunk: Protocols-cmm.50.mcz

Chris Muller uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-cmm.50.mcz

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

Name: Protocols-cmm.50
Author: cmm
Time: 11 September 2015, 5:06:16.322 pm
UUID: 87f9e0ae-06a7-45f7-8887-20b1751cd251
Ancestors: Protocols-ul.49

Fix a preference access.

=============== Diff against Protocols-ul.49 ===============

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 valueOfFlag: #allowEtoyUserCustomEvents) ifFalse: [vocabulariesForType removeKey: #CustomEvents ifAbsent: []].
- Preferences allowEtoyUserCustomEvents ifFalse: [vocabulariesForType removeKey: #CustomEvents ifAbsent: []].
  ^vocabulariesForType keys sort!