Packages July 2014

packages@lists.squeakfoundation.org

1 participants
291 discussions

The Trunk: Monticello-cmm.597.mcz
by commits＠source.squeak.org 27 Jul '14

27 Jul '14

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.597.mcz ==================== Summary ==================== Name: Monticello-cmm.597 Author: cmm Time: 26 July 2014, 7:20:36.737 pm UUID: 2787677e-bb50-4e0d-b3d0-6ee974696c2c Ancestors: Monticello-cmm.596 - 'browse mc origin' is now moved to the mc history browser. Thanks for the suggestion Eliot, this is precisely where it belongs. - Browsing origin takes a few seconds, show the #wait cursor during that time. Ah hell, show it for browse mc history too because are are network operations, and the network could possibly be slow. =============== Diff against Monticello-cmm.596 =============== Item was changed: ----- Method: BrowserRequestor>>browseMcClassHistory (in category '*monticello-history') ----- browseMcClassHistory "Open a browser on all versions of this class available in the MC repository for this package." self getClass ifNil: [ UIManager inform: 'No class selected' ] ifNotNilDo: + [ : theClass | (MCWorkingCopyBrowser mcModelFor: theClass theNonMetaClass) ifNotNil: + [ : mcModel | (MCOperationsList operations: (Cursor wait showWhile: [ theClass theNonMetaClass mcPatchOperations ])) browse ] ]! - [ : theClass | theClass mcModel - ifNil: [ UIManager inform: 'No Magma-based repository for ' , theClass packageInfo packageName ] - ifNotNilDo: - [ : mcModel | (MCOperationsList operations: theClass mcPatchOperations) browse ] ]! Item was removed: - ----- Method: BrowserRequestor>>browseMcClassOrigin (in category '*monticello-history') ----- - browseMcClassOrigin - "Open a Monticello version browser on the earliest version available in the repository known to contain this version." - self getClass - ifNil: [ UIManager inform: 'No method selected' ] - ifNotNilDo: - [ : selectedClass | selectedClass mcModel - ifNil: [ UIManager inform: 'No Magma-based repository for ' , selectedClass packageInfo packageName ] - ifNotNilDo: - [ : mcModel | (mcModel originOf: selectedClass asClassDefinition) - ifNil: [ UIManager inform: selectedClass asString , ' was not found in any Magma-based MC repository.' ] - ifNotNilDo: - [ : version | version open ] ] ]! Item was changed: ----- Method: BrowserRequestor>>browseMcMethodHistory (in category '*monticello-history') ----- browseMcMethodHistory "Open a browser on all versions of this method available in the MC repository for this package." self selectedMethodReference ifNil: [ UIManager inform: 'No method selected' ] ifNotNilDo: + [ : methodReference | (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: [ (MCOperationsList operations: (Cursor wait showWhile: [ methodReference mcPatchOperations ])) browse ] ]! - [ : methodReference | (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: [ (MCOperationsList operations: methodReference mcPatchOperations) browse ] ]! Item was removed: - ----- Method: BrowserRequestor>>browseMcMethodOrigin (in category '*monticello-history') ----- - browseMcMethodOrigin - "Open a Monticello version browser on the earliest version available in the repository known to contain this version." - self selectedMethodReference - ifNil: [ UIManager inform: 'No method selected' ] - ifNotNilDo: - [ : methodReference | (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: - [ : mcModel | (mcModel originOf: methodReference asMethodDefinition) - ifNil: [ UIManager inform: methodReference asString , ' was not found in the historical MC repository.' ] - ifNotNilDo: [ : version | version open ] ] ]! Item was removed: - ----- Method: BrowserRequestor>>canBrowseMcClassHistory (in category '*monticello-history') ----- - canBrowseMcClassHistory - ^ self getClass - ifNil: [ false ] - ifNotNilDo: - [ : class | class mcModel notNil ]! Item was removed: - ----- Method: Class>>mcOrigin (in category '*monticello') ----- - mcOrigin - "Answer the MCVersion in which this definition of this class was originally committed." - ^ self mcModel ifNotNil: [ : mcmodel | mcmodel originOf: self ]! Item was removed: - ----- Method: MCDefinition>>findMcModel (in category 'private') ----- - findMcModel - "Find my WorkingCopy, use the first mcModel-capable repository in its reposigoryGroup." - self repositoryGroup repositoriesDo: - [ : each | each mcModel ifNotNilDo: - [ : mcModel | ^ mcModel ] ]. - ^ nil! Item was removed: - ----- Method: MCDefinition>>origin (in category 'private') ----- - origin - "Answer the MCVersion in which the receiver was originally committed." - ^ self mcModel ifNotNil: [ : model | model originOf: self ]! Item was changed: ----- Method: MCHttpRepository class>>initialize (in category 'class initialization') ----- initialize self unload. + (ServiceRegistry current serviceWithId: #browserMethodMenu) services add: self browseMcMethodHistoryService. + (ServiceRegistry current serviceWithId: #browserClassMenu) services add: self browseMcClassHistoryService! - (ServiceRegistry current serviceWithId: #browserMethodMenu) services - add: self browseMcMethodHistoryService ; - add: self browseMcMethodOriginService. - (ServiceRegistry current serviceWithId: #browserClassMenu) services - add: self browseMcClassHistoryService ; - add: self browseMcClassOriginService! Item was changed: ----- Method: MCOperationsBrowser>>browseSelectionOrigin (in category 'actions') ----- browseSelectionOrigin + | mcDefinition | selection ifNil: [ UIManager inform: 'Make a selection.' ]. + mcDefinition := selection definition. + Cursor wait showWhile: + [ (MCWorkingCopyBrowser mcModelFor: mcDefinition) ifNotNil: + [ : mcModel | (mcModel originOf: mcDefinition) + ifNil: [ UIManager inform: mcDefinition asString , ' was not found in any historical MC repository.' ] - selection definition isMethodDefinition ifTrue: - [ | methodReference | - methodReference := selection definition asMethodReference. - (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: - [ : mcModel | (mcModel originOf: methodReference asMethodDefinition) - ifNil: [ UIManager inform: methodReference asString , ' was not found in any historical MC repository.' ] ifNotNilDo: [ : version | version open ] ] ]! Item was changed: ----- Method: MCRepository class>>browseMcClassHistoryService (in category 'ui-support') ----- browseMcClassHistoryService ^ ServiceAction id: #browseMcClassHistory text: 'browse mc history' button: 'mc' + description: 'Browse the Monticello history of this class from the historical code repository.' - description: 'Browse the Monticello history of this class from the code repository.' action: [ : aBrowserRequestor | aBrowserRequestor browseMcClassHistory ] condition: + [ : aBrowserRequestor | true ]! - [ : aBrowserRequestor | aBrowserRequestor canBrowseMcClassHistory ]! Item was removed: - ----- Method: MCRepository class>>browseMcClassOriginService (in category 'ui-support') ----- - browseMcClassOriginService - ^ ServiceAction - id: #browseMcClassOrigin - text: 'browse mc origin' - button: 'mc' - description: 'Browse the Monticello version comments in which this class definition was originally committed.' - action: - [ : aBrowserRequestor | aBrowserRequestor browseMcClassOrigin ] - condition: - [ : aBrowserRequestor | aBrowserRequestor canBrowseMcClassHistory ]! Item was changed: ----- Method: MCRepository class>>browseMcMethodHistoryService (in category 'ui-support') ----- browseMcMethodHistoryService ^ ServiceAction id: #browseMcMethodHistory text: 'browse mc history' button: 'mc' + description: 'Browse the Monticello history of this method from the historical code repository.' - description: 'Browse the Monticello history of this method from the code repository.' action: [ : aBrowserRequestor | aBrowserRequestor browseMcMethodHistory ] condition: [ : aBrowserRequestor | true ]! Item was removed: - ----- Method: MCRepository class>>browseMcMethodOriginService (in category 'ui-support') ----- - browseMcMethodOriginService - ^ ServiceAction - id: #browseMcMethodOrigin - text: 'browse mc origin' - button: 'mc' - description: 'Browse the Monticello version comments in which this edition of this method was originally committed.' - action: - [ : aBrowserRequestor | aBrowserRequestor browseMcMethodOrigin ] - condition: - [ : aBrowserRequestor | true ]! Item was removed: - ----- Method: MethodReference>>mcOrigin (in category '*monticello') ----- - mcOrigin - "Answer the MCVersion in which this version of this method was originally committed." - ^ self mcModel ifNotNil: [ : mcmodel | mcmodel originOf: self ]! Item was added: + (PackageInfo named: 'Monticello') postscript: 'MCHttpRepository unload; initialize.'!

