Packages October 2008

packages@lists.squeakfoundation.org

3 participants
120 discussions

Monticello Public: Monticello.impl-kph.586.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 25 Oct '08

25 Oct '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-kph.586.mcz ==================== Summary ==================== Name: Monticello.impl-kph.586 Author: kph Time: 25 October 2008, 1:35:28 am UUID: 5b026f5f-8725-49b9-9a87-c406d0f0b481 Ancestors: Monticello.impl-mtf.585 improved performance of the Orphanage =============== Diff against Monticello.impl-mtf.585 =============== Item was changed: ----- Method: MCOrganizationDefinition>>commonPrefix (in category 'as yet unclassified') ----- commonPrefix | stream | categories isEmpty ifTrue: [^ '']. stream := String new writeStream. + categories first keysAndValuesDo: + [:i :c | - categories first withIndexDo: - [:c :i| categories do: [:ea | (ea at: i ifAbsent: []) = c ifFalse: [^ stream contents]]. stream nextPut: c]. ^ stream contents! Item was changed: ----- Method: MCMethodDefinition>>isPartOfPackage:or: (in category 'testing') ----- isPartOfPackage: aPackageInfo or: orphanage | myOrphanedClassDefiniton | (aPackageInfo isYourClassExtension: self category) ifTrue: [ ^ true ]. + myOrphanedClassDefiniton := orphanage orphans + detect: [ :c | c isClassDefinition and: [ c className = self className ] ] ifNone: [ ^ false ]. - myOrphanedClassDefiniton := orphanage orphanClasses - detect: [ :c | c className = self className ] ifNone: [ ^ false ]. ^ aPackageInfo includesSystemCategory: myOrphanedClassDefiniton category ! Item was changed: ----- Method: MCOrphanage>>orphanClasses (in category 'accessing') ----- orphanClasses + ^ self orphans asOrderedCollection select: [ :o | o isClassDefinition ]. + + ! - ^ self orphans select: [ :o | o isClassDefinition ].!

1 0

Installer: Installer-Core-mtf.248.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 24 Oct '08

24 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.248.mcz ==================== Summary ==================== Name: Installer-Core-mtf.248 Author: mtf Time: 23 October 2008, 4:27:03 pm UUID: f54dd95b-7fbb-473c-823a-2e2f49f19c7d Ancestors: Installer-Core-mtf.247 made the syntax "Installer url install: 'http://a.b.c/file.st" work =============== Diff against Installer-Core-mtf.247 =============== Item was changed: ----- Method: Installer class>>url (in category 'url') ----- url + ^ InstallerUrl new url: ''! - ^ InstallerUrl new!

1 0

Installer: Installer-Core-mtf.247.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 24 Oct '08

24 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.247.mcz ==================== Summary ==================== Name: Installer-Core-mtf.247 Author: mtf Time: 23 October 2008, 4:11:36 pm UUID: bd538b3b-3a6f-49a4-be0f-a27c6b83e3ec Ancestors: Installer-Core-kph.246 Installer installFile: was broken. Installer file: was broken Made the syntax "Installer file install: 'filename'" work =============== Diff against Installer-Core-kph.246 =============== Item was added: + ----- Method: Installer class>>file: (in category 'file') ----- + file: fileName + + ^ InstallerFile new file: fileName; yourself + ! Item was changed: ----- Method: InstallerFile>>file (in category 'accessing') ----- file + ^ self package! - ^ afile! Item was added: + ----- Method: Installer class>>installFile: (in category 'file') ----- + installFile: fileName + + ^ (self file: fileName) install. + ! Item was changed: ----- Method: InstallerFile>>file: (in category 'accessing') ----- file: f + self package: f! - - afile := f! Item was changed: Installer subclass: #InstallerFile + instanceVariableNames: '' - instanceVariableNames: 'afile' classVariableNames: '' poolDictionaries: '' category: 'Installer-Core'! Item was added: + ----- Method: Installer class>>file (in category 'file') ----- + file + + ^ InstallerFile new! Item was removed: - ----- Method: InstallerFile class>>installFile: (in category 'instanciation') ----- - installFile: fileName - - ^ (self file: fileName) install. - ! Item was removed: - ----- Method: InstallerFile class>>file: (in category 'instanciation') ----- - file: fileName - - ^ InstallerFile new file: fileName; yourself - !

1 0

Installer: Installer-Core-kph.246.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 24 Oct '08

24 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.246.mcz ==================== Summary ==================== Name: Installer-Core-kph.246 Author: kph Time: 23 October 2008, 11:10:09 pm UUID: 2128dd54-5b20-4e32-930c-afc5fefab8b8 Ancestors: Installer-Core-mtf.245 added CR after loaded messages =============== Diff against Installer-Core-mtf.245 =============== Item was changed: ----- Method: InstallerMonticello>>basicInstall (in category 'basic interface') ----- basicInstall self withAnswersDo: [ self mcThing load ]. + self logCR: 'loaded'. - self log: 'loaded'. !

1 0

