Squeak-dev June 2011

squeak-dev@lists.squeakfoundation.org

77 participants
236 discussions

Re: [squeak-dev] The Inbox: Monticello-fbs.467.mcz
by Frank Shearar 09 Jun '11

09 Jun '11

On 9 June 2011 12:39, <commits(a)source.squeak.org> wrote: > A new version of Monticello was added to project The Inbox: > http://source.squeak.org/inbox/Monticello-fbs.467.mcz > > ==================== Summary ==================== > > Name: Monticello-fbs.467 > Author: fbs > Time: 9 June 2011, 12:39:41.446 pm > UUID: b33cab1b-85b8-47a9-84eb-079a9778aaee > Ancestors: Monticello-ul.466 > > Better error messages for off-line work: > * If you can't find a base "full version", say so > * If you Give Up on trying to resolve a name, report the actual failure rather than trying to access a socket anyway, and throwing a primitive failed error. > > =============== Diff against Monticello-ul.466 =============== > > Item was changed: > ----- Method: MCDiffyVersion>>baseSnapshot (in category 'as yet unclassified') ----- > baseSnapshot > + | baseRepo | > + baseRepo := self workingCopy repositoryGroup versionWithInfo: base. > + baseRepo ifNil: [Error signal: 'Missing snapshot: ', self baseInfo name]. > + ^ baseRepo snapshot! > - ^ (self workingCopy repositoryGroup versionWithInfo: base) snapshot! > > Item was changed: > ----- Method: MCHttpRepository>>allFileNames (in category 'required') ----- > allFileNames > | index | > + [self displayProgress: 'Updating ', self description during:[ > - self displayProgress: 'Updating ', self description during:[ > index := HTTPSocket httpGet: self locationWithTrailingSlash, '?C=M;O=D' args: nil user: self user passwd: self password. > + ]] on: NetworkError do: [ :e | self error: 'Could not access ', location, '(', e className, ')']. > - ]. > index isString ifTrue: [self error: 'Could not access ', location]. > ^ self parseFileNamesFromStream: index ! To demonstrate the 'can't find version' issue, try do-it on this: Installer ss project: 'Zippers'; install: 'Zippers-fbs.999'. To demonstrate the network failure error, try do-it on the above with your network cable unplugged! frank

1 0

The Inbox: Monticello-fbs.467.mcz
by commits＠source.squeak.org 09 Jun '11

09 Jun '11

A new version of Monticello was added to project The Inbox: http://source.squeak.org/inbox/Monticello-fbs.467.mcz ==================== Summary ==================== Name: Monticello-fbs.467 Author: fbs Time: 9 June 2011, 12:39:41.446 pm UUID: b33cab1b-85b8-47a9-84eb-079a9778aaee Ancestors: Monticello-ul.466 Better error messages for off-line work: * If you can't find a base "full version", say so * If you Give Up on trying to resolve a name, report the actual failure rather than trying to access a socket anyway, and throwing a primitive failed error. =============== Diff against Monticello-ul.466 =============== Item was changed: ----- Method: MCDiffyVersion>>baseSnapshot (in category 'as yet unclassified') ----- baseSnapshot + | baseRepo | + baseRepo := self workingCopy repositoryGroup versionWithInfo: base. + baseRepo ifNil: [Error signal: 'Missing snapshot: ', self baseInfo name]. + ^ baseRepo snapshot! - ^ (self workingCopy repositoryGroup versionWithInfo: base) snapshot! Item was changed: ----- Method: MCHttpRepository>>allFileNames (in category 'required') ----- allFileNames | index | + [self displayProgress: 'Updating ', self description during:[ - self displayProgress: 'Updating ', self description during:[ index := HTTPSocket httpGet: self locationWithTrailingSlash, '?C=M;O=D' args: nil user: self user passwd: self password. + ]] on: NetworkError do: [ :e | self error: 'Could not access ', location, '(', e className, ')']. - ]. index isString ifTrue: [self error: 'Could not access ', location]. ^ self parseFileNamesFromStream: index !

1 0

Daily Commit Log
by commits＠source.squeak.org 09 Jun '11

09 Jun '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-June/004749.html Name: Monticello-cmm.471 Ancestors: Monticello-cmm.470 - Renamed #rename:toBe: to #handlePackageRename:to:. - Don't complain about unregistering a package that isn't registered. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004750.html Name: Monticello-cmm.470 Ancestors: Monticello-cmm.469 Unregister and unload the old, renamed package upon successful rename. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004751.html Name: Monticello-cmm.469 Ancestors: Monticello-cmm.468 When renaming a package, transfer the repositoryGroup and requiredPackages from the original package. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004752.html Name: Monticello-cmm.468 Ancestors: Monticello-cmm.467 When renaming a package, register the new package name _before_ performing the rename operations because, otherwise, the renames could cause a generically-named package to be registered too. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004753.html Name: Monticello-cmm.467 Ancestors: Monticello-ul.466 - Added "rename package..." to Monticello working-copy browser. Must be performed on an unmodified package - it renames all class and method-extension categories, and adopts the ancestry of the working-copy being renamed. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004754.html Name: Tests-cmm.129 Ancestors: Tests-nice.128 Initial test for renaming a package. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004755.html Name: Tests-cmm.130 Ancestors: Tests-cmm.129 - Monticello tests no longer prompt for author intiials unnecessarily. - Tests for new package rename function can be run multiple times - side-effects are now cleaned up. =============================================

1 0

The Trunk: Tests-cmm.130.mcz
by commits＠source.squeak.org 08 Jun '11

08 Jun '11

