We noticed today that attempting to do Store > Browse Versions on some of our methods brought up “No prior versions” dialog. The culprit appears to be the fact that MethodDefinition>>asStoreObjectInPackage filters out Store versions that are not from the package of the same name as the current package. So if method’s history is wholly owned by the package pre-rename, you will not be able to see any history of the method whatsoever. The interim fix (read: hack) is as follows,
MethodDefinition>>asStoreObjectInPackage
| package versions session packageModel |
packageModel := Store.Registry containingPackageForSelector: self selector class: self implementingClass.
session := packageModel isNil
ifTrue: [Store.Glorp.StoreLoginFactory currentStoreSession]
ifFalse:
[package := packageModel asStorePundle.
package isNil ifTrue: [Store.Glorp.StoreLoginFactory currentStoreSession] ifFalse: [package session]].
versions := Store.Glorp.StoreMethodInPackage
allVersionsWithName: self selector asString
inClass: self implementingClass absoluteName
in: session.
packageModel ifNil: [^versions isEmpty ifTrue: [nil] ifFalse: [versions first]].
^versions detect: [:each | true] ifNone: [nil].
Regards,
-Boris
--
DeepCove Labs Ltd.
+1 (604) 689-0322
4th floor, 595 Howe Street
Vancouver, British Columbia
Canada V6C 2T5
http://tinyurl.com/r7uw4
PacNet Services (Europe) Ltd.
+353 (0)61 714-360
Shannon Airport House, SFZ
County Clare, Ireland
http://tinyurl.com/y952amr
CONFIDENTIALITY NOTICE
This email is intended only for the persons named in the message header. Unless otherwise indicated, it contains information that is private and confidential. If you have received it in error, please notify the sender and delete the entire message including any attachments.
Thank you.
Locked