Installer: Installer-Core-mtf.245.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 23 Oct '08

23 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.245.mcz ==================== Summary ==================== Name: Installer-Core-mtf.245 Author: mtf Time: 23 October 2008, 1:55:24 pm UUID: 821e6e62-edaf-4b30-8456-cdde56e46937 Ancestors: Installer-Core-mtf.235, Installer-Core-kph.244 reverted the MC instanciation code to the way it was before the refactor =============== Diff against Installer-Core-mtf.235 =============== Item was added: + ----- Method: InstallerWeb>>urlToDownload (in category 'web install') ----- + urlToDownload + + "while we look for a url which returns what we are looking for, we get the data anyway" + + | delay retry | + delay := 0. + self class webSearchPath do: [ :pathSpec | | potentialUrl readPathSpec | + readPathSpec := pathSpec value readStream. + potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). + [ retry := false. pageDataStream := self urlGet: potentialUrl ] doWhileTrue: [ + self wasPbwikiSpeedWarning + ifTrue: [ retry := true. delay := delay + 5. + self logCR: 'PBWiki speed warning. Retrying in ', delay printString, ' seconds'. + (Delay forSeconds: delay) wait] + ifFalse: [ self hasPage ifTrue: [ pageDataStream reset. ^ potentialUrl ] ]. + retry ]]. + ^nil + ! Item was changed: ----- Method: Installer>>logCR: (in category 'logging') ----- logCR: text self validate. + ^ Transcript show: text; cr! - ^ Transcript cr; show: text! Item was changed: ----- Method: InstallerWeb>>basicBrowse (in category 'basic interface') ----- basicBrowse + self thing size > 0 - self webThing size > 0 ifTrue: [ self browse: url from: pageDataStream ] ifFalse: [ self logCR: 'NO DATA ',url,' was empty' ]. ! Item was changed: ----- Method: InstallerMantis>>ensureFix: (in category 'public interface') ----- ensureFix: aBugNo | fixesAppliedNumbers | self setBug: aBugNo. + fixesAppliedNumbers := self fixesApplied collect: [ :fixDesc | fixDesc asInteger ]. - fixesAppliedNumbers := self class fixesApplied collect: [ :fixDesc | fixDesc asInteger ]. (fixesAppliedNumbers includes: bug) ifFalse: [ self fixBug: aBugNo ]! Item was added: + ----- Method: Installer>>packageAndVersionFrom: (in category 'squeakmap') ----- + packageAndVersionFrom: pkg + + | p | + p := ReadStream on: pkg . + ^Array with: (p upTo: $() with: (p upTo: $)).! Item was changed: ----- Method: Installer class>>universe (in category 'universe') ----- universe + ^ InstallerUniverse default! - ^ InstallerUniverse new universe: (self classUGlobalInstaller universe: self classUUniverse systemUniverse)! Item was changed: ----- Method: InstallerUrl>>urlThing (in category 'url') ----- urlThing + | retry delay | + self logCR: 'retrieving ', self urlToDownload , ' ...'. + + delay := 0. + [ retry := false. pageDataStream := self urlGet: self urlToDownload ] + doWhileTrue: [ + self wasPbwikiSpeedWarning ifTrue: [retry := true. delay := delay + 5. + self logCR: 'PBWiki speed warning. Retrying in ', delay printString, ' seconds'. + (Delay forSeconds: delay) wait ]. + + retry ]. + + pageDataStream ifNil: [ self error: 'unable to contact host' ]. - (pageDataStream := self urlGet: self urlToDownload) - ifNil: [ self error: 'unable to contact host' ]. ^ pageDataStream ! Item was changed: ----- Method: InstallerMantis>>bug:fix:date: (in category 'public interface') ----- bug: aBugNo fix: aFileName date: aDate | fixed | self setBug: aBugNo. self ditchOldChangeSetFor: aFileName. self install: aFileName from: (self maThing: aFileName date: aDate). + fixed := self fixesApplied. - fixed := self class fixesApplied. (fixed isEmpty or: [ fixed last ~= aBugNo]) ifTrue: [ fixed add: aBugNo ]. ^ date! Item was added: + ----- Method: InstallerUniverse class>>default (in category 'instance creation') ----- + default + + ^ self universe: (self classUGlobalInstaller universe: self classUUniverse systemUniverse)! Item was added: + ----- Method: InstallerMonticello>>unload: (in category 'public interface') ----- + unload: match + + (MCWorkingCopy allManagers select: [ :wc | match match: (wc package name) ]) + do: [ :wc | + self logCR: 'Unloading ', wc package asString. + wc unload.]. + self unloadCleanUp! Item was added: + ----- Method: InstallerUniverse class>>universe: (in category 'instance creation') ----- + universe: u + + ^ self new universe: u! Item was added: + ----- Method: InstallerMonticello>>unloadCleanUp (in category 'public interface') ----- + unloadCleanUp + + SystemOrganization removeEmptyCategories. + + "Until Mantis 5718 is addressed" + Smalltalk at: #PackagePaneBrowser ifPresent: [ :ppbClass | ppbClass allInstancesDo: [ :ppb | ppb updatePackages ] ]. + Smalltalk at: #Browser ifPresent: [ :bClass | bClass allInstancesDo: [ :b | b updateSystemCategories ] ]. + MCFileBasedRepository freeSomeSpace. + SmalltalkImage current fixObsoleteReferences.! Item was changed: ----- Method: InstallerWeb>>basicInstall (in category 'basic interface') ----- basicInstall + self thing size > 0 - self webThing size > 0 ifTrue: [ self install: url from: pageDataStream ] ifFalse: [ url ifNil: [ ^ self logCR: self package, ' not found on webSearchPath' ]. self logCR: '...',url,' was empty' ]. ! Item was added: + ----- Method: InstallerInternetBased>>wasPbwikiSpeedWarning (in category 'url') ----- + wasPbwikiSpeedWarning + + ^ self hasPage and: [pageDataStream contents includesSubString: 'Please slow down a bit' ] + + ! Item was added: + ----- Method: InstallerMantis>>fixesApplied (in category 'public interface') ----- + fixesApplied + + ^ Fixes ifNil: [ Fixes := OrderedCollection new ].! Item was added: + ----- Method: InstallerWeb>>thing (in category 'web install') ----- + thing + + self logCR: 'searching for web package ''', self package, ''''. + url := self urlToDownload. + url ifNil: [ self logCR: 'page ', self package, ' not found on path' ] + ifNotNil: [ self logCR: 'found ', url, ' ...'. ]. + ^ pageDataStream! Item was changed: ----- Method: InstallerWeb>>action:reportOn: (in category 'action report') ----- action: line reportOn: report self package: (line readStream upTo: $' ; upTo: $'). self reportSection: line on: report. + url := self urlToDownload. - url := self webFindUrlToDownload. self reportFor: line page: pageDataStream on: report ! Item was added: + ----- Method: InstallerInternetBased>>hasPage (in category 'url') ----- + hasPage + + ^ pageDataStream notNil and: [ pageDataStream size > 0 ] + ! Item was changed: ----- Method: InstallerWeb>>basicView (in category 'basic interface') ----- basicView + self thing size > 0 - self webThing size > 0 ifTrue: [ self view: url from: pageDataStream ] ifFalse: [ self logCR: 'NO DATA ',url,' was empty' ]. ! Item was removed: - ----- Method: InstallerWeb>>webThing (in category 'web install') ----- - webThing - - url := self webFindUrlToDownload. - url ifNil: [ self logCR: 'page ', self package, ' not found on path' ] - ifNotNil: [ self logCR: 'found ', url, ' ...'. ]. - ^ pageDataStream! Item was removed: - ----- Method: InstallerMonticello class>>unloadCleanUp (in category 'unload') ----- - unloadCleanUp - - SystemOrganization removeEmptyCategories. - - "Until Mantis 5718 is addressed" - Smalltalk at: #PackagePaneBrowser ifPresent: [ :ppbClass | ppbClass allInstancesDo: [ :ppb | ppb updatePackages ] ]. - Smalltalk at: #Browser ifPresent: [ :bClass | bClass allInstancesDo: [ :b | b updateSystemCategories ] ]. - MCFileBasedRepository freeSomeSpace. - SmalltalkImage current fixObsoleteReferences.! Item was removed: - ----- Method: InstallerMonticello class>>unload: (in category 'unload') ----- - unload: match - - (MCWorkingCopy allManagers select: [ :wc | match match: (wc package name) ]) - do: [ :wc | - self logCR: 'Unloading ', wc package asString. - wc unload.]. - self unloadCleanUp! Item was removed: - ----- Method: InstallerSqueakMap>>packageAndVersionFrom: (in category 'squeakmap') ----- - packageAndVersionFrom: pkg - - | p | - p := ReadStream on: pkg . - ^Array with: (p upTo: $() with: (p upTo: $)).! Item was removed: - ----- Method: InstallerWeb>>webFindUrlToDownload (in category 'web install') ----- - webFindUrlToDownload - - | delay retry | - delay := 0. - self class webSearchPath - do: [ :pathSpec | - | potentialUrl readPathSpec | - readPathSpec := pathSpec value readStream. - potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). - [ retry := false. pageDataStream := self urlGet: potentialUrl ] - doWhileTrue: [ - (pageDataStream notNil and: [ pageDataStream size > 0 ]) - ifTrue: [ (pageDataStream contents includesSubString: 'Please slow down a bit') - ifTrue: [ retry := true ] - ifFalse: [ pageDataStream reset. - ^ potentialUrl ] ]. - (Delay forSeconds: (delay := delay + 5)) wait. - retry ]]. - ^nil - !

