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

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Wed Oct 8 00:02:11 UTC 2008


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

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

Name: SystemEditor-mtf.129
Author: mtf
Time: 7 October 2008, 1:13:09 pm
UUID: 070af02c-f2ec-4e4a-86c3-917edfe2d14c
Ancestors: SystemEditor-mtf.128

removed a self halt.
added SystemEditor>>classNamed:

=============== Diff against SystemEditor-mtf.128 ===============

Item was added:
+ ----- Method: SystemEditor>>classNamed: (in category 'reflecting') -----
+ classNamed: className 
+ 	"className is either a class name or a class name followed by '
+ 	class'. Answer the class or metaclass it names"
+ 	| meta baseName baseClass |
+ 	(className endsWith: ' class')
+ 		ifTrue: [meta := true.
+ 			baseName := className copyFrom: 1 to: className size - 6]
+ 		ifFalse: [meta := false.
+ 			baseName := className].
+ 	baseClass := self
+ 				at: baseName asSymbol
+ 				ifAbsent: [^ nil].
+ 	meta
+ 		ifTrue: [^ baseClass class]
+ 		ifFalse: [^ baseClass]!

Item was changed:
  ----- Method: MethodDictionaryEditor>>buildFor: (in category 'editing') -----
  buildFor: aClassEditor
  	| result old |
- self halt.
  	result := MethodDictionary new.
  	self subject keysAndValuesDo:
  		[:selector :cm |
  		(self selectorIsModified: selector)
  			ifFalse: [result at: selector put: (self recompile: selector from: cm for: aClassEditor)]].
  	additions keysAndValuesDo: 
  		[:selector :mm | 
  		old := self subject at: selector ifAbsent: [nil]. 
  		result at: selector put: (mm compileFrom: old for: aClassEditor)].
  	^ result
  !



More information about the Packages mailing list