The Trunk: Kernel-ar.369.mcz

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

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

Name: Kernel-ar.369
Author: ar
Time: 4 January 2010, 2:43:40 am
UUID: 1060cec2-3a71-d443-9056-c247c66ab98f
Ancestors: Kernel-ar.368

Make Protocols unloadable: Classify various extension methods in Protocols.

=============== Diff against Kernel-ar.368 ===============

Item was removed:
- ----- Method: Object>>haveFullProtocolBrowsedShowingSelector: (in category 'testing') -----
- haveFullProtocolBrowsedShowingSelector: aSelector
- "Open up a Lexicon on the receiver, having it open up showing aSelector, which may be nil"
-
- | aBrowser |
- aBrowser := (Smalltalk at: #InstanceBrowser ifAbsent:[^nil]) new useVocabulary: Vocabulary fullVocabulary.
- aBrowser openOnObject: self inWorld: ActiveWorld showingSelector: aSelector
-
- "(2@3) haveFullProtocolBrowsed"!

Item was removed:
- ----- Method: Behavior>>implementsVocabulary: (in category 'testing method dictionary') -----
- implementsVocabulary: aVocabulary
- "Answer whether instances of the receiver respond to the messages in aVocabulary."
-
- (aVocabulary isKindOf: FullVocabulary orOf: ScreenedVocabulary) ifTrue: [^ true].
- ^ self fullyImplementsVocabulary: aVocabulary!

Item was removed:
- ----- Method: Object>>haveFullProtocolBrowsed (in category 'testing') -----
- haveFullProtocolBrowsed
- "Open up a Lexicon on the receiver"
-
- ^ self haveFullProtocolBrowsedShowingSelector: nil
-
- "(2@3) haveFullProtocolBrowsed"
- !

Item was removed:
- ----- Method: Object>>currentVocabulary (in category 'macpal') -----
- currentVocabulary
- "Answer the currently-prevailing default vocabulary."
-
- ^ Smalltalk isMorphic ifTrue:
- [ActiveWorld currentVocabulary]
- ifFalse:
- [Vocabulary fullVocabulary]!