1 0

Installer: Installer-Core-mtf.235.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 23 Oct '08

23 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.235.mcz ==================== Summary ==================== Name: Installer-Core-mtf.235 Author: mtf Time: 23 October 2008, 1:32:03 pm UUID: 793eed98-0866-4d18-a860-f6b92679b63f Ancestors: Installer-Core-mtf.234 moved InstallerMonticello instanciation methods back to the instance side, where they were before =============== Diff against Installer-Core-mtf.234 =============== Item was added: + ----- Method: InstallerMonticello>>classMCVersionLoader (in category 'class references') ----- + classMCVersionLoader + + ^Smalltalk at: #MCVersionLoader ifAbsent: [ self error: 'Monticello not present' ]! Item was added: + ----- Method: InstallerMonticello>>magma:port: (in category 'instance creation') ----- + magma: host port: aport + + mc := (self classMCMagmaRepository new) host: host port: aport; yourself + ! Item was added: + ----- Method: InstallerMonticello>>classMCGOODSRepository (in category 'class references') ----- + classMCGOODSRepository + + ^Smalltalk at: #MCGOODSRepository ifAbsent: [ self error: 'Monticello not present' ] + ! Item was added: + ----- Method: InstallerMonticello>>ftp:directory:user:password: (in category 'instance creation') ----- + ftp: host directory: dir user: name password: secret + "Installer mc ftp: 'mc.gjallar.se' directory: '' user: 'gjallar' password: secret." + + mc := self classMCFtpRepository host: host directory: dir user: name password: ''. + root := dir. + ! Item was added: + ----- Method: InstallerMonticello>>directory: (in category 'instance creation') ----- + directory: dir + + | directory | + directory := dir isString + ifTrue: [ FileDirectory on: (FileDirectory default fullNameFor: dir) ] + ifFalse: [ dir ]. + + mc := self classMCDirectoryRepository new directory: directory; yourself. + root := dir + + ! Item was added: + ----- Method: InstallerMonticello>>classMCMagmaRepository (in category 'class references') ----- + classMCMagmaRepository + + ^Smalltalk at: #MCMagmaRepository ifAbsent: [ self error: 'Magma not present' ] + ! Item was added: + ----- Method: InstallerMonticello>>cache (in category 'instance creation') ----- + cache + + mc := self classMCCacheRepository default. + root := mc directory localName + ! Item was added: + ----- Method: InstallerMonticello>>classMCHttpRepository (in category 'class references') ----- + classMCHttpRepository + + ^Smalltalk at: #MCHttpRepository ifAbsent: [ self error: 'Monticello not present' ] + ! Item was added: + ----- Method: InstallerMonticello>>http: (in category 'instance creation') ----- + http: aUrl + + self http: aUrl user: 'squeak' password: 'squeak' + + ! Item was added: + ----- Method: InstallerMonticello>>classMCCacheRepository (in category 'class references') ----- + classMCCacheRepository + + ^Smalltalk at: #MCCacheRepository ifAbsent: [ self error: 'Monticello not present' ] + ! Item was added: + ----- Method: InstallerMonticello>>classMCDirectoryRepository (in category 'class references') ----- + classMCDirectoryRepository + + ^Smalltalk at: #MCDirectoryRepository ifAbsent: [ self error: 'Monticello not present' ] + ! Item was added: + ----- Method: InstallerMonticello>>classMCSmtpRepository (in category 'class references') ----- + classMCSmtpRepository + + ^Smalltalk at: #MCSmtpRepository ifAbsent: [ self error: 'Monticello not present' ] + ! Item was changed: ----- Method: InstallerMonticello>>mcThing (in category 'monticello') ----- mcThing | loader files fileToLoad version count | + loader := self classMCVersionLoader new. - loader := self class classMCVersionLoader new. 1 to: self packages size do: [ :n | self logCR: 'finding ', self package asString, '...'. "several attempts to read files - repository readableFileNames sometimes fails" count := 0. fileToLoad := nil. [count := count + 1. (fileToLoad = nil) and:[ count < 5 ] ] whileTrue: [ files := mc readableFileNames asSortedCollection: self mcSortFileBlock. fileToLoad := files detect: self mcDetectFileBlock ifNone: [ nil ]. ]. version := mc versionFromFileNamed: fileToLoad. (version isKindOf: MCConfiguration) ifTrue: [ ^ version ] ifFalse:[version workingCopy repositoryGroup addRepository: mc. loader addVersion: version]. self log: ' found ', version fileName, '...'. packages removeFirst. ]. ^ loader! Item was added: + ----- Method: InstallerMonticello>>classMCFtpRepository (in category 'class references') ----- + classMCFtpRepository + + ^Smalltalk at: #MCFtpRepository ifAbsent: [ self error: 'Monticello not present' ] + ! Item was added: + ----- Method: InstallerMonticello>>goods:port: (in category 'instance creation') ----- + goods: host port: aport + + mc := (self classMCGOODSRepository new) host: host port: aport; yourself + ! Item was changed: ----- Method: Installer class>>monticello (in category 'monticello') ----- monticello + ^ InstallerMonticello new! - ^ InstallerMonticello! Item was added: + ----- Method: InstallerMonticello>>http:user:password: (in category 'instance creation') ----- + http: aUrl user: name password: secret + + mc := self classMCHttpRepository location: aUrl user: name password: secret. + root := mc locationWithTrailingSlash + ! Item was removed: - ----- Method: InstallerMonticello class>>classMCCacheRepository (in category 'class references') ----- - classMCCacheRepository - - ^Smalltalk at: #MCCacheRepository ifAbsent: [ self error: 'Monticello not present' ] - ! Item was removed: - ----- Method: InstallerMonticello class>>classMCDirectoryRepository (in category 'class references') ----- - classMCDirectoryRepository - - ^Smalltalk at: #MCDirectoryRepository ifAbsent: [ self error: 'Monticello not present' ] - ! Item was removed: - ----- Method: InstallerMonticello class>>classMCSmtpRepository (in category 'class references') ----- - classMCSmtpRepository - - ^Smalltalk at: #MCSmtpRepository ifAbsent: [ self error: 'Monticello not present' ] - ! Item was removed: - ----- Method: InstallerMonticello class>>classMCFtpRepository (in category 'class references') ----- - classMCFtpRepository - - ^Smalltalk at: #MCFtpRepository ifAbsent: [ self error: 'Monticello not present' ] - ! Item was removed: - ----- Method: InstallerMonticello class>>cache (in category 'instance creation') ----- - cache - | mc | - ^ self new - mc: (mc := self classMCCacheRepository default) - root: mc directory localName - ! Item was removed: - ----- Method: InstallerMonticello class>>goods:port: (in category 'instance creation') ----- - goods: host port: aport - - ^ self new mc: ((self classMCGOODSRepository new) host: host port: aport; yourself) - ! Item was removed: - ----- Method: InstallerMonticello class>>classMCVersionLoader (in category 'class references') ----- - classMCVersionLoader - - ^Smalltalk at: #MCVersionLoader ifAbsent: [ self error: 'Monticello not present' ]! Item was removed: - ----- Method: Installer class>>http: (in category 'instance creation') ----- - http: aUrl - - ^ self http: aUrl user: 'squeak' password: 'squeak' - - ! Item was removed: - ----- Method: InstallerMonticello class>>magma:port: (in category 'instance creation') ----- - magma: host port: aport - - ^ self new mc: (self classMCMagmaRepository new) host: host port: aport; yourself! Item was removed: - ----- Method: InstallerMonticello class>>classMCGOODSRepository (in category 'class references') ----- - classMCGOODSRepository - - ^Smalltalk at: #MCGOODSRepository ifAbsent: [ self error: 'Monticello not present' ] - ! Item was removed: - ----- Method: InstallerMonticello class>>http:user:password: (in category 'instance creation') ----- - http: aUrl user: name password: secret - - | mc | - ^ self new - mc: (mc := self classMCHttpRepository location: aUrl user: name password: secret) - root: mc locationWithTrailingSlash! Item was removed: - ----- Method: InstallerMonticello class>>ftp:directory:user:password: (in category 'instance creation') ----- - ftp: host directory: dir user: name password: secret - "Installer mc ftp: 'mc.gjallar.se' directory: '' user: 'gjallar' password: secret." - - ^ self new - mc: (self classMCFtpRepository host: host directory: dir user: name password: '') - root: dir! Item was removed: - ----- Method: InstallerMonticello>>mc:root: (in category 'initialize-release') ----- - mc: aRepo root: aPath - mc := aRepo. - root := aPath.! Item was removed: - ----- Method: InstallerMonticello class>>directory: (in category 'instance creation') ----- - directory: dir - - | directory | - directory := dir isString - ifTrue: [ FileDirectory on: (FileDirectory default fullNameFor: dir) ] - ifFalse: [ dir ]. - - ^ self new - mc: (self classMCDirectoryRepository new directory: directory; yourself) - root: dir! Item was removed: - ----- Method: InstallerMonticello class>>classMCMagmaRepository (in category 'class references') ----- - classMCMagmaRepository - - ^Smalltalk at: #MCMagmaRepository ifAbsent: [ self error: 'Magma not present' ] - ! Item was removed: - ----- Method: InstallerMonticello class>>classMCHttpRepository (in category 'class references') ----- - classMCHttpRepository - - ^Smalltalk at: #MCHttpRepository ifAbsent: [ self error: 'Monticello not present' ] - !

