The Trunk: Morphic-ar.296.mcz

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"!