Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.296.mcz

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

Name: Morphic-ar.296
Author: ar
Time: 4 January 2010, 2:45:29 am
UUID: c940e52b-02f5-d241-992d-9fccae9257c2
Ancestors: Morphic-tbn.295

Make Protocols unloadable: Classify various extension methods in Protocols.

=============== Diff against Morphic-tbn.295 ===============

Item was changed:
  SystemOrganization addCategory: #'Morphic-Balloon'!
  SystemOrganization addCategory: #'Morphic-Basic'!
  SystemOrganization addCategory: #'Morphic-Basic-NewCurve'!
  SystemOrganization addCategory: #'Morphic-Borders'!
  SystemOrganization addCategory: #'Morphic-Collections-Arrayed'!
- SystemOrganization addCategory: #'Morphic-Components'!
  SystemOrganization addCategory: #'Morphic-Demo'!
  SystemOrganization addCategory: #'Morphic-Events'!
  SystemOrganization addCategory: #'Morphic-Explorer'!
  SystemOrganization addCategory: #'Morphic-FileList'!
  SystemOrganization addCategory: #'Morphic-Kernel'!
  SystemOrganization addCategory: #'Morphic-Layouts'!
  SystemOrganization addCategory: #'Morphic-Menus'!
  SystemOrganization addCategory: #'Morphic-Models'!
  SystemOrganization addCategory: #'Morphic-Pluggable Widgets'!
- SystemOrganization addCategory: #'Morphic-Refactoring Candidates'!
- SystemOrganization addCategory: #'Morphic-Scripting'!
  SystemOrganization addCategory: #'Morphic-Support'!
  SystemOrganization addCategory: #'Morphic-Text Support'!
  SystemOrganization addCategory: #'Morphic-TrueType'!
  SystemOrganization addCategory: #'Morphic-Widgets'!
  SystemOrganization addCategory: #'Morphic-Windows'!
  SystemOrganization addCategory: #'Morphic-Worlds'!

Item was removed:
- ----- Method: PasteUpMorph>>installVectorVocabulary (in category 'world state') -----
- installVectorVocabulary
- 	"Install the experimental Vector vocabulary as the default for the current project"
- 
- 	| standardViewers aVocabulary |
- 	self setProperty: #currentVocabularySymbol toValue: #Vector.
- 	standardViewers := (self submorphsSatisfying: [:m | m isKindOf: ViewerFlapTab]) collect:
- 		[:m | m referent firstSubmorph].
- 	aVocabulary := Vocabulary vocabularyNamed: #Vector.
- 	standardViewers do: [:m | m switchToVocabulary: aVocabulary]!

Item was removed:
- ----- Method: PasteUpMorph>>makeVectorUseConformToPreference (in category 'menu & halo') -----
- makeVectorUseConformToPreference
- 	"Make certain that the use of vectors in this project conforms to the current preference setting."
- 
- 	| prefValue currentValue |
- 	prefValue := Preferences useVectorVocabulary.
- 	currentValue := self currentlyUsingVectorVocabulary.
- 	prefValue ~~ currentValue ifTrue:
- 		[currentValue
- 			ifTrue:
- 				[self abandonVocabularyPreference]
- 			ifFalse:
- 				[self installVectorVocabulary]]!

Item was removed:
- ----- Method: PasteUpMorph>>currentVocabulary (in category 'macpal') -----
- currentVocabulary
- 	"Answer the default Vocabulary object to be applied when scripting"
- 
- 	| aSym aVocab |
- 	aSym := self valueOfProperty: #currentVocabularySymbol.
- 	aSym ifNil:
- 		[aVocab := self valueOfProperty: #currentVocabulary.
- 		aVocab ifNotNil:
- 			[aSym := aVocab vocabularyName.
- 			self setProperty: #currentVocabularySymbol toValue: aSym.
- 			self removeProperty: #currentVocabulary]].
- 	^ aSym
- 		ifNotNil:
- 			[Vocabulary vocabularyNamed: aSym]
- 		ifNil:
- 			[Vocabulary fullVocabulary]!

Item was removed:
- ----- Method: PasteUpMorph>>abandonVocabularyPreference (in category 'world state') -----
- abandonVocabularyPreference
- 	"Remove any memory of a preferred vocabulary in the project"
- 
- 	| standardViewers aVocabulary |
- 	self removeProperty: #currentVocabularySymbol.
- 
- 	standardViewers := (self submorphsSatisfying: [:m | m isKindOf: ViewerFlapTab]) collect:
- 		[:m | m referent firstSubmorph].
- 	aVocabulary := Vocabulary vocabularyNamed: #eToy.
- 	standardViewers do:
- 		[:m | ((m valueOfProperty: #currentVocabularySymbol ifAbsent: [nil]) == #Vector) ifTrue:
- 			[m switchToVocabulary: aVocabulary]]
- 
- "ActiveWorld abandonVocabularyPreference"!