1 0

Installer: Installer-Core-kph.244.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 23 Oct '08

23 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.244.mcz ==================== Summary ==================== Name: Installer-Core-kph.244 Author: kph Time: 23 October 2008, 8:58:28 pm UUID: 2cc0e2b8-0b72-4299-b6cf-ffdf247f82f5 Ancestors: Installer-Core-kph.243 moved InstallerMonticello configuration/public interface to the instance side for compatability =============== Diff against Installer-Core-kph.243 =============== Item was added: + ----- Method: InstallerMonticello>>magma:port: (in category 'public interface') ----- + magma: host port: aport + + ^ self mc: (self classMCMagmaRepository new) host: host port: aport; yourself! Item was added: + ----- Method: InstallerMonticello>>ftp:directory:user:password: (in category 'public interface') ----- + ftp: host directory: dir user: name password: secret + "Installer mc ftp: 'mc.gjallar.se' directory: '' user: 'gjallar' password: secret." + + ^ self + mc: (self classMCFtpRepository host: host directory: dir user: name password: '') + root: dir! Item was added: + ----- Method: InstallerMonticello>>directory: (in category 'public interface') ----- + directory: dir + + | directory | + directory := dir isString + ifTrue: [ FileDirectory on: (FileDirectory default fullNameFor: dir) ] + ifFalse: [ dir ]. + + ^ self mc: (self classMCDirectoryRepository new directory: directory; yourself) root: dir! Item was added: + ----- Method: InstallerMonticello>>cache (in category 'public interface') ----- + cache + | repo | + ^ self + mc: (repo := self classMCCacheRepository default) + root: repo directory localName + ! Item was added: + ----- Method: InstallerMonticello>>unload: (in category 'public interface') ----- + unload: match + + (MCWorkingCopy allManagers select: [ :wc | match match: (wc package name) ]) + do: [ :wc | + self logCR: 'Unloading ', wc package asString. + wc unload.]. + self unloadCleanUp! Item was added: + ----- Method: InstallerMonticello>>unloadCleanUp (in category 'public interface') ----- + unloadCleanUp + + SystemOrganization removeEmptyCategories. + + "Until Mantis 5718 is addressed" + Smalltalk at: #PackagePaneBrowser ifPresent: [ :ppbClass | ppbClass allInstancesDo: [ :ppb | ppb updatePackages ] ]. + Smalltalk at: #Browser ifPresent: [ :bClass | bClass allInstancesDo: [ :b | b updateSystemCategories ] ]. + MCFileBasedRepository freeSomeSpace. + SmalltalkImage current fixObsoleteReferences.! Item was added: + ----- Method: InstallerMonticello>>goods:port: (in category 'public interface') ----- + goods: host port: aport + + ^ self mc: ((self classMCGOODSRepository new) host: host port: aport; yourself) + ! Item was changed: ----- Method: Installer class>>monticello (in category 'monticello') ----- monticello + ^ InstallerMonticello new! - ^ InstallerMonticello! Item was added: + ----- Method: InstallerMonticello>>http:user:password: (in category 'public interface') ----- + http: aUrl user: name password: secret + + | repo | + ^ self + mc: (repo := self classMCHttpRepository location: aUrl user: name password: secret) + root: repo locationWithTrailingSlash! Item was removed: - ----- Method: InstallerMonticello class>>unloadCleanUp (in category 'unload') ----- - unloadCleanUp - - SystemOrganization removeEmptyCategories. - - "Until Mantis 5718 is addressed" - Smalltalk at: #PackagePaneBrowser ifPresent: [ :ppbClass | ppbClass allInstancesDo: [ :ppb | ppb updatePackages ] ]. - Smalltalk at: #Browser ifPresent: [ :bClass | bClass allInstancesDo: [ :b | b updateSystemCategories ] ]. - MCFileBasedRepository freeSomeSpace. - SmalltalkImage current fixObsoleteReferences.! Item was removed: - ----- Method: InstallerMonticello class>>cache (in category 'instance creation') ----- - cache - | mc | - ^ self new - mc: (mc := self classMCCacheRepository default) - root: mc directory localName - ! Item was removed: - ----- Method: InstallerMonticello class>>goods:port: (in category 'instance creation') ----- - goods: host port: aport - - ^ self new mc: ((self classMCGOODSRepository new) host: host port: aport; yourself) - ! Item was removed: - ----- Method: InstallerMonticello class>>unload: (in category 'unload') ----- - unload: match - - (MCWorkingCopy allManagers select: [ :wc | match match: (wc package name) ]) - do: [ :wc | - self logCR: 'Unloading ', wc package asString. - wc unload.]. - self unloadCleanUp! Item was removed: - ----- Method: InstallerMonticello class>>magma:port: (in category 'instance creation') ----- - magma: host port: aport - - ^ self new mc: (self classMCMagmaRepository new) host: host port: aport; yourself! Item was removed: - ----- Method: InstallerMonticello class>>http:user:password: (in category 'instance creation') ----- - http: aUrl user: name password: secret - - | mc | - ^ self new - mc: (mc := self classMCHttpRepository location: aUrl user: name password: secret) - root: mc locationWithTrailingSlash! Item was removed: - ----- Method: InstallerMonticello class>>ftp:directory:user:password: (in category 'instance creation') ----- - ftp: host directory: dir user: name password: secret - "Installer mc ftp: 'mc.gjallar.se' directory: '' user: 'gjallar' password: secret." - - ^ self new - mc: (self classMCFtpRepository host: host directory: dir user: name password: '') - root: dir! Item was removed: - ----- Method: InstallerMonticello class>>directory: (in category 'instance creation') ----- - directory: dir - - | directory | - directory := dir isString - ifTrue: [ FileDirectory on: (FileDirectory default fullNameFor: dir) ] - ifFalse: [ dir ]. - - ^ self new - mc: (self classMCDirectoryRepository new directory: directory; yourself) - root: dir!