Chris Muller uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cmm.130.mcz ==================== Summary ==================== Name: Tests-cmm.130 Author: cmm Time: 8 June 2011, 2:44:54.062 pm UUID: 2e0b0f35-ee45-4a43-a6d4-959abb86a478 Ancestors: Tests-cmm.129 - Monticello tests no longer prompt for author intiials unnecessarily. - Tests for new package rename function can be run multiple times - side-effects are now cleaned up. =============== Diff against Tests-cmm.129 =============== Item was changed: SystemOrganization addCategory: #'Tests-Exceptions'! SystemOrganization addCategory: #'Tests-Files'! SystemOrganization addCategory: #'Tests-Compiler'! SystemOrganization addCategory: #'Tests-Digital Signatures'! SystemOrganization addCategory: #'Tests-Object Events'! SystemOrganization addCategory: #'Tests-System-Support'! SystemOrganization addCategory: #'Tests-Bugs'! SystemOrganization addCategory: #'Tests-ObjectsAsMethods'! SystemOrganization addCategory: #'Tests-PrimCallController'! SystemOrganization addCategory: #'Tests-Release'! SystemOrganization addCategory: #'Tests-Utilities'! SystemOrganization addCategory: #'Tests-VM'! SystemOrganization addCategory: #'Tests-Hex'! SystemOrganization addCategory: #'Tests-Monticello'! SystemOrganization addCategory: #'Tests-Localization'! SystemOrganization addCategory: #'Tests-FilePackage'! SystemOrganization addCategory: #'Tests-Finalization'! - SystemOrganization addCategory: #'Tests-Monticello-Mocks'! SystemOrganization addCategory: #'Tests-Dependencies'! + SystemOrganization addCategory: #'Tests-Monticello-Mocks'! Item was changed: ----- Method: MCWorkingCopyTest>>setUp (in category 'running') ----- setUp | repos1 repos2 | self clearPackageCache. repositoryGroup := MCRepositoryGroup new. workingCopy := MCWorkingCopy forPackage: self mockPackage. versions := Dictionary new. versions2 := Dictionary new. repos1 := MCDictionaryRepository new dictionary: versions. repos2 := MCDictionaryRepository new dictionary: versions2. repositoryGroup addRepository: repos1. repositoryGroup addRepository: repos2. MCRepositoryGroup default removeRepository: repos1; removeRepository: repos2. workingCopy repositoryGroup: repositoryGroup. + savedInitials := Utilities authorInitialsPerSe. - savedInitials := Utilities authorInitials. Utilities setAuthorInitials: 'abc'.! Item was changed: ----- Method: MCWorkingCopyTest>>tearDown (in category 'running') ----- tearDown - super tearDown. workingCopy unregister. self restoreMocks. + SystemOrganizer default removeEmptyCategories. + MCSnapshotTest organization removeEmptyCategories. + Utilities setAuthorInitials: savedInitials! - Utilities setAuthorInitials: savedInitials.! Item was removed: - ----- Method: MCWorkingCopyTest>>testRename (in category 'tests') ----- - testRename - | oldWorkingCopy oldDefinitions newWorkingCopy | - oldWorkingCopy := workingCopy. - oldDefinitions := workingCopy package snapshot definitions. - newWorkingCopy := workingCopy renameToBe: 'Renamed-' , workingCopy packageName. - [ self - assert: oldWorkingCopy ancestors = newWorkingCopy ancestors ; - assert: newWorkingCopy needsSaving ; - assert: newWorkingCopy requiredPackages = oldWorkingCopy requiredPackages ; - assert: newWorkingCopy repositoryGroup repositories = oldWorkingCopy repositoryGroup repositories ; - assert: oldWorkingCopy package snapshot definitions isEmpty ; - assert: (MCWorkingCopy registry includesKey: newWorkingCopy package) ; - assert: (MCWorkingCopy registry includes: newWorkingCopy) ; - deny: (MCWorkingCopy registry includes: oldWorkingCopy) ; - assert: newWorkingCopy package snapshot definitions size = oldDefinitions size ] ensure: [ newWorkingCopy unregister ]! Item was added: + ----- Method: MCWorkingCopyTest>>testRenamePrefix (in category 'tests') ----- + testRenamePrefix + self verifyRenameTo: 'Renamed-' , workingCopy packageName. + SystemOrganizer default + renameCategory: 'Renamed-Tests-Monticello-Mocks' + toBe: 'Tests-Monticello-Mocks'! Item was added: + ----- Method: MCWorkingCopyTest>>testRenameSuffix (in category 'tests') ----- + testRenameSuffix + self verifyRenameTo: workingCopy packageName, '-Renamed'! Item was added: + ----- Method: MCWorkingCopyTest>>verifyRenameTo: (in category 'tests') ----- + verifyRenameTo: newName + | oldWorkingCopy oldDefinitions newWorkingCopy | + oldWorkingCopy := workingCopy. + oldDefinitions := workingCopy package snapshot definitions. + newWorkingCopy := workingCopy renameToBe: newName. + self + assert: oldWorkingCopy ancestors = newWorkingCopy ancestors ; + assert: newWorkingCopy needsSaving ; + assert: newWorkingCopy requiredPackages = oldWorkingCopy requiredPackages ; + assert: newWorkingCopy repositoryGroup repositories = oldWorkingCopy repositoryGroup repositories ; + assert: newWorkingCopy package snapshot definitions size = oldDefinitions size ; + assert: (MCWorkingCopy registry includesKey: newWorkingCopy package) ; + assert: (MCWorkingCopy registry includes: newWorkingCopy) ; + deny: (MCWorkingCopy registry includes: oldWorkingCopy). + workingCopy := newWorkingCopy!

1 0

The Trunk: Tests-cmm.129.mcz
by commits＠source.squeak.org 08 Jun '11

08 Jun '11

Chris Muller uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cmm.129.mcz ==================== Summary ==================== Name: Tests-cmm.129 Author: cmm Time: 8 June 2011, 11:57:22.654 am UUID: 2adf456b-5914-4439-af88-e05e19f47aa7 Ancestors: Tests-nice.128 Initial test for renaming a package. =============== Diff against Tests-nice.128 =============== Item was added: + ----- Method: MCWorkingCopyTest>>testRename (in category 'tests') ----- + testRename + | oldWorkingCopy oldDefinitions newWorkingCopy | + oldWorkingCopy := workingCopy. + oldDefinitions := workingCopy package snapshot definitions. + newWorkingCopy := workingCopy renameToBe: 'Renamed-' , workingCopy packageName. + [ self + assert: oldWorkingCopy ancestors = newWorkingCopy ancestors ; + assert: newWorkingCopy needsSaving ; + assert: newWorkingCopy requiredPackages = oldWorkingCopy requiredPackages ; + assert: newWorkingCopy repositoryGroup repositories = oldWorkingCopy repositoryGroup repositories ; + assert: oldWorkingCopy package snapshot definitions isEmpty ; + assert: (MCWorkingCopy registry includesKey: newWorkingCopy package) ; + assert: (MCWorkingCopy registry includes: newWorkingCopy) ; + deny: (MCWorkingCopy registry includes: oldWorkingCopy) ; + assert: newWorkingCopy package snapshot definitions size = oldDefinitions size ] ensure: [ newWorkingCopy unregister ]!

1 0

The Trunk: Monticello-cmm.467.mcz
by commits＠source.squeak.org 08 Jun '11

