The Trunk: ShoutCore-kb.11.mcz

Andreas Raab uploaded a new version of ShoutCore to project The Trunk:
http://source.squeak.org/trunk/ShoutCore-kb.11.mcz

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

Name: ShoutCore-kb.11
Author: kb
Time: 26 February 2010, 3:38:22.84 pm
UUID: 75d5d7b6-a9fb-429c-8e34-d0087d609d3a
Ancestors: ShoutCore-kb.10

Adapted monticello's snapshot and patch browser shout styling from ShoutMonticello.1-tween.2

=============== Diff against ShoutCore-kb.9 ===============

Item was added:
+ ----- Method: MCSnapshotBrowser>>hasBindingThatBeginsWith: (in category '*ShoutCore') -----
+ hasBindingThatBeginsWith: aString
+
+ ^false!

Item was added:
+ ----- Method: SHMCClassDefinition>>bindingOf: (in category 'act like environment') -----
+ bindingOf: aSymbol
+ | binding |
+ (binding := Smalltalk bindingOf: aSymbol)
+ ifNotNil: [^binding].
+ items do:[:each |
+ (each isClassDefinition and: [each className = aSymbol])
+ ifTrue:[^aSymbol -> each]].
+ ^nil!

Item was added:
+ ----- Method: SHMCClassDefinition>>classPool (in category 'act like a class') -----
+ classPool
+ | d |
+ d := Dictionary new.
+ classDefinition classVarNames do:[:each |
+ d at: each put: nil].
+ ^d!

Item was added:
+ ----- Method: SHMCClassDefinition>>sharedPools (in category 'act like a class') -----
+ sharedPools
+ | d |
+ d := Set new.
+ classDefinition poolDictionaries do:[:each |
+ d add: [Smalltalk at: each asSymbol ifAbsent:[nil]] ].
+ ^d!

Item was added:
+ ----- Method: SHMCClassDefinition>>items: (in category 'accessing') -----
+ items: anObject
+ items := anObject!

Item was added:
+ ----- Method: MCSnapshotBrowser>>bindingOf: (in category '*ShoutCore') -----
+ bindingOf: aSymbol
+
+ (Smalltalk bindingOf: aSymbol) ifNotNil: [ :binding | ^binding ].
+ items do: [ :each |
+ (each isClassDefinition and: [
+ each className = aSymbol ]) ifTrue: [ ^aSymbol -> each ] ].
+ ^nil!

Item was added:
+ ----- Method: SHMCClassDefinition>>environment (in category 'act like a class') -----
+ environment
+ ^self!