1 0

Installer: Installer-Core-AlexandreBergel.244.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 23 Oct '08

23 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-AlexandreBergel.244.mcz ==================== Summary ==================== Name: Installer-Core-AlexandreBergel.244 Author: AlexandreBergel Time: 23 October 2008, 5:53:02 pm UUID: 2080ff3e-6f59-4f15-91c2-ff07703cbccf Ancestors: Installer-Core-kph.243 added #installLatest: method to Installer =============== Diff against Installer-Core-kph.243 =============== Item was added: + ----- Method: Installer>>installLatest: (in category 'instanciation') ----- + installLatest: packageNameCollectionOrDetectBlock + | versions | + self addPackage: packageNameCollectionOrDetectBlock. + versions := (self availablePackages select: [:e | e beginsWith: packageNameCollectionOrDetectBlock]) asSortedCollection: [:a :b | + [(a findBetweenSubStrs: #($.)) allButLast last asInteger > (b findBetweenSubStrs: #($.)) allButLast last asInteger] + on: Error do: [:ex | false]]. + versions isEmpty ifTrue: [^ self]. + self packages removeLast. + self addPackage: versions first. + + ^ self install!

2 1

SystemEditor: TraitEditor-mtf.12.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 22 Oct '08

22 Oct '08

A new version of TraitEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/TraitEditor-mtf.12.mcz ==================== Summary ==================== Name: TraitEditor-mtf.12 Author: mtf Time: 21 October 2008, 10:21:49 pm UUID: 06e532cd-ef6f-4ef8-83ef-75abd40f4bd6 Ancestors: TraitEditor-mtf.11 filled in missing code, mostly in the area of TraitCompositionEditor building =============== Diff against TraitEditor-mtf.11 =============== Item was added: + ----- Method: TraitComposition>>asTraitCompositionEditor (in category '*TraitEditor') ----- + asTraitCompositionEditor + ^ TraitCompositionEditor from: self! Item was added: + ----- Method: TraitDescriptionEditor>>asTraitCompositionEditor (in category 'reflecting') ----- + asTraitCompositionEditor + ^TraitCompositionEditor with: self! Item was added: + ----- Method: TraitEditor>>asTraitCompositionEditor (in category 'reflecting') ----- + asTraitCompositionEditor + ^TraitCompositionEditor with: self! Item was added: + ----- Method: SequenceableCollection>>asTraitCompositionEditor (in category '*TraitEditor') ----- + asTraitCompositionEditor + ^ self asTraitComposition asTraitCompositionEditor! Item was added: + ----- Method: TraitEditor>>edPrepareExport: (in category 'building') ----- + edPrepareExport: exporter + ^exporter addClass: self product! Item was changed: ----- Method: TraitDescriptionEditor>>edExpandEditors (in category 'building') ----- edExpandEditors + | users | + users := self users collect: [:ea | ea theNonMetaClass]. + users do: [:ea | ea edTraitModified]. + ^ users! - ^ self users collect: [:ea | ea theNonMetaClass]! Item was added: + ----- Method: TraitEditor>>edBuild (in category 'building') ----- + edBuild + product := Trait + named: self name + uses: #() + category: self category. + + "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" + product methodDictionary: MethodDictionary new. + + product organization: self organization edBuild. + self decoratorsDo: [:ea | ea edBuild]. + + product methodDictionary: (self methods buildFor: self). + ^product! Item was added: + ----- Method: TraitCompositionEditor>>isEmpty (in category 'reflecting') ----- + isEmpty + ^self transformations isEmpty! Item was changed: AbstractEditor subclass: #TraitCompositionEditor instanceVariableNames: 'subject transformations' classVariableNames: '' poolDictionaries: '' category: 'TraitEditor'! + !TraitCompositionEditor commentStamp: 'mtf 10/20/2008 11:22' prior: 0! + I store the new version of a TraitComposition. I don't use any kind of diff between the subject and product. For now at least, I don't use a TraitTransformationEditor, but use plain TraitTransforms which include TraitEditors + + Unlike most editors, I am not persistent. Transient instances of myself are usually built, and only then is my subject and environment set. This is how TraitDescriptions work, so, that is how I work! - !TraitCompositionEditor commentStamp: 'mtf 10/14/2008 10:02' prior: 0! - I store the new version of a TraitComposition. I don't use any kind of diff between the subject and product. For now at least, I don't use a TraitTransformationEditor, but use plain TraitTransforms which include TraitEditors! Item was added: + ----- Method: TraitEditor>>category (in category 'reflecting') ----- + category + "If this isn't cached, SystemEditorBrowser is really slow. And it doesn't affect the correctness of the editor, so do it by default" + ^ category ifNil: [category := subject category]! Item was added: + ----- Method: TComposingDescription>>asTraitCompositionEditor (in category '*TraitEditor') ----- + asTraitCompositionEditor + ^TraitCompositionEditor with: self! Item was added: + ----- Method: TraitTransformation>>asTraitCompositionEditor (in category '*TraitEditor') ----- + asTraitCompositionEditor + ^TraitCompositionEditor with: self! Item was added: + ----- Method: TraitCompositionEditor>>asTraitCompositionEditor (in category 'reflecting') ----- + asTraitCompositionEditor + ^ self! Item was added: + ----- Method: TraitCompositionEditor class>>from: (in category 'instance creation') ----- + from: aTraitComposition + ^ self new from: aTraitComposition! Item was added: + ----- Method: PureBehaviorEditor>>setTraitComposition: (in category '*TraitEditor') ----- + setTraitComposition: aTraitComposition + | oldComposition | + (self hasTraitComposition not and: [aTraitComposition isEmpty]) ifTrue: [^self]. + aTraitComposition assertValidUser: self. + + oldComposition := self traitComposition. + self traitComposition: aTraitComposition. + self applyChangesOfNewTraitCompositionReplacing: oldComposition. + + oldComposition traits do: [:each | each removeUser: self]. + aTraitComposition traits do: [:each | each addUser: self]! Item was added: + ----- Method: TraitDescription>>asTraitCompositionEditor (in category '*TraitEditor') ----- + asTraitCompositionEditor + ^TraitCompositionEditor with: self! Item was added: + ----- Method: PureBehaviorEditor>>edTraitModified (in category '*TraitEditor') ----- + edTraitModified + "Mark myself as having had a trait modified" + + self decorateWith: TraitCompositionDecorator! Item was removed: - Object subclass: #TraitTransformationEditor - instanceVariableNames: 'subject additions removals' - classVariableNames: '' - poolDictionaries: '' - category: 'TraitEditor'!