08 Jun '11

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.467.mcz ==================== Summary ==================== Name: Monticello-cmm.467 Author: cmm Time: 6 June 2011, 5:00:39.28 pm UUID: 08000000-1508-3404-1508-340414000000 Ancestors: Monticello-ul.466 - Added "rename package..." to Monticello working-copy browser. Must be performed on an unmodified package - it renames all class and method-extension categories, and adopts the ancestry of the working-copy being renamed. =============== Diff against Monticello-ul.466 =============== Item was added: + ----- Method: MCClassDefinition>>rename:toBe: (in category 'renaming') ----- + rename: oldPackageName toBe: newPackageName + self actualClass category: + (self + newCategoryNameFor: self actualClass category + givenRenameFrom: oldPackageName + to: newPackageName)! Item was added: + ----- Method: MCDefinition>>newCategoryNameFor:givenRenameFrom:to: (in category 'renaming') ----- + newCategoryNameFor: categoryName givenRenameFrom: oldPackageName to: newPackageName + ^ oldPackageName size < categoryName size + ifTrue: + [ newPackageName , + (categoryName + copyFrom: oldPackageName size + 1 + to: categoryName size) ] + ifFalse: [ newPackageName ]! Item was added: + ----- Method: MCDefinition>>rename:toBe: (in category 'renaming') ----- + rename: oldPackageName toBe: newPackageName + "Overridden as necessary in subclasses."! Item was added: + ----- Method: MCMethodDefinition>>rename:toBe: (in category 'renaming') ----- + rename: oldPackageName toBe: newPackageName + "If I'm an extension or override method, rename the category to be prefixed with newPackageName." + (self isExtensionMethod or: [ self isOverrideMethod ]) ifTrue: + [ self actualClass organization + renameCategory: self category + toBe: + '*' , + (self + newCategoryNameFor: self category allButFirst + givenRenameFrom: oldPackageName + to: newPackageName) asLowercase ]! Item was changed: + ----- Method: MCOrganizationDefinition>>= (in category 'testing') ----- - ----- Method: MCOrganizationDefinition>>= (in category 'as yet unclassified') ----- = aDefinition ^ (super = aDefinition) and: [categories = aDefinition categories]! Item was changed: + ----- Method: MCOrganizationDefinition>>accept: (in category 'actions') ----- - ----- Method: MCOrganizationDefinition>>accept: (in category 'as yet unclassified') ----- accept: aVisitor ^ aVisitor visitOrganizationDefinition: self! Item was changed: + ----- Method: MCOrganizationDefinition>>categories (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>categories (in category 'as yet unclassified') ----- categories ^ categories! Item was changed: + ----- Method: MCOrganizationDefinition>>categories: (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>categories: (in category 'as yet unclassified') ----- categories: anArray categories := anArray! Item was changed: + ----- Method: MCOrganizationDefinition>>commonPrefix (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>commonPrefix (in category 'as yet unclassified') ----- commonPrefix | stream | categories isEmpty ifTrue: [^ '']. stream := String new writeStream. 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: MCOrganizationDefinition>>description (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>description (in category 'as yet unclassified') ----- description ^ Array with: #organization with: self commonPrefix! Item was changed: + ----- Method: MCOrganizationDefinition>>isOrganizationDefinition (in category 'testing') ----- - ----- Method: MCOrganizationDefinition>>isOrganizationDefinition (in category 'as yet unclassified') ----- isOrganizationDefinition ^ true! Item was changed: + ----- Method: MCOrganizationDefinition>>postloadOver: (in category 'actions') ----- - ----- Method: MCOrganizationDefinition>>postloadOver: (in category 'as yet unclassified') ----- postloadOver: oldDefinition SystemOrganization categories: (self reorderCategories: SystemOrganization categories original: (oldDefinition ifNil: [#()] ifNotNil: [oldDefinition categories]))! Item was added: + ----- Method: MCOrganizationDefinition>>rename:toBe: (in category 'actions') ----- + rename: oldPackageName toBe: newPackageName + categories do: + [ : each | SystemOrganizer default + renameCategory: each + toBe: + (self + newCategoryNameFor: each + givenRenameFrom: oldPackageName + to: newPackageName) ]! Item was changed: + ----- Method: MCOrganizationDefinition>>reorderCategories:original: (in category 'actions') ----- - ----- Method: MCOrganizationDefinition>>reorderCategories:original: (in category 'as yet unclassified') ----- reorderCategories: allCategories original: oldCategories | first | first := allCategories detect: [:ea | categories includes: ea] ifNone: [^ allCategories]. ^ ((allCategories copyUpTo: first) copyWithoutAll: oldCategories, categories), categories, ((allCategories copyAfter: first) copyWithoutAll: oldCategories, categories) ! Item was changed: + ----- Method: MCOrganizationDefinition>>sortKey (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>sortKey (in category 'as yet unclassified') ----- sortKey ^ '<organization>'! Item was changed: + ----- Method: MCOrganizationDefinition>>source (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>source (in category 'as yet unclassified') ----- source ^ String streamContents: [:s | categories do: [:ea | s nextPutAll: ea] separatedBy: [s cr]]! Item was changed: + ----- Method: MCOrganizationDefinition>>summary (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>summary (in category 'as yet unclassified') ----- summary ^ categories asArray printString! Item was added: + ----- Method: MCWorkingCopy>>renameToBe: (in category 'operations') ----- + renameToBe: newPackageName + | newWorkingCopy | + self modified ifTrue: [ self error: 'Should only rename an unmodified package.' ]. + (MCWorkingCopy allManagers anySatisfy: + [ : each | each packageName = newPackageName ]) ifTrue: [ self error: newPackageName , ' is already taken.' ]. + self package snapshot definitions do: + [ : each | each + rename: self package name + toBe: newPackageName ]. + PackageInfo registerPackageName: newPackageName. + newWorkingCopy := MCWorkingCopy forPackage: (MCPackage new name: newPackageName). + self ancestors do: + [ : each | newWorkingCopy ancestry addAncestor: each ]. + ^ newWorkingCopy! Item was added: + ----- Method: MCWorkingCopyBrowser>>renamePackage (in category 'actions') ----- + renamePackage + | newName | + workingCopy ifNil: + [ UIManager inform: 'Please select a package to be renamed.'. + ^ self ]. + workingCopy modified ifTrue: + [ UIManager inform: 'Only unmodified packages should be renamed.'. + ^ self ]. + newName := FillInTheBlankMorph + request: 'New name of package:' + initialAnswer: workingCopy packageName. + newName isEmptyOrNil ifFalse: + [ | newWorkingCopy | + newWorkingCopy := workingCopy renameToBe: newName. + workingCopy package snapshot definitions + ifEmpty: + [ "It worked." + workingCopy unregister. + workingCopy := newWorkingCopy. + self repositorySelection: 0. + self + workingCopyListChanged ; + changed: #workingCopySelection ; + changed: #repositoryList. + self changedButtons ] + ifNotEmpty: + [ "It didn't work, browse the remaining definitions." + self browseWorkingCopy ] ]! Item was changed: ----- Method: MCWorkingCopyBrowser>>workingCopyListMenu: (in category 'morphic ui') ----- workingCopyListMenu: aMenu workingCopy ifNil: [^ aMenu]. self fillMenu: aMenu fromSpecs: #(('add required package' #addRequiredPackage) ('clear required packages' #clearRequiredPackages) ('browse package' #browseWorkingCopy) ('view changes' #viewChanges) ('view history' #viewHistory) ('recompile package' #recompilePackage) ('revert package...' #revertPackage) ('unload package' #unloadPackage) + ('delete working copy' #deleteWorkingCopy) + ('rename package...' #renamePackage)). - ('delete working copy' #deleteWorkingCopy)). (Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [ aMenu add: 'make SAR' target: self selector: #fileOutAsSAR ]. self insertExternalMenuEntries: aMenu. ^aMenu!

1 0

The Trunk: Monticello-cmm.468.mcz
by commits＠source.squeak.org 08 Jun '11

08 Jun '11

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.468.mcz ==================== Summary ==================== Name: Monticello-cmm.468 Author: cmm Time: 6 June 2011, 6:39:41.572 pm UUID: 08000000-1508-760d-1508-760d14000000 Ancestors: Monticello-cmm.467 When renaming a package, register the new package name _before_ performing the rename operations because, otherwise, the renames could cause a generically-named package to be registered too. =============== Diff against Monticello-ul.466 =============== Item was added: + ----- Method: MCClassDefinition>>rename:toBe: (in category 'renaming') ----- + rename: oldPackageName toBe: newPackageName + self actualClass category: + (self + newCategoryNameFor: self actualClass category + givenRenameFrom: oldPackageName + to: newPackageName)! Item was added: + ----- Method: MCDefinition>>newCategoryNameFor:givenRenameFrom:to: (in category 'renaming') ----- + newCategoryNameFor: categoryName givenRenameFrom: oldPackageName to: newPackageName + ^ oldPackageName size < categoryName size + ifTrue: + [ newPackageName , + (categoryName + copyFrom: oldPackageName size + 1 + to: categoryName size) ] + ifFalse: [ newPackageName ]! Item was added: + ----- Method: MCDefinition>>rename:toBe: (in category 'renaming') ----- + rename: oldPackageName toBe: newPackageName + "Overridden as necessary in subclasses."! Item was added: + ----- Method: MCMethodDefinition>>rename:toBe: (in category 'renaming') ----- + rename: oldPackageName toBe: newPackageName + "If I'm an extension or override method, rename the category to be prefixed with newPackageName." + (self isExtensionMethod or: [ self isOverrideMethod ]) ifTrue: + [ self actualClass organization + renameCategory: self category + toBe: + '*' , + (self + newCategoryNameFor: self category allButFirst + givenRenameFrom: oldPackageName + to: newPackageName) asLowercase ]! Item was changed: + ----- Method: MCOrganizationDefinition>>= (in category 'testing') ----- - ----- Method: MCOrganizationDefinition>>= (in category 'as yet unclassified') ----- = aDefinition ^ (super = aDefinition) and: [categories = aDefinition categories]! Item was changed: + ----- Method: MCOrganizationDefinition>>accept: (in category 'actions') ----- - ----- Method: MCOrganizationDefinition>>accept: (in category 'as yet unclassified') ----- accept: aVisitor ^ aVisitor visitOrganizationDefinition: self! Item was changed: + ----- Method: MCOrganizationDefinition>>categories (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>categories (in category 'as yet unclassified') ----- categories ^ categories! Item was changed: + ----- Method: MCOrganizationDefinition>>categories: (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>categories: (in category 'as yet unclassified') ----- categories: anArray categories := anArray! Item was changed: + ----- Method: MCOrganizationDefinition>>commonPrefix (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>commonPrefix (in category 'as yet unclassified') ----- commonPrefix | stream | categories isEmpty ifTrue: [^ '']. stream := String new writeStream. 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: MCOrganizationDefinition>>description (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>description (in category 'as yet unclassified') ----- description ^ Array with: #organization with: self commonPrefix! Item was changed: + ----- Method: MCOrganizationDefinition>>isOrganizationDefinition (in category 'testing') ----- - ----- Method: MCOrganizationDefinition>>isOrganizationDefinition (in category 'as yet unclassified') ----- isOrganizationDefinition ^ true! Item was changed: + ----- Method: MCOrganizationDefinition>>postloadOver: (in category 'actions') ----- - ----- Method: MCOrganizationDefinition>>postloadOver: (in category 'as yet unclassified') ----- postloadOver: oldDefinition SystemOrganization categories: (self reorderCategories: SystemOrganization categories original: (oldDefinition ifNil: [#()] ifNotNil: [oldDefinition categories]))! Item was added: + ----- Method: MCOrganizationDefinition>>rename:toBe: (in category 'actions') ----- + rename: oldPackageName toBe: newPackageName + categories do: + [ : each | SystemOrganizer default + renameCategory: each + toBe: + (self + newCategoryNameFor: each + givenRenameFrom: oldPackageName + to: newPackageName) ]! Item was changed: + ----- Method: MCOrganizationDefinition>>reorderCategories:original: (in category 'actions') ----- - ----- Method: MCOrganizationDefinition>>reorderCategories:original: (in category 'as yet unclassified') ----- reorderCategories: allCategories original: oldCategories | first | first := allCategories detect: [:ea | categories includes: ea] ifNone: [^ allCategories]. ^ ((allCategories copyUpTo: first) copyWithoutAll: oldCategories, categories), categories, ((allCategories copyAfter: first) copyWithoutAll: oldCategories, categories) ! Item was changed: + ----- Method: MCOrganizationDefinition>>sortKey (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>sortKey (in category 'as yet unclassified') ----- sortKey ^ '<organization>'! Item was changed: + ----- Method: MCOrganizationDefinition>>source (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>source (in category 'as yet unclassified') ----- source ^ String streamContents: [:s | categories do: [:ea | s nextPutAll: ea] separatedBy: [s cr]]! Item was changed: + ----- Method: MCOrganizationDefinition>>summary (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>summary (in category 'as yet unclassified') ----- summary ^ categories asArray printString! Item was added: + ----- Method: MCWorkingCopy>>renameToBe: (in category 'operations') ----- + renameToBe: newPackageName + | newWorkingCopy | + self modified ifTrue: [ self error: 'Should only rename an unmodified package.' ]. + (MCWorkingCopy allManagers anySatisfy: + [ : each | each packageName = newPackageName ]) ifTrue: [ self error: newPackageName , ' is already taken.' ]. + PackageInfo registerPackageName: newPackageName. + newWorkingCopy := MCWorkingCopy forPackage: (MCPackage new name: newPackageName). + self package snapshot definitions do: + [ : each | each + rename: self package name + toBe: newPackageName ]. + self ancestors do: + [ : each | newWorkingCopy ancestry addAncestor: each ]. + ^ newWorkingCopy! Item was added: + ----- Method: MCWorkingCopyBrowser>>renamePackage (in category 'actions') ----- + renamePackage + | newName | + workingCopy ifNil: + [ UIManager inform: 'Please select a package to be renamed.'. + ^ self ]. + workingCopy modified ifTrue: + [ UIManager inform: 'Only unmodified packages should be renamed.'. + ^ self ]. + newName := FillInTheBlankMorph + request: 'New name of package:' + initialAnswer: workingCopy packageName. + newName isEmptyOrNil ifFalse: + [ | newWorkingCopy | + newWorkingCopy := workingCopy renameToBe: newName. + workingCopy package snapshot definitions + ifEmpty: + [ "It worked." + workingCopy unregister. + workingCopy := newWorkingCopy. + self repositorySelection: 0. + self + workingCopyListChanged ; + changed: #workingCopySelection ; + changed: #repositoryList. + self changedButtons ] + ifNotEmpty: + [ "It didn't work, browse the remaining definitions." + self browseWorkingCopy ] ]! Item was changed: ----- Method: MCWorkingCopyBrowser>>workingCopyListMenu: (in category 'morphic ui') ----- workingCopyListMenu: aMenu workingCopy ifNil: [^ aMenu]. self fillMenu: aMenu fromSpecs: #(('add required package' #addRequiredPackage) ('clear required packages' #clearRequiredPackages) ('browse package' #browseWorkingCopy) ('view changes' #viewChanges) ('view history' #viewHistory) ('recompile package' #recompilePackage) ('revert package...' #revertPackage) ('unload package' #unloadPackage) + ('delete working copy' #deleteWorkingCopy) + ('rename package...' #renamePackage)). - ('delete working copy' #deleteWorkingCopy)). (Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [ aMenu add: 'make SAR' target: self selector: #fileOutAsSAR ]. self insertExternalMenuEntries: aMenu. ^aMenu!

1 0

The Trunk: Monticello-cmm.469.mcz
by commits＠source.squeak.org 08 Jun '11

08 Jun '11

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.469.mcz ==================== Summary ==================== Name: Monticello-cmm.469 Author: cmm Time: 6 June 2011, 7:30:17.669 pm UUID: b25b532f-0bb9-46a9-99aa-b385658916b3 Ancestors: Monticello-cmm.468 When renaming a package, transfer the repositoryGroup and requiredPackages from the original package. =============== Diff against Monticello-ul.466 =============== Item was added: + ----- Method: MCClassDefinition>>rename:toBe: (in category 'renaming') ----- + rename: oldPackageName toBe: newPackageName + self actualClass category: + (self + newCategoryNameFor: self actualClass category + givenRenameFrom: oldPackageName + to: newPackageName)! Item was added: + ----- Method: MCDefinition>>newCategoryNameFor:givenRenameFrom:to: (in category 'renaming') ----- + newCategoryNameFor: categoryName givenRenameFrom: oldPackageName to: newPackageName + ^ oldPackageName size < categoryName size + ifTrue: + [ newPackageName , + (categoryName + copyFrom: oldPackageName size + 1 + to: categoryName size) ] + ifFalse: [ newPackageName ]! Item was added: + ----- Method: MCDefinition>>rename:toBe: (in category 'renaming') ----- + rename: oldPackageName toBe: newPackageName + "Overridden as necessary in subclasses."! Item was added: + ----- Method: MCMethodDefinition>>rename:toBe: (in category 'renaming') ----- + rename: oldPackageName toBe: newPackageName + "If I'm an extension or override method, rename the category to be prefixed with newPackageName." + (self isExtensionMethod or: [ self isOverrideMethod ]) ifTrue: + [ self actualClass organization + renameCategory: self category + toBe: + '*' , + (self + newCategoryNameFor: self category allButFirst + givenRenameFrom: oldPackageName + to: newPackageName) asLowercase ]! Item was changed: + ----- Method: MCOrganizationDefinition>>= (in category 'testing') ----- - ----- Method: MCOrganizationDefinition>>= (in category 'as yet unclassified') ----- = aDefinition ^ (super = aDefinition) and: [categories = aDefinition categories]! Item was changed: + ----- Method: MCOrganizationDefinition>>accept: (in category 'actions') ----- - ----- Method: MCOrganizationDefinition>>accept: (in category 'as yet unclassified') ----- accept: aVisitor ^ aVisitor visitOrganizationDefinition: self! Item was changed: + ----- Method: MCOrganizationDefinition>>categories (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>categories (in category 'as yet unclassified') ----- categories ^ categories! Item was changed: + ----- Method: MCOrganizationDefinition>>categories: (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>categories: (in category 'as yet unclassified') ----- categories: anArray categories := anArray! Item was changed: + ----- Method: MCOrganizationDefinition>>commonPrefix (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>commonPrefix (in category 'as yet unclassified') ----- commonPrefix | stream | categories isEmpty ifTrue: [^ '']. stream := String new writeStream. 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: MCOrganizationDefinition>>description (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>description (in category 'as yet unclassified') ----- description ^ Array with: #organization with: self commonPrefix! Item was changed: + ----- Method: MCOrganizationDefinition>>isOrganizationDefinition (in category 'testing') ----- - ----- Method: MCOrganizationDefinition>>isOrganizationDefinition (in category 'as yet unclassified') ----- isOrganizationDefinition ^ true! Item was changed: + ----- Method: MCOrganizationDefinition>>postloadOver: (in category 'actions') ----- - ----- Method: MCOrganizationDefinition>>postloadOver: (in category 'as yet unclassified') ----- postloadOver: oldDefinition SystemOrganization categories: (self reorderCategories: SystemOrganization categories original: (oldDefinition ifNil: [#()] ifNotNil: [oldDefinition categories]))! Item was added: + ----- Method: MCOrganizationDefinition>>rename:toBe: (in category 'actions') ----- + rename: oldPackageName toBe: newPackageName + categories do: + [ : each | SystemOrganizer default + renameCategory: each + toBe: + (self + newCategoryNameFor: each + givenRenameFrom: oldPackageName + to: newPackageName) ]! Item was changed: + ----- Method: MCOrganizationDefinition>>reorderCategories:original: (in category 'actions') ----- - ----- Method: MCOrganizationDefinition>>reorderCategories:original: (in category 'as yet unclassified') ----- reorderCategories: allCategories original: oldCategories | first | first := allCategories detect: [:ea | categories includes: ea] ifNone: [^ allCategories]. ^ ((allCategories copyUpTo: first) copyWithoutAll: oldCategories, categories), categories, ((allCategories copyAfter: first) copyWithoutAll: oldCategories, categories) ! Item was changed: + ----- Method: MCOrganizationDefinition>>sortKey (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>sortKey (in category 'as yet unclassified') ----- sortKey ^ '<organization>'! Item was changed: + ----- Method: MCOrganizationDefinition>>source (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>source (in category 'as yet unclassified') ----- source ^ String streamContents: [:s | categories do: [:ea | s nextPutAll: ea] separatedBy: [s cr]]! Item was changed: + ----- Method: MCOrganizationDefinition>>summary (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>summary (in category 'as yet unclassified') ----- summary ^ categories asArray printString! Item was added: + ----- Method: MCWorkingCopy>>renameToBe: (in category 'operations') ----- + renameToBe: newPackageName + | newWorkingCopy | + self modified ifTrue: [ self error: 'Should only rename an unmodified package.' ]. + (MCWorkingCopy allManagers anySatisfy: + [ : each | each packageName = newPackageName ]) ifTrue: [ self error: newPackageName , ' is already taken.' ]. + PackageInfo registerPackageName: newPackageName. + newWorkingCopy := (MCWorkingCopy forPackage: (MCPackage new name: newPackageName)) + repositoryGroup: self repositoryGroup ; + requiredPackages: self requiredPackages copy ; + yourself. + self package snapshot definitions do: + [ : each | each + rename: self package name + toBe: newPackageName ]. + self ancestors do: + [ : each | newWorkingCopy ancestry addAncestor: each ]. + ^ newWorkingCopy! Item was added: + ----- Method: MCWorkingCopy>>requiredPackages: (in category 'private') ----- + requiredPackages: aCollection + requiredPackages := aCollection! Item was added: + ----- Method: MCWorkingCopyBrowser>>renamePackage (in category 'actions') ----- + renamePackage + | newName | + workingCopy ifNil: + [ UIManager inform: 'Please select a package to be renamed.'. + ^ self ]. + workingCopy modified ifTrue: + [ UIManager inform: 'Only unmodified packages should be renamed.'. + ^ self ]. + newName := FillInTheBlankMorph + request: 'New name of package:' + initialAnswer: workingCopy packageName. + newName isEmptyOrNil ifFalse: + [ | newWorkingCopy | + newWorkingCopy := workingCopy renameToBe: newName. + workingCopy package snapshot definitions + ifEmpty: + [ "It worked." + workingCopy unregister. + workingCopy := newWorkingCopy. + self repositorySelection: 0. + self + workingCopyListChanged ; + changed: #workingCopySelection ; + changed: #repositoryList. + self changedButtons ] + ifNotEmpty: + [ "It didn't work, browse the remaining definitions." + self browseWorkingCopy ] ]! Item was changed: ----- Method: MCWorkingCopyBrowser>>workingCopyListMenu: (in category 'morphic ui') ----- workingCopyListMenu: aMenu workingCopy ifNil: [^ aMenu]. self fillMenu: aMenu fromSpecs: #(('add required package' #addRequiredPackage) ('clear required packages' #clearRequiredPackages) ('browse package' #browseWorkingCopy) ('view changes' #viewChanges) ('view history' #viewHistory) ('recompile package' #recompilePackage) ('revert package...' #revertPackage) ('unload package' #unloadPackage) + ('delete working copy' #deleteWorkingCopy) + ('rename package...' #renamePackage)). - ('delete working copy' #deleteWorkingCopy)). (Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [ aMenu add: 'make SAR' target: self selector: #fileOutAsSAR ]. self insertExternalMenuEntries: aMenu. ^aMenu!

1 0

The Trunk: Monticello-cmm.470.mcz
by commits＠source.squeak.org 08 Jun '11

08 Jun '11

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.470.mcz ==================== Summary ==================== Name: Monticello-cmm.470 Author: cmm Time: 8 June 2011, 11:55:28.308 am UUID: 419d67f2-e6cc-4695-a64a-25fa1b811503 Ancestors: Monticello-cmm.469 Unregister and unload the old, renamed package upon successful rename. =============== Diff against Monticello-ul.466 =============== Item was added: + ----- Method: MCClassDefinition>>rename:toBe: (in category 'renaming') ----- + rename: oldPackageName toBe: newPackageName + self actualClass category: + (self + newCategoryNameFor: self actualClass category + givenRenameFrom: oldPackageName + to: newPackageName)! Item was added: + ----- Method: MCDefinition>>newCategoryNameFor:givenRenameFrom:to: (in category 'renaming') ----- + newCategoryNameFor: categoryName givenRenameFrom: oldPackageName to: newPackageName + ^ oldPackageName size < categoryName size + ifTrue: + [ newPackageName , + (categoryName + copyFrom: oldPackageName size + 1 + to: categoryName size) ] + ifFalse: [ newPackageName ]! Item was added: + ----- Method: MCDefinition>>rename:toBe: (in category 'renaming') ----- + rename: oldPackageName toBe: newPackageName + "Overridden as necessary in subclasses."! Item was added: + ----- Method: MCMethodDefinition>>rename:toBe: (in category 'renaming') ----- + rename: oldPackageName toBe: newPackageName + "If I'm an extension or override method, rename the category to be prefixed with newPackageName." + (self isExtensionMethod or: [ self isOverrideMethod ]) ifTrue: + [ self actualClass organization + renameCategory: self category + toBe: + '*' , + (self + newCategoryNameFor: self category allButFirst + givenRenameFrom: oldPackageName + to: newPackageName) asLowercase ]! Item was changed: + ----- Method: MCOrganizationDefinition>>= (in category 'testing') ----- - ----- Method: MCOrganizationDefinition>>= (in category 'as yet unclassified') ----- = aDefinition ^ (super = aDefinition) and: [categories = aDefinition categories]! Item was changed: + ----- Method: MCOrganizationDefinition>>accept: (in category 'actions') ----- - ----- Method: MCOrganizationDefinition>>accept: (in category 'as yet unclassified') ----- accept: aVisitor ^ aVisitor visitOrganizationDefinition: self! Item was changed: + ----- Method: MCOrganizationDefinition>>categories (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>categories (in category 'as yet unclassified') ----- categories ^ categories! Item was changed: + ----- Method: MCOrganizationDefinition>>categories: (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>categories: (in category 'as yet unclassified') ----- categories: anArray categories := anArray! Item was changed: + ----- Method: MCOrganizationDefinition>>commonPrefix (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>commonPrefix (in category 'as yet unclassified') ----- commonPrefix | stream | categories isEmpty ifTrue: [^ '']. stream := String new writeStream. 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: MCOrganizationDefinition>>description (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>description (in category 'as yet unclassified') ----- description ^ Array with: #organization with: self commonPrefix! Item was changed: + ----- Method: MCOrganizationDefinition>>isOrganizationDefinition (in category 'testing') ----- - ----- Method: MCOrganizationDefinition>>isOrganizationDefinition (in category 'as yet unclassified') ----- isOrganizationDefinition ^ true! Item was changed: + ----- Method: MCOrganizationDefinition>>postloadOver: (in category 'actions') ----- - ----- Method: MCOrganizationDefinition>>postloadOver: (in category 'as yet unclassified') ----- postloadOver: oldDefinition SystemOrganization categories: (self reorderCategories: SystemOrganization categories original: (oldDefinition ifNil: [#()] ifNotNil: [oldDefinition categories]))! Item was added: + ----- Method: MCOrganizationDefinition>>rename:toBe: (in category 'actions') ----- + rename: oldPackageName toBe: newPackageName + categories do: + [ : each | SystemOrganizer default + renameCategory: each + toBe: + (self + newCategoryNameFor: each + givenRenameFrom: oldPackageName + to: newPackageName) ]! Item was changed: + ----- Method: MCOrganizationDefinition>>reorderCategories:original: (in category 'actions') ----- - ----- Method: MCOrganizationDefinition>>reorderCategories:original: (in category 'as yet unclassified') ----- reorderCategories: allCategories original: oldCategories | first | first := allCategories detect: [:ea | categories includes: ea] ifNone: [^ allCategories]. ^ ((allCategories copyUpTo: first) copyWithoutAll: oldCategories, categories), categories, ((allCategories copyAfter: first) copyWithoutAll: oldCategories, categories) ! Item was changed: + ----- Method: MCOrganizationDefinition>>sortKey (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>sortKey (in category 'as yet unclassified') ----- sortKey ^ '<organization>'! Item was changed: + ----- Method: MCOrganizationDefinition>>source (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>source (in category 'as yet unclassified') ----- source ^ String streamContents: [:s | categories do: [:ea | s nextPutAll: ea] separatedBy: [s cr]]! Item was changed: + ----- Method: MCOrganizationDefinition>>summary (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>summary (in category 'as yet unclassified') ----- summary ^ categories asArray printString! Item was added: + ----- Method: MCWorkingCopy>>renameToBe: (in category 'operations') ----- + renameToBe: newPackageName + | newWorkingCopy | + self modified ifTrue: [ self error: 'Should only rename an unmodified package.' ]. + (MCWorkingCopy allManagers anySatisfy: + [ : each | each packageName = newPackageName ]) ifTrue: [ self error: newPackageName , ' is already taken.' ]. + PackageInfo registerPackageName: newPackageName. + newWorkingCopy := (MCWorkingCopy forPackage: (MCPackage new name: newPackageName)) + repositoryGroup: self repositoryGroup ; + requiredPackages: self requiredPackages copy ; + yourself. + self package snapshot definitions do: + [ : each | each + rename: self package name + toBe: newPackageName ]. + self ancestors do: + [ : each | newWorkingCopy ancestry addAncestor: each ]. + self package snapshot definitions ifEmpty: + [ PackageOrganizer default unregisterPackage: (PackageInfo named: self packageName). + self unload ]. + ^ newWorkingCopy! Item was added: + ----- Method: MCWorkingCopy>>requiredPackages: (in category 'private') ----- + requiredPackages: aCollection + requiredPackages := aCollection! Item was added: + ----- Method: MCWorkingCopyBrowser>>renamePackage (in category 'actions') ----- + renamePackage + | newName | + workingCopy ifNil: + [ UIManager inform: 'Please select a package to be renamed.'. + ^ self ]. + workingCopy modified ifTrue: + [ UIManager inform: 'Only unmodified packages should be renamed.'. + ^ self ]. + newName := FillInTheBlankMorph + request: 'New name of package:' + initialAnswer: workingCopy packageName. + newName isEmptyOrNil ifFalse: + [ | newWorkingCopy | + newWorkingCopy := workingCopy renameToBe: newName. + workingCopy package snapshot definitions + ifEmpty: + [ "It worked." + workingCopy unregister. + workingCopy := newWorkingCopy. + self repositorySelection: 0. + self + workingCopyListChanged ; + changed: #workingCopySelection ; + changed: #repositoryList. + self changedButtons ] + ifNotEmpty: + [ "It didn't work, browse the remaining definitions." + self browseWorkingCopy ] ]! Item was changed: ----- Method: MCWorkingCopyBrowser>>workingCopyListMenu: (in category 'morphic ui') ----- workingCopyListMenu: aMenu workingCopy ifNil: [^ aMenu]. self fillMenu: aMenu fromSpecs: #(('add required package' #addRequiredPackage) ('clear required packages' #clearRequiredPackages) ('browse package' #browseWorkingCopy) ('view changes' #viewChanges) ('view history' #viewHistory) ('recompile package' #recompilePackage) ('revert package...' #revertPackage) ('unload package' #unloadPackage) + ('delete working copy' #deleteWorkingCopy) + ('rename package...' #renamePackage)). - ('delete working copy' #deleteWorkingCopy)). (Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [ aMenu add: 'make SAR' target: self selector: #fileOutAsSAR ]. self insertExternalMenuEntries: aMenu. ^aMenu!

1 0

The Trunk: Monticello-cmm.471.mcz
by commits＠source.squeak.org 08 Jun '11

08 Jun '11

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.471.mcz ==================== Summary ==================== Name: Monticello-cmm.471 Author: cmm Time: 8 June 2011, 2:55:08.148 pm UUID: fc2562d3-d276-4240-b9bc-e3945fd4c751 Ancestors: Monticello-cmm.470 - Renamed #rename:toBe: to #handlePackageRename:to:. - Don't complain about unregistering a package that isn't registered. =============== Diff against Monticello-ul.466 =============== Item was removed: - SystemOrganization addCategory: #Monticello! - SystemOrganization addCategory: #'Monticello-Base'! - SystemOrganization addCategory: #'Monticello-Chunk Format'! - SystemOrganization addCategory: #'Monticello-Loading'! - SystemOrganization addCategory: #'Monticello-Merging'! - SystemOrganization addCategory: #'Monticello-Mocks'! - SystemOrganization addCategory: #'Monticello-Modeling'! - SystemOrganization addCategory: #'Monticello-Patching'! - SystemOrganization addCategory: #'Monticello-Repositories'! - SystemOrganization addCategory: #'Monticello-Storing'! - SystemOrganization addCategory: #'Monticello-UI'! - SystemOrganization addCategory: #'Monticello-Utilities'! - SystemOrganization addCategory: #'Monticello-Versioning'! Item was added: + SystemOrganization addCategory: #'Monticello-Base'! + SystemOrganization addCategory: #'Monticello-Chunk Format'! + SystemOrganization addCategory: #'Monticello-Loading'! + SystemOrganization addCategory: #'Monticello-Merging'! + SystemOrganization addCategory: #'Monticello-Modeling'! + SystemOrganization addCategory: #'Monticello-Patching'! + SystemOrganization addCategory: #'Monticello-Repositories'! + SystemOrganization addCategory: #'Monticello-Storing'! + SystemOrganization addCategory: #'Monticello-UI'! + SystemOrganization addCategory: #'Monticello-Versioning'! Item was added: + ----- Method: MCClassDefinition>>handlePackageRename:to: (in category 'renaming') ----- + handlePackageRename: oldPackageName to: newPackageName + (self actualClass category beginsWith: newPackageName) ifFalse: + [ self actualClass category: + (self + newCategoryNameFor: self actualClass category + givenRenameFrom: oldPackageName + to: newPackageName) ]! Item was added: + ----- Method: MCDefinition>>handlePackageRename:to: (in category 'renaming') ----- + handlePackageRename: oldPackageName to: newPackageName + "Overridden as necessary in subclasses."! Item was added: + ----- Method: MCDefinition>>newCategoryNameFor:givenRenameFrom:to: (in category 'renaming') ----- + newCategoryNameFor: categoryName givenRenameFrom: oldPackageName to: newPackageName + ^ oldPackageName size < categoryName size + ifTrue: + [ newPackageName , + (categoryName + copyFrom: oldPackageName size + 1 + to: categoryName size) ] + ifFalse: [ newPackageName ]! Item was added: + ----- Method: MCMethodDefinition>>handlePackageRename:to: (in category 'renaming') ----- + handlePackageRename: oldPackageName to: newPackageName + "If I'm an extension or override method, rename the category to be prefixed with newPackageName." + ((self isExtensionMethod or: [ self isOverrideMethod ]) and: [ (self category allButFirst beginsWith: newPackageName asLowercase) not ]) ifTrue: + [ self actualClass organization + renameCategory: self category + toBe: + '*' , + (self + newCategoryNameFor: self category allButFirst + givenRenameFrom: oldPackageName + to: newPackageName) ]! Item was changed: + ----- Method: MCOrganizationDefinition>>= (in category 'testing') ----- - ----- Method: MCOrganizationDefinition>>= (in category 'as yet unclassified') ----- = aDefinition ^ (super = aDefinition) and: [categories = aDefinition categories]! Item was changed: + ----- Method: MCOrganizationDefinition>>accept: (in category 'actions') ----- - ----- Method: MCOrganizationDefinition>>accept: (in category 'as yet unclassified') ----- accept: aVisitor ^ aVisitor visitOrganizationDefinition: self! Item was changed: + ----- Method: MCOrganizationDefinition>>categories (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>categories (in category 'as yet unclassified') ----- categories ^ categories! Item was changed: + ----- Method: MCOrganizationDefinition>>categories: (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>categories: (in category 'as yet unclassified') ----- categories: anArray categories := anArray! Item was changed: + ----- Method: MCOrganizationDefinition>>commonPrefix (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>commonPrefix (in category 'as yet unclassified') ----- commonPrefix | stream | categories isEmpty ifTrue: [^ '']. stream := String new writeStream. 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: MCOrganizationDefinition>>description (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>description (in category 'as yet unclassified') ----- description ^ Array with: #organization with: self commonPrefix! Item was added: + ----- Method: MCOrganizationDefinition>>handlePackageRename:to: (in category 'actions') ----- + handlePackageRename: oldPackageName to: newPackageName + categories do: + [ : each | (each beginsWith: newPackageName) ifFalse: + [ | newCategoryName | + newCategoryName := self + newCategoryNameFor: each + givenRenameFrom: oldPackageName + to: newPackageName. + (SystemOrganizer default categories includes: newCategoryName) ifTrue: [ SystemOrganizer default removeCategory: newCategoryName ]. + SystemOrganizer default + renameCategory: each + toBe: newCategoryName ] ]! Item was changed: + ----- Method: MCOrganizationDefinition>>isOrganizationDefinition (in category 'testing') ----- - ----- Method: MCOrganizationDefinition>>isOrganizationDefinition (in category 'as yet unclassified') ----- isOrganizationDefinition ^ true! Item was changed: + ----- Method: MCOrganizationDefinition>>postloadOver: (in category 'actions') ----- - ----- Method: MCOrganizationDefinition>>postloadOver: (in category 'as yet unclassified') ----- postloadOver: oldDefinition SystemOrganization categories: (self reorderCategories: SystemOrganization categories original: (oldDefinition ifNil: [#()] ifNotNil: [oldDefinition categories]))! Item was changed: + ----- Method: MCOrganizationDefinition>>reorderCategories:original: (in category 'actions') ----- - ----- Method: MCOrganizationDefinition>>reorderCategories:original: (in category 'as yet unclassified') ----- reorderCategories: allCategories original: oldCategories | first | first := allCategories detect: [:ea | categories includes: ea] ifNone: [^ allCategories]. ^ ((allCategories copyUpTo: first) copyWithoutAll: oldCategories, categories), categories, ((allCategories copyAfter: first) copyWithoutAll: oldCategories, categories) ! Item was changed: + ----- Method: MCOrganizationDefinition>>sortKey (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>sortKey (in category 'as yet unclassified') ----- sortKey ^ '<organization>'! Item was changed: + ----- Method: MCOrganizationDefinition>>source (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>source (in category 'as yet unclassified') ----- source ^ String streamContents: [:s | categories do: [:ea | s nextPutAll: ea] separatedBy: [s cr]]! Item was changed: + ----- Method: MCOrganizationDefinition>>summary (in category 'accessing') ----- - ----- Method: MCOrganizationDefinition>>summary (in category 'as yet unclassified') ----- summary ^ categories asArray printString! Item was changed: ----- Method: MCPackageManager>>unregister (in category 'operations') ----- unregister + self class registry + removeKey: package + ifAbsent: [ "Should not complain when trying to clean up." ]. - self class registry removeKey: package. self class changed: #allManagers! Item was added: + ----- Method: MCWorkingCopy>>renameToBe: (in category 'operations') ----- + renameToBe: newPackageName + | newWorkingCopy definitions | + self modified ifTrue: [ self error: 'Should only rename an unmodified package.' ]. + (MCWorkingCopy allManagers anySatisfy: + [ : each | each packageName = newPackageName ]) ifTrue: [ self error: newPackageName , ' is already taken.' ]. + definitions := self package snapshot definitions. + PackageInfo registerPackageName: newPackageName. + newWorkingCopy := (MCWorkingCopy forPackage: (MCPackage new name: newPackageName)) + repositoryGroup: self repositoryGroup ; + requiredPackages: self requiredPackages copy ; + modified: true ; + yourself. + definitions do: + [ : each | each + handlePackageRename: self package name + to: newPackageName ]. + self ancestors do: + [ : each | newWorkingCopy ancestry addAncestor: each ]. + newWorkingCopy package snapshot definitions size = definitions size ifTrue: + [ PackageOrganizer default unregisterPackage: (PackageInfo named: self packageName). + self unregister ]. + ^ newWorkingCopy! Item was added: + ----- Method: MCWorkingCopy>>requiredPackages: (in category 'private') ----- + requiredPackages: aCollection + requiredPackages := aCollection! Item was added: + ----- Method: MCWorkingCopyBrowser>>renamePackage (in category 'actions') ----- + renamePackage + | newName | + workingCopy ifNil: + [ UIManager inform: 'Please select a package to be renamed.'. + ^ self ]. + workingCopy modified ifTrue: + [ UIManager inform: 'Only unmodified packages should be renamed.'. + ^ self ]. + newName := FillInTheBlankMorph + request: 'New name of package:' + initialAnswer: workingCopy packageName. + newName isEmptyOrNil ifFalse: + [ | newWorkingCopy | + newWorkingCopy := workingCopy renameToBe: newName. + workingCopy package snapshot definitions + ifEmpty: + [ "It worked." + workingCopy unregister. + workingCopy := newWorkingCopy. + self repositorySelection: 0. + self + workingCopyListChanged ; + changed: #workingCopySelection ; + changed: #repositoryList. + self changedButtons ] + ifNotEmpty: + [ "It didn't work, browse the remaining definitions." + self browseWorkingCopy ] ]! Item was changed: ----- Method: MCWorkingCopyBrowser>>workingCopyListMenu: (in category 'morphic ui') ----- workingCopyListMenu: aMenu workingCopy ifNil: [^ aMenu]. self fillMenu: aMenu fromSpecs: #(('add required package' #addRequiredPackage) ('clear required packages' #clearRequiredPackages) ('browse package' #browseWorkingCopy) ('view changes' #viewChanges) ('view history' #viewHistory) ('recompile package' #recompilePackage) ('revert package...' #revertPackage) ('unload package' #unloadPackage) + ('delete working copy' #deleteWorkingCopy) + ('rename package...' #renamePackage)). - ('delete working copy' #deleteWorkingCopy)). (Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [ aMenu add: 'make SAR' target: self selector: #fileOutAsSAR ]. self insertExternalMenuEntries: aMenu. ^aMenu!

1 0

← Newer
1
...
16
17
18
19
20
21
22
23
24
Older →

Jump to page: