The Trunk: Protocols-nice.21.mcz

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
  ].!