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!