[Pkg] The Trunk: Protocols-nice.27.mcz

[commits at source.squeak.org]

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

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

Name: Protocols-nice.27
Author: nice
Time: 23 March 2010, 10:27:05.485 pm
UUID: 4adc66a9-41c6-4549-934a-5205eccf496c
Ancestors: Protocols-ar.26

Fix underscores

=============== Diff against Protocols-ar.26 ===============

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

Item was changed:
  ----- Method: Vocabulary classSide>>initializeStandardVocabularies (in category 'class initialization') -----
  initializeStandardVocabularies
  	"Initialize a few standard vocabularies and place them in the AllStandardVocabularies list."
  
+ 	AllStandardVocabularies := nil.
- 	AllStandardVocabularies _ nil.
  	Smalltalk at: #EToyVocabulary
  		ifPresent:[:aClass| self addStandardVocabulary: aClass new].
  	Smalltalk at: #EToyVectorVocabulary
  		ifPresent:[:aClass| self addStandardVocabulary: aClass new].
  
  	self addStandardVocabulary: self newPublicVocabulary.
  	self addStandardVocabulary: FullVocabulary new.
  
  	self addStandardVocabulary: self newQuadVocabulary.
  
  	self addStandardVocabulary: ColorType new.
  	self addStandardVocabulary: BooleanType new.
  	self addStandardVocabulary: GraphicType new.
  	Smalltalk at: #PlayerType
  		ifPresent:[:aClass| self addStandardVocabulary: aClass new].
  	self addStandardVocabulary: SoundType new.
  	self addStandardVocabulary: StringType new.
  	self addStandardVocabulary: MenuType new.
  	self addStandardVocabulary: UnknownType new.
  	Smalltalk at: #ScriptNameType
  		ifPresent:[:aClass| self addStandardVocabulary: aClass new].
  
  	self addStandardVocabulary: (SymbolListType new symbols: #(simple raised inset complexFramed complexRaised complexInset complexAltFramed complexAltRaised complexAltInset); vocabularyName: #BorderStyle; yourself).
  	self addStandardVocabulary: (SymbolListType new symbols: #(lines arrows arrowheads dots); vocabularyName: #TrailStyle; yourself).
  	self addStandardVocabulary: (SymbolListType new symbols: #(leftToRight rightToLeft topToBottom bottomToTop); vocabularyName: #ListDirection; yourself).
  
  	self addStandardVocabulary: (SymbolListType new symbols: #(topLeft bottomRight center justified); vocabularyName: #ListCentering; yourself).
  
  	self addStandardVocabulary: (SymbolListType new symbols: #(buttonDown whilePressed buttonUp); vocabularyName: #ButtonPhase; yourself).
  
  	self addStandardVocabulary: (SymbolListType new symbols: #(rotate #'do not rotate' #'flip left right' #'flip up down'); vocabularyName: #RotationStyle; yourself).
  
  	self addStandardVocabulary: (SymbolListType new symbols: #(rigid spaceFill shrinkWrap); vocabularyName: #Resizing; yourself).
  
  	self addStandardVocabulary: self newSystemVocabulary.  "A custom vocabulary for Smalltalk -- still under development)"
  
  	self numberVocabulary.  		"creates and adds it"
  	"self wonderlandVocabulary."  	"creates and adds it"
  	self vocabularyForClass: Time.   "creates and adds it"
  
  	Smalltalk at: #KedamaPatchType ifPresent:[:aClass| 
  		self addStandardVocabulary: (aClass new vocabularyName: #Patch; yourself).
  	].
  	self addStandardVocabulary: (SymbolListType new symbols: #(wrap stick bouncing); vocabularyName: #EdgeMode; yourself).
  	self addStandardVocabulary: (SymbolListType new symbols: #(logScale linear color); vocabularyName: #PatchDisplayMode; yourself).
  
  	"Vocabulary initialize"!