[Pkg] The Trunk: Protocols-cmm.50.mcz

[commits at source.squeak.org]

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!