1 0

SystemEditor: SystemEditor-mtf.139.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 22 Oct '08

22 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.139.mcz ==================== Summary ==================== Name: SystemEditor-mtf.139 Author: mtf Time: 21 October 2008, 10:18:21 pm UUID: cf5beb08-d461-40b3-a260-19b3833555dc Ancestors: SystemEditor-mtf.138 various little fixes =============== Diff against SystemEditor-mtf.138 =============== Item was changed: ----- Method: MetaclassEditor>>edBuild (in category 'building') ----- edBuild | result class | class := self subject ifNil: [Metaclass] ifNotNil: [self subject class]. result := class basicNew. "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" result superclass: self edSuperclass methodDictionary: MethodDictionary new format: self format; organization: self organization edBuild. result setInstVarNames: self instVarNames. + self decoratorsDo: [:ea | ea edBuild]. ^ result! Item was added: + ----- Method: ClassDescriptionEditor>>edSuperclassRequiresRecompile (in category 'building') ----- + edSuperclassRequiresRecompile + ^ self superclassOrEditor edIsEditor and: [self superclassOrEditor edRequiresRecompile]! Item was changed: ----- Method: PureBehaviorEditor>>edPrepareMigration: (in category 'building') ----- edPrepareMigration: txn self subject ifNil: [^ self]. + methods ifNotNil: [methods edPrepareMigration: txn for: self]. + organization ifNotNil: [organization edPrepareMigration: txn]. - methods edPrepareMigration: txn for: self. - organization edPrepareMigration: txn. self decoratorsDo: [:ea | ea edPrepareMigration: txn]! Item was changed: ----- Method: ClassEditor>>edBuild (in category 'building') ----- edBuild | meta | meta := self class edBuild. product := subject ifNil: [meta new] ifNotNil: [meta adoptInstance: subject from: subject class]. product superclass: self edSuperclass; setFormat: self format; setName: self name; setInstVarNames: self instVarNames; classPoolFrom: self; instVarNamed: #sharedPools put: self sharedPools; organization: self organization edBuild. "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" product methodDictionary: MethodDictionary new. + self name == #NSByteStream ifTrue: [self halt]. + self decoratorsDo: [:ea | self halt. ea edBuild]. - self decoratorsDo: [:ea | ea edBuild]. "Class methods should be compiled before instance methods, since #compilerClass may be among the class methods. Class methods should be compiled after installing class and pool variables" product class methodDictionary: (self class methods buildFor: self class). product methodDictionary: (self methods buildFor: self). ^product! Item was changed: ----- Method: ClassExporter>>export: (in category 'private') ----- + export: aClass + ((aClass isBehavior) and: [aClass superclass notNil]) + ifTrue: [aClass superclass addSubclass: aClass]. - export: aClass - aClass superclass addSubclass: aClass. (environment includesKey: aClass name) ifTrue: [self replace: aClass] ifFalse: [environment at: aClass name put: aClass]! Item was removed: - ----- Method: ClassEditor>>edSuperclassRequiresRecompile (in category 'building') ----- - edSuperclassRequiresRecompile - ^ self superclassOrEditor edIsEditor and: [self superclassOrEditor edRequiresRecompile]!

1 0

← Newer
1
2
3
4
5
6
7
...
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2008