[Pkg] Installer: Installer-Core-kph.265.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Tue Dec 9 03:18:10 UTC 2008
A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-kph.265.mcz
==================== Summary ====================
Name: Installer-Core-kph.265
Author: kph
Time: 9 December 2008, 3:18:07 am
UUID: 5a9c77be-4edb-4cf5-b4a1-721e596d1d5b
Ancestors: Installer-Core-kph.264
getting there
=============== Diff against Installer-Core-kph.264 ===============
Item was changed:
----- Method: InstallerInternetBased>>urlGet: (in category 'url') -----
urlGet: aUrl
| page |
page := HTTPSocket httpGet: aUrl accept: 'application/octet-stream'.
(page respondsTo: #reset) ifFalse: [ ^ nil ].
+ (self isHtmlStream: page) ifTrue: [ page := self extractFromHtml: page option: nil ].
- (self isHtmlStream: page) ifTrue: [ self extractFromHtml: page option: nil ].
^ page reset
!
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: $/) copyAfterLast: $..
- ext := aFileName copyAfterLast: $..
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