[squeak-dev] The Trunk: Monticello-cmm.463.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue May 3 23:35:11 UTC 2011
Chris Muller uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-cmm.463.mcz
==================== Summary ====================
Name: Monticello-cmm.463
Author: cmm
Time: 3 May 2011, 6:34:35.174 pm
UUID: cb360fcd-9cf7-4613-9013-101198e88deb
Ancestors: Monticello-ul.462
- Added MCRepository>>wasRemoved hook method so that subclasses may override to, for example, disconnect a db session.
=============== Diff against Monticello-ul.462 ===============
Item was changed:
+ 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'!
- SystemOrganization addCategory: #'Monticello-Mocks'!
- SystemOrganization addCategory: #Monticello!
Item was added:
+ ----- Method: MCRepository>>wasRemoved (in category 'ui') -----
+ wasRemoved
+ "Subclasses may override to, for example, disconnect a db session."!
Item was changed:
----- Method: MCRepositoryGroup>>removeRepository: (in category 'add / remove') -----
removeRepository: aRepository
+ | removed |
+ removed := repositories remove: aRepository ifAbsent: [].
+ removed ifNotNil: [ removed wasRemoved ].
- repositories remove: aRepository ifAbsent: [].
self changed: #repositories!
Item was changed:
----- Method: MCVersionName>>versionName (in category 'accessing') -----
versionName
"Answer my version name as a ByteString, without the file suffix or any ancestor-attributes."
-
| end |
+ self isEmpty ifTrue: [^ String empty].
- self isEmpty ifTrue: [^''].
(self last between: $0 and: $9)
ifTrue: [ end := self size ]
ifFalse: [
end := (self lastIndexOf: $. ifAbsent: [ self size + 1 ]) - 1.
end := end min: (self indexOf: $( ifAbsent: [ self size + 1 ]) - 1 ].
^self first: end!
More information about the Squeak-dev
mailing list
|