Göran Krampe uploaded a new version of SMBase to project The Trunk:
http://source.squeak.org/trunk/SMBase-gk.105.mcz==================== Summary ====================
Name: SMBase-gk.105
Author: gk
Time: 11 April 2010, 9:40:15.283 pm
UUID: e5e1ad30-20be-4e3e-bb9f-60f5d1cad0ae
Ancestors: SMBase-gk.104
Change one ifNotNil: to ifNotNilDo: so that the code can be loaded into a 3.8 image.
=============== Diff against SMBase-gk.104 ===============
Item was changed:
----- Method: SMInstaller classSide>>classForPackageRelease: (in category 'instance creation') -----
classForPackageRelease: aPackageRelease
"Decide which subclass to instantiate.
We detect and return the first subclass
that wants to handle the release going
recursively leaf first so that subclasses gets
first chance if several classes compete over
the same packages, like for example SMDVSInstaller
that also uses the .st file extension."
self subclasses do: [:ea |
(ea classForPackageRelease: aPackageRelease)
+ ifNotNilDo: [:class | ^ class]].
- ifNotNil: [:class | ^ class]].
^(self canInstall: aPackageRelease)
ifTrue: [self]!
Locked
