<HTML>
<HEAD>
<TITLE>[ExperimentalCoreRelease] Best way of the attached - Contest</TITLE>
</HEAD>
<BODY>
<FONT SIZE="4"><FONT FACE="Calibri, Verdana, Helvetica, Arial"><SPAN STYLE='font-size:11pt'>Folks:<BR>
<BR>
I meet Travis when he comes to Smalltalks 2009 , but unlucky don’t share pizza and beer with he.<BR>
Here some old I wish have, give to all opportunity for have the same better.<BR>
<BR>
'From MinimalMorphic of 8 December 2006 [latest update: #7246] on 9 March 2010 at 8:15:47 pm'!<BR>
<BR>
!CompiledMethod methodsFor: 'printing' stamp: 'edc 10/6/2008 09:54'!<BR>
author<BR>
self timeStamp isEmpty ifFalse: [^self timeStamp substrings first] ifTrue:[^'unknown']<BR>
<BR>
! !<BR>
<BR>
<BR>
!Utilities class methodsFor: 'identification' stamp: 'edc 10/6/2008 09:58'!<BR>
methodsWithInitials: targetInitials inClass: aClass<BR>
"Based on a do-it contributed to the Squeak mailing list by G&brkbar;ɬran Hultgen:<BR>
Browse methods whose initials (in the time-stamp, as logged to disk) match the given initials.<BR>
Print out the complete time-stamp table to the Transcript.<BR>
Answer a list of (initials -> count) associations.<BR>
<BR>
CAUTION: It may take several minutes for this to complete."<BR>
<BR>
"Time millisecondsToRun: [Utilities methodsWithInitials: 'bf']"<BR>
| methodList methodListClass |<BR>
methodList := aClass methodDict select:[:cm| <BR>
cm author = targetInitials].<BR>
methodListClass := aClass class methodDict select:[:cm| cm author = targetInitials].<BR>
^methodList,methodListClass<BR>
! !<BR>
<BR>
<BR>
What for I wish:<BR>
Create a new ChangeSet <BR>
Utilities methodsWithInitials: 'edc' inClass: Object . " hacer inspect "<BR>
self keysAndValuesDo:[:k :v | ChangeSet current adoptSelector: k forClass: v methodClass ].<BR>
<BR>
fileout of .image number one .<BR>
Filein in .image number two. (SqueakCore)<BR>
<BR>
Run Levente test in .image number two.<BR>
If all works , go to trunk.<BR>
<BR>
This model of work satisfy you?<BR>
<BR>
Edgar<BR>
</SPAN></FONT></FONT>
</BODY>
</HTML>