[Pkg] Installer: Installer-Core-kph.267.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Tue Dec 9 17:53:07 UTC 2008
A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-kph.267.mcz
==================== Summary ====================
Name: Installer-Core-kph.267
Author: kph
Time: 9 December 2008, 5:53:03 pm
UUID: 59d6580c-e1dc-4fe3-8237-9b3ae63aa34c
Ancestors: Installer-Core-kph.266
fixed filename suffix decision making
=============== Diff against Installer-Core-kph.266 ===============
Item was changed:
----- Method: Installer>>install:from: (in category 'mantis') -----
install: aFileName from: stream
| ext installSelector mcThing |
self log: ' installing...'.
self withAnswersDo: [
mcThing := self classMCReader ifNotNil: [ self mcThing: aFileName from: stream ].
mcThing
ifNotNil: [ (mcThing respondsTo: #install)
ifTrue: [ mcThing install ]
ifFalse: [ (mcThing respondsTo: #load) ifTrue: [ mcThing load ] ]
]
ifNil: [
+ ext := (aFileName copyAfterLast: $/) in: [ :path | path isEmpty ifTrue: [ aFileName ] ifFalse: [ path ] ].
+ ext := ext copyAfterLast: $..
- ext := (aFileName copyAfterLast: $/) copyAfterLast: $..
ext = '' ifTrue: [ ext := 'st' ].
installSelector := ('install', ext asUppercase, ':from:') asSymbol.
(self respondsTo: installSelector)
ifTrue: [ self perform: installSelector with: aFileName with: stream ]
ifFalse: [ self installDefault: aFileName from: stream ].
]
].
self log: ' done.'
!
More information about the Packages
mailing list