[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