[Pkg] SystemEditor: SystemEditor-mtf.134.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of SystemEditor was added to project SystemEditor:
http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.134.mcz

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

Name: SystemEditor-mtf.134
Author: mtf
Time: 13 October 2008, 8:32:44 pm
UUID: de497877-e44d-4502-a948-6aad4289291e
Ancestors: SystemEditor-mtf.133

More cleanup

Implemented ClassEditor>>bindingOf:

=============== Diff against SystemEditor-mtf.133 ===============

Item was added:
+ ----- Method: RootClassEditor>>bindingOf: (in category 'reflecting') -----
+ bindingOf: varName
+ 	^ nil!

Item was changed:
  ----- Method: MetaclassEditor>>system (in category 'accessing') -----
  system
+ 	^ system ifNil: [system := editor system]!
- 	^ editor system!

Item was added:
+ ----- Method: ClassEditor>>bindingOf: (in category 'reflecting') -----
+ bindingOf: varName
+ 	"Answer the binding of some variable resolved in the scope of the receiver"
+ 	| aSymbol |
+ 	aSymbol := varName asSymbol.
+ 
+ 	"First look in classVar dictionary."
+ 	(classVarNames includes: aSymbol)
+ 		ifTrue: [^ subject ifNotNil: [subject classPool bindingOf: aSymbol]].
+ 
+ 	"Next look in shared pools."
+ 	self sharedPools do: [:pool |
+ 		(pool bindingOf: aSymbol) ifNotNilDo: [:binding | ^binding]].
+ 
+ 	"Next look in declared environment."
+ 	(self environment bindingOf: aSymbol) ifNotNilDo: [:binding | ^binding].
+ 
+ 	"Finally look higher up the superclass chain and fail at the end."
+ 	^ self superclassOrEditor bindingOf: aSymbol!

Item was added:
+ ----- Method: RootMetaclassEditor>>bindingOf: (in category 'reflecting') -----
+ bindingOf: varName
+ 	^ nil!

Item was changed:
  ----- Method: ClassEditor>>comment (in category 'reflecting') -----
  comment
  	| comment |
  	comment := self organization classComment.
  	^ comment isEmpty
  		ifFalse: [comment]
+ 		ifTrue: [self classCommentBlank]!
- 		ifTrue: [self edCommentTemplate]!

Item was added:
+ ----- Method: MetaclassEditor>>bindingOf: (in category 'reflecting') -----
+ bindingOf: varName
+ 	^ editor bindingOf: varName!

Item was changed:
  ----- Method: MetaclassEditor>>subject (in category 'accessing') -----
  subject
+ 	^ subject ifNil: [subject := editor subject class]!
- 	^ editor subject ifNotNil: [self subject | subject class]!

Item was added:
+ ----- Method: PureBehaviorEditor>>bindingOf: (in category 'reflecting') -----
+ bindingOf: varName
+ 	^ self environment bindingOf: varName!

Item was changed:
+ ----- Method: MetaclassEditor>>basicNew (in category 'initialization') -----
- ----- Method: MetaclassEditor>>basicNew (in category 'behavior') -----
  basicNew
  	"Primitive. Answer an instance of the receiver (which is a class) with no 
  	indexable variables. Fail if the class is indexable. Essential. See Object 
  	documentation whatIsAPrimitive."
  
  	<primitive: 70>
  	"space must be low"
  	self environment signalLowSpace.
  	^ self basicNew  "retry if user proceeds"
  !

Item was added:
+ ----- Method: PureBehaviorEditor>>classCommentBlank (in category 'reflecting') -----
+ classCommentBlank
+ 	^ 'Main comment stating the purpose of this class and relevant relationship to other classes.
+ 
+ Possible useful expressions for doIt or printIt.
+ 
+ Structure:
+  instVar1		type -- comment about the purpose of instVar1
+  instVar2		type -- comment about the purpose of instVar2
+ 
+ Any further useful comments about the general approach of this implementation.'!

Item was added:
+ ----- Method: PureBehaviorEditor class>>reservedNames (in category 'accessing') -----
+ reservedNames
+ 	^ ReservedNames!

Item was added:
+ ----- Method: PureBehaviorEditor>>parserClass (in category 'reflecting') -----
+ parserClass
+ 	^ self class parserClass!

Item was added:
+ ----- Method: MetaclassEditor>>initialize (in category 'initialization') -----
+ initialize
+ "initialize myself so that I can create instances"
+ 
+ 	superclass := self class classClassEditor.
+ 	methodDict := MethodDictionary new.
+ 	format := self class classClassEditor format.!

Item was removed:
- ----- Method: ClassEditor>>edCommentTemplate (in category 'accessing') -----
- edCommentTemplate
- 	^ 'Main comment stating the purpose of this class and relevant relationship to other classes.
- 
- Possible useful expressions for doIt or printIt.
- 
- Structure:
-  instVar1		type -- comment about the purpose of instVar1
-  instVar2		type -- comment about the purpose of instVar2
- 
- Any further useful comments about the general approach of this implementation.'!

Item was removed:
- ----- Method: ClassEditor>>system (in category 'accessing') -----
- system
- 	^ system!

Item was removed:
- ----- Method: MetaclassEditor>>superclass:methodDictionary:format: (in category 'behavior') -----
- superclass: aClass methodDictionary: mDict format: fmt
- 	"Basic initialization of the receiver.
- 	Must only be sent to a new instance; else we would need Object flushCache."
- 	superclass := aClass.
- 	format := fmt.
- 	methodDict := mDict.!

Item was removed:
- ----- Method: ClassEditor class>>reservedNames (in category 'accessing') -----
- reservedNames
- 	^ ReservedNames!

Item was removed:
- ----- Method: MetaclassEditor>>definitionST80: (in category 'reflecting') -----
- definitionST80: isST80
- 	^ isST80 ifTrue: [self definitionST80] ifFalse: [self definition]!

Item was removed:
- ----- Method: MetaclassEditor>>browserDefinition: (in category 'reflecting') -----
- browserDefinition: style
- 	^ self definition!

Item was removed:
- ----- Method: ClassEditor>>parserClass (in category 'debugging') -----
- parserClass
- 	^ self class parserClass!

Item was removed:
- ----- Method: ClassEditor>>subject (in category 'accessing') -----
- subject
- 	^ subject!

Item was removed:
- ----- Method: MetaclassEditor class>>new (in category 'instance creation') -----
- new
- 	| instance |
- 	instance := self basicNew.
- 	instance
- 		superclass: self classClassEditor
- 		methodDictionary: MethodDictionary new
- 		format: self classClassEditor format.
- 	^ instance!

Item was removed:
- ----- Method: MetaclassEditor>>definition (in category 'reflecting') -----
- definition
- 	^ self definitionST80!

Item was removed:
- ----- Method: MetaclassEditor>>removeSelector: (in category 'editing') -----
- removeSelector: aSymbol 
- 	methods ifNil: [methods := MethodDictionaryEditor for: self].
- 	methods remove: aSymbol.!