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

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

Name: Protocols-nice.21
Author: nice
Time: 4 February 2010, 9:11:30.403 pm
UUID: f113d8bf-1673-4de1-9a65-b00c2ca95a65
Ancestors: Protocols-ar.20

move a temp declaration inside a block

=============== Diff against Protocols-ar.20 ===============

Item was changed:
  ----- Method: Lexicon>>chooseVocabulary (in category 'vocabulary') -----
  chooseVocabulary
  	"Put up a dialog affording the user a chance to choose a different vocabulary to be installed in the receiver"
+ 	
- 
- 	| aMenu |
  	Smalltalk at: #Vocabulary ifPresent:[:aClass|
+ 		| aMenu |
  		aMenu := MenuMorph new defaultTarget: self.
  		aMenu addTitle: 'Choose a vocabulary
  blue = current
  red = imperfect' translated.
  		aMenu addStayUpItem.
  		aClass allStandardVocabularies do:[:aVocabulary |
  			(targetClass implementsVocabulary: aVocabulary)
  				ifTrue:
  					[aMenu add: aVocabulary vocabularyName selector: #switchToVocabulary: argument: aVocabulary.
  					(targetClass fullyImplementsVocabulary: aVocabulary) ifFalse:
  						[aMenu lastItem color: Color red].
  					aVocabulary == currentVocabulary ifTrue:
  						[aMenu lastItem color: Color blue]. 
  					aMenu balloonTextForLastItem: aVocabulary documentation]].
  		aMenu popUpInWorld: self currentWorld
  	].!