Folks:

I meet Travis when he comes to Smalltalks 2009 , but unlucky don’t share
pizza and beer with he.
Here some old I wish have, give to all opportunity for have the same better.

'From MinimalMorphic of 8 December 2006 [latest update: #7246] on 9 March
2010 at 8:15:47 pm'!

!CompiledMethod methodsFor: 'printing' stamp: 'edc 10/6/2008 09:54'!
author
 self timeStamp isEmpty ifFalse: [^self timeStamp substrings first]
ifTrue:[^'unknown']

    ! !


!Utilities class methodsFor: 'identification' stamp: 'edc 10/6/2008 09:58'!
methodsWithInitials: targetInitials inClass: aClass
    "Based on a do-it contributed to the Squeak mailing list by G¦É¬Žran
Hultgen:
 Browse methods whose initials (in the time-stamp, as logged to disk) match
the given initials.
 Print out the complete time-stamp table to the Transcript.
 Answer a list of (initials -> count) associations.

CAUTION: It may take several minutes for this to complete."

    "Time millisecondsToRun: [Utilities methodsWithInitials: 'bf']"
    | methodList methodListClass |
    methodList := aClass methodDict select:[:cm|
        cm  author = targetInitials].
    methodListClass := aClass class methodDict select:[:cm| cm  author =
targetInitials].
        ^methodList,methodListClass
    ! !


What for I wish:
Create a new ChangeSet
Utilities methodsWithInitials: 'edc' inClass: Object . " hacer inspect "
self keysAndValuesDo:[:k :v | ChangeSet current adoptSelector: k forClass: v
methodClass ].

fileout of .image number one .
Filein in .image number two. (SqueakCore)

Run Levente test in .image number two.
If all works , go to trunk.

This model of work satisfy you?

Edgar

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20100312/051e4a01/attachment.htm