Item was added:
+ ----- Method: MCSnapshotBrowser>>aboutToStyle: (in category '*ShoutCore') -----
+ aboutToStyle: aStyler
+
+ | classDefinition shouldStyle |
+ classSelection ifNil: [ ^false ].
+ self switchIsComment ifTrue: [ ^false ].
+ methodSelection
+ ifNotNil: [
+ classDefinition := items
+ detect: [:ea |
+ ea isClassDefinition and: [ ea className = classSelection ] ]
+ ifNone: [
+ (Smalltalk at: classSelection ifAbsent: [ Object ]) asClassDefinition ].
+ shouldStyle := true ]
+ ifNil: [
+ classDefinition := nil.
+ shouldStyle := categorySelection ~= self extensionsCategory ].
+ aStyler
+ environment: self;
+ classOrMetaClass: (classDefinition ifNotNil: [
+ SHMCClassDefinition
+ classDefinition: classDefinition
+ items: items
+ meta: switch = #class ]).
+ ^shouldStyle!

Item was added:
+ ----- Method: SHMCClassDefinition>>classDefinition: (in category 'accessing') -----
+ classDefinition: aMCClassDefinition
+ classDefinition := aMCClassDefinition!

Item was added:
+ ----- Method: SHMCClassDefinition>>allInstVarNames (in category 'accessing') -----
+ allInstVarNames
+ | superclassOrDef answer classOrDef instVars|
+
+ answer := meta
+ ifTrue:[classDefinition classInstVarNames asArray]
+ ifFalse:[ classDefinition instVarNames asArray].
+ classOrDef := classDefinition.
+ [superclassOrDef := (classOrDef isKindOf: MCClassDefinition)
+ ifTrue:[ |s|
+ s := classOrDef superclassName.
+ items
+ detect: [:ea | ea isClassDefinition and: [ea className = s]]
+ ifNone: [Smalltalk at: s asSymbol ifAbsent:[nil]]]
+ ifFalse:[ | sc |
+ sc := classOrDef superclass.
+ sc ifNotNil:[
+ items
+ detect: [:ea | ea isClassDefinition and: [ea className = sc name asString]]
+ ifNone: [sc] ]].
+ superclassOrDef isNil
+ ] whileFalse:[
+ instVars := (superclassOrDef isKindOf: MCClassDefinition)
+ ifTrue:[
+ meta
+ ifTrue:[superclassOrDef classInstVarNames]
+ ifFalse:[superclassOrDef instVarNames]]
+ ifFalse:["real"
+ meta
+ ifTrue:[superclassOrDef theNonMetaClass class  instVarNames]
+ ifFalse:[superclassOrDef theNonMetaClass instVarNames]].
+ answer := answer, instVars.
+ classOrDef := superclassOrDef].
+ ^answer!

Item was added:
+ ----- Method: SHMCClassDefinition classSide>>classDefinition:items:meta: (in category 'as yet unclassified') -----
+ classDefinition: aMCClassDefinition items: anObject meta: aBoolean
+ ^self new
+ classDefinition: aMCClassDefinition;
+ items: anObject;
+ meta: aBoolean;
+ yourself!

Item was added:
+ ----- Method: SHMCClassDefinition>>shoutParserClass (in category 'accessing') -----
+ shoutParserClass
+ "Answer the parser class"
+ ^SHParserST80!

Item was added:
+ ----- Method: MCPatchBrowser>>aboutToStyle: (in category '*ShoutCore') -----
+ aboutToStyle: aStyler
+
+ selection ifNotNil: [
+ selection isConflict ifTrue: [ ^false ].
+ (selection isAddition or: [ selection isRemoval ]) ifTrue: [
+ selection definition isOrganizationDefinition ifTrue: [ ^false ].
+ aStyler classOrMetaClass: self selectedClassOrMetaClass.
+ ^true ] ].
+ ^false!

Item was added:
+ ----- Method: SHMCClassDefinition>>withAllSuperclasses (in category 'accessing') -----
+ withAllSuperclasses
+ | superclassOrDef answer classOrDef |
+
+ answer := Array with: self.
+ classOrDef := classDefinition.
+ [superclassOrDef := (classOrDef isKindOf: MCClassDefinition)
+ ifTrue:[ |s|
+ s := classOrDef superclassName.
+ items
+ detect: [:ea | ea isClassDefinition and: [ea className = s]]
+ ifNone: [Smalltalk at: s asSymbol ifAbsent:[nil]]]
+ ifFalse:[ | sc |
+ sc := classOrDef superclass.
+ sc ifNotNil:[
+ items
+ detect: [:ea | ea isClassDefinition and: [ea className = sc name asString]]
+ ifNone: [sc] ]].
+ superclassOrDef isNil
+ ] whileFalse:[
+ answer := answer, (Array with: superclassOrDef).
+ classOrDef := superclassOrDef].
+ ^answer!

Item was changed:
  SystemOrganization addCategory: #'ShoutCore-Parsing'!
  SystemOrganization addCategory: #'ShoutCore-Styling'!
+ SystemOrganization addCategory: #'ShoutCore-Monticello'!

Item was added:
+ ----- Method: SHMCClassDefinition>>theNonMetaClass (in category 'act like a class') -----
+ theNonMetaClass
+ ^self copy meta: false; yourself!

Item was added:
+ ----- Method: SHMCClassDefinition>>hasBindingThatBeginsWith: (in category 'act like environment') -----
+ hasBindingThatBeginsWith: aString
+
+ (Smalltalk hasBindingThatBeginsWith: aString) ifTrue: [^true].
+ items do:[:each |
+ (each isClassDefinition and: [each className beginsWith: aString])
+ ifTrue:[^true]].
+ ^false!

Item was added:
+ ----- Method: SHMCClassDefinition>>meta: (in category 'accessing') -----
+ meta: aBoolean
+ meta := aBoolean!

Item was added:
+ Object subclass: #SHMCClassDefinition
+ instanceVariableNames: 'classDefinition items meta'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'ShoutCore-Monticello'!