1 0

The Trunk: Monticello-cmm.597.mcz
by commits＠source.squeak.org 27 Jul '14

27 Jul '14

1 0

The Trunk: Monticello-cmm.597.mcz
by commits＠source.squeak.org 27 Jul '14

27 Jul '14

1 0

The Trunk: Monticello-cmm.596.mcz
by commits＠source.squeak.org 27 Jul '14

27 Jul '14

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.596.mcz ==================== Summary ==================== Name: Monticello-cmm.596 Author: cmm Time: 26 July 2014, 6:22:58.028 pm UUID: 32e8bf38-ae20-4356-b7b3-32e6568012ac Ancestors: Monticello-eem.595 - 'browse mc history' and 'browse mc origin' functions are now enabled all the time. If selected, and the historical repository hasn't been added to the necessary package, the system will now prompt the user to confirm its okay to add it to that package, instead of simply reporting an error message. Enablement. - However, about to remove 'browse mc origin' from all but the PathOperations browser. That's really where it belongs. Versioning before I do that, though, just in case. =============== Diff against Monticello-eem.595 =============== Item was changed: ----- Method: BrowserRequestor>>browseMcMethodHistory (in category '*monticello-history') ----- browseMcMethodHistory "Open a browser on all versions of this method available in the MC repository for this package." self selectedMethodReference ifNil: [ UIManager inform: 'No method selected' ] ifNotNilDo: + [ : methodReference | (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: [ (MCOperationsList operations: methodReference mcPatchOperations) browse ] ]! - [ : methodReference | methodReference mcModel - ifNil: [ UIManager inform: 'No Magma-based repository for ' , methodReference packageInfo packageName ] - ifNotNilDo: - [ : mcModel | (MCOperationsList operations: methodReference mcPatchOperations) browse ] ]! Item was changed: ----- Method: BrowserRequestor>>browseMcMethodOrigin (in category '*monticello-history') ----- browseMcMethodOrigin "Open a Monticello version browser on the earliest version available in the repository known to contain this version." self selectedMethodReference ifNil: [ UIManager inform: 'No method selected' ] ifNotNilDo: + [ : methodReference | (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: + [ : mcModel | (mcModel originOf: methodReference asMethodDefinition) + ifNil: [ UIManager inform: methodReference asString , ' was not found in the historical MC repository.' ] + ifNotNilDo: [ : version | version open ] ] ]! - [ : methodReference | methodReference mcModel - ifNil: [ UIManager inform: 'No Magma-based repository for ' , methodReference packageInfo packageName ] - ifNotNilDo: - [ : mcModel | (mcModel originOf: methodReference asMethodDefinition) - ifNil: [ UIManager inform: methodReference asString , ' was not found in any Magma-based MC repository.' ] - ifNotNilDo: - [ : version | version open ] ] ]! Item was removed: - ----- Method: BrowserRequestor>>canBrowseMcMethodHistory (in category '*monticello-history') ----- - canBrowseMcMethodHistory - ^ self selectedMethodReference - ifNil: [ false ] - ifNotNilDo: - [ : methodReference | methodReference mcModel notNil ]! Item was changed: ----- Method: MCDefinition>>mcModel (in category 'private') ----- mcModel + "Find my WorkingCopy, use the first mcModel-capable repository in its reposigoryGroup." + self repositoryGroup repositoriesDo: + [ : each | each mcModel ifNotNilDo: + [ : mcModel | ^ mcModel ] ]. + ^ nil! - ^ self findMcModel ifNil: [ super mcModel ]! Item was added: + ----- Method: MCHttpRepository class>>trunkBackup (in category 'well-known repositories') ----- + trunkBackup + ^ MCRepositoryGroup default repositories + detect: + [ : each | each isTrunkBackup ] + ifNone: + [ MCHttpRepository + location: MCHttpRepository trunkBackupUrlString + user: 'squeak' + password: 'squeak' ]! Item was added: + ----- Method: MCHttpRepository class>>trunkBackupUrlString (in category 'accessing') ----- + trunkBackupUrlString + ^ 'http://box4.squeak.org:8888/trunk'! Item was added: + ----- Method: MCHttpRepository>>isTrunkBackup (in category 'testing') ----- + isTrunkBackup + ^ location = self class trunkBackupUrlString! Item was changed: ----- Method: MCHttpRepository>>mcModel (in category 'overriding') ----- mcModel "Answer the object which can respond to #historyOf: and #originOf:." + ^ ((location beginsWith: 'http://localhost:8888/') or: [ location beginsWith: self class trunkBackupUrlString ]) ifTrue: [ self ]! - ^ ((location beginsWith: 'http://localhost:8888/') or: [ location beginsWith: 'http://box4.squeak.org:8888/' ]) ifTrue: [ self ]! Item was added: + ----- Method: MCOperationsBrowser>>browseSelectionOrigin (in category 'actions') ----- + browseSelectionOrigin + selection ifNil: [ UIManager inform: 'Make a selection.' ]. + selection definition isMethodDefinition ifTrue: + [ | methodReference | + methodReference := selection definition asMethodReference. + (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: + [ : mcModel | (mcModel originOf: methodReference asMethodDefinition) + ifNil: [ UIManager inform: methodReference asString , ' was not found in any historical MC repository.' ] + ifNotNilDo: + [ : version | version open ] ] ]! Item was changed: ----- Method: MCOperationsBrowser>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu selection ifNotNil: [aMenu addList:#( ('install' installSelection) ('revert' revertSelection) + ('browse origin' browseSelectionOrigin) -)]. self unchangedMethods ifNotEmpty: [aMenu addList:#( ('revert unchanged methods...' revertUnchangedMethods) -)]. super methodListMenu: aMenu. + ^ aMenu! - ^ aMenu - ! Item was added: + ----- Method: MCPackageManager class>>forPackageNamed: (in category 'as yet unclassified') ----- + forPackageNamed: aString + ^ self registry detect: + [ : each | each packageName = aString ]! Item was changed: ----- Method: MCRepository class>>browseMcMethodHistoryService (in category 'ui-support') ----- browseMcMethodHistoryService ^ ServiceAction id: #browseMcMethodHistory text: 'browse mc history' button: 'mc' description: 'Browse the Monticello history of this method from the code repository.' action: [ : aBrowserRequestor | aBrowserRequestor browseMcMethodHistory ] condition: + [ : aBrowserRequestor | true ]! - [ : aBrowserRequestor | aBrowserRequestor canBrowseMcMethodHistory ]! Item was changed: ----- Method: MCRepository class>>browseMcMethodOriginService (in category 'ui-support') ----- browseMcMethodOriginService ^ ServiceAction id: #browseMcMethodOrigin text: 'browse mc origin' button: 'mc' description: 'Browse the Monticello version comments in which this edition of this method was originally committed.' action: [ : aBrowserRequestor | aBrowserRequestor browseMcMethodOrigin ] condition: + [ : aBrowserRequestor | true ]! - [ : aBrowserRequestor | aBrowserRequestor canBrowseMcMethodHistory ]! Item was added: + ----- Method: MCRepository>>isTrunkBackup (in category 'testing') ----- + isTrunkBackup + ^ false! Item was added: + ----- Method: MCWorkingCopyBrowser class>>mcModelFor: (in category 'hooks') ----- + mcModelFor: aClassOrMethodReference + ^ aClassOrMethodReference mcModel ifNil: + [ | pkgName | (UIManager confirm: 'Okay to add historical repository to ' , (pkgName := aClassOrMethodReference packageInfo packageName) , '?') ifTrue: + [ (MCWorkingCopy forPackageNamed: pkgName) repositoryGroup addRepository: MCHttpRepository trunkBackup. + aClassOrMethodReference mcModel ] ]!

1 0

The Trunk: Monticello-cmm.596.mcz
by commits＠source.squeak.org 27 Jul '14

27 Jul '14

1 0

The Trunk: Monticello-cmm.596.mcz
by commits＠source.squeak.org 27 Jul '14

27 Jul '14

1 0

The Trunk: Services-Base-cmm.53.mcz
by commits＠source.squeak.org 27 Jul '14

27 Jul '14

Chris Muller uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-cmm.53.mcz ==================== Summary ==================== Name: Services-Base-cmm.53 Author: cmm Time: 26 July 2014, 7:23:02.617 pm UUID: 1bd35a3c-6ac0-4aed-b3c7-96ceddbea595 Ancestors: Services-Base-eem.52 None of our menu entries are capitalized, stop capitalizing service menu entries. =============== Diff against Services-Base-eem.52 =============== Item was changed: ----- Method: ServiceAction>>menuLabelNumbered: (in category 'accessing') ----- + menuLabelNumbered: index + | shorterLabel shortCut serviceNumberString | + shorterLabel := self text. + shorterLabel size > 50 ifTrue: [ shorterLabel := (shorterLabel first: 47) , '...' ]. + shortCut := self shortcut. + shortCut := (shortCut isNil or: [ shortCut isEmpty ]) + ifTrue: [ String empty ] + ifFalse: [ ' (' , shortCut , ')' ]. + serviceNumberString := index isZero + ifTrue: [ String empty ] + ifFalse: [ index asString , '.' ]. + ^ serviceNumberString , shorterLabel , shortCut! - menuLabelNumbered: i - | l sh str | - l := self text. - l size > 50 - ifTrue: [l := (l first: 47) - , '...']. - sh := self shortcut. - sh := (sh isNil - or: [sh isEmpty]) - ifTrue: [''] - ifFalse: [' (' , sh , ')']. - str := i isZero ifTrue: [''] ifFalse: [i asString, '. ']. - ^ str, l capitalized , sh!

1 0

The Trunk: Services-Base-cmm.53.mcz
by commits＠source.squeak.org 27 Jul '14

27 Jul '14

1 0

The Trunk: Services-Base-cmm.53.mcz
by commits＠source.squeak.org 27 Jul '14

27 Jul '14

1 0

The Trunk: System-nice.681.mcz
by commits＠source.squeak.org 26 Jul '14

26 Jul '14

Nicolas Cellier uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-nice.681.mcz ==================== Summary ==================== Name: System-nice.681 Author: nice Time: 26 July 2014, 11:41:38.894 pm UUID: 232c6d1f-5bf4-45e4-86c7-843c8285b0fa Ancestors: System-nice.680 Remove one useless send of reset. By the way, this is twice the same method... TODO remove the InternalTranslator version. =============== Diff against System-nice.680 =============== Item was changed: ----- Method: InternalTranslator class>>loadForLocaleIsoString:fromGzippedMimeLiteral: (in category 'file-services') ----- loadForLocaleIsoString: localeString fromGzippedMimeLiteral: mimeString "merge the translation from the mime literal." | stream localeID translator gs rbStream s currentPlatform | s := Base64MimeConverter mimeDecodeToBytes: mimeString readStream. - s reset. gs := GZipReadStream on: s. rbStream := MultiByteBinaryOrTextStream with: gs contents asString. rbStream converter: UTF8TextConverter new. rbStream reset. localeID := LocaleID isoString: localeString. currentPlatform := Locale currentPlatform. [Locale currentPlatform: (Locale localeID: localeID). stream := ReadStream on: rbStream contents] ensure: [Locale currentPlatform: currentPlatform]. translator := self localeID: localeID. translator loadFromStream: stream. LanguageEnvironment resetKnownEnvironments! Item was changed: ----- Method: NaturalLanguageTranslator class>>loadForLocaleIsoString:fromGzippedMimeLiteral: (in category 'file-services') ----- loadForLocaleIsoString: localeString fromGzippedMimeLiteral: mimeString "merge the translation from the mime literal." | stream localeID translator gs rbStream s currentPlatform | s := Base64MimeConverter mimeDecodeToBytes: mimeString readStream. - s reset. gs := GZipReadStream on: s. rbStream := MultiByteBinaryOrTextStream with: gs contents asString. rbStream converter: UTF8TextConverter new. rbStream reset. localeID := LocaleID isoString: localeString. currentPlatform := Locale currentPlatform. [Locale currentPlatform: (Locale localeID: localeID). stream := ReadStream on: rbStream contents] ensure: [Locale currentPlatform: currentPlatform]. translator := self localeID: localeID. translator loadFromStream: stream. LanguageEnvironment resetKnownEnvironments!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
30
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2014