Resent with snipped code...<br><br><div class="gmail_quote">Le 30 mars 2012 03:24, Nicolas Cellier <span dir="ltr"><<a href="mailto:nicolas.cellier.aka.nice@gmail.com">nicolas.cellier.aka.nice@gmail.com</a>></span> a écrit :<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">This broke #translatedIfCorresponds at least...<br><br>Nicolas<br><br><div class="gmail_quote">Le 15 mars 2012 22:27, <span dir="ltr"><<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>></span> a écrit :<div>
<div class="h5"><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Edgar J. De Cleene uploaded a new version of GetText to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/GetText-edc.18.mcz" target="_blank">http://source.squeak.org/trunk/GetText-edc.18.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: GetText-edc.18<br>
Author: edc<br>
Time: 15 March 2012, 6:29:37.486 pm<br>
UUID: 43d88f85-6e87-41fb-8dd1-883feaf3d297<br>
Ancestors: GetText-edc.17<br>
<br>
'_' s replaced by ':='<br>
<br>
=============== Diff against GetText-edc.17 ===============<br>
<br></blockquote></div></div></div></blockquote><div> </div><div>SNIP ...<br> <br></div><blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div class="gmail_quote">
<div><div class="h5"><blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
Item was changed:<br>
----- Method: String>>translatedIfCorresponds (in category '*gettext') -----<br>
translatedIfCorresponds<br>
"answer the receiver translated to the default language only if<br>
+ the receiver begins and ends with an underscore (:=)"<br>
+ ^ (':=*:=' match: self)<br>
- the receiver begins and ends with an underscore (_)"<br>
- ^ ('_*_' match: self)<br>
ifTrue: [(self copyFrom: 2 to: self size - 1) translated]<br>
ifFalse: [self]!<br>
<br>
Item was changed:<br>
----- Method: TranslatedReceiverFinder>>stringReceiversWithContext (in category 'accessing') -----<br>
stringReceiversWithContext<br>
| mrs results rr cls mn t o |<br>
+ mrs := SystemNavigation default allCallsOn: #translated.<br>
+ results := OrderedCollection new.<br>
- mrs _ SystemNavigation default allCallsOn: #translated.<br>
- results _ OrderedCollection new.<br>
mrs do: [:mr |<br>
+ rr := OrderedCollection new.<br>
+ cls := Smalltalk at: mr classSymbol.<br>
- rr _ OrderedCollection new.<br>
- cls _ Smalltalk at: mr classSymbol.<br>
rr add: cls category.<br>
rr add: mr classSymbol.<br>
rr add: mr methodSymbol.<br>
mr classIsMeta ifTrue: [<br>
+ mn := cls class decompile: mr methodSymbol.<br>
- mn _ cls class decompile: mr methodSymbol.<br>
] ifFalse: [<br>
+ mn := cls decompile: mr methodSymbol.<br>
- mn _ cls decompile: mr methodSymbol.<br>
].<br>
+ o := OrderedCollection new.<br>
+ t := Set new.<br>
- o _ OrderedCollection new.<br>
- t _ Set new.<br>
self searchMessageNode: mn addTo: t.<br>
t do: [ :te |<br>
(te receiver isMemberOf: LiteralNode) ifTrue: [<br>
o add: te receiver key.<br>
].<br>
].<br>
o ifNotEmpty: [<br>
rr add: o.<br>
results add: rr.<br>
].<br>
].<br>
^ results.<br>
<br>
!<br>
<br>
Item was changed:<br>
----- Method: TranslatedReceiverFinder>>stringReceiversWithContext: (in category 'accessing') -----<br>
stringReceiversWithContext: aSymbol<br>
"Find string receivers for a symbol.<br>
Answer a collection of aMethodReference -> {keyword. keyword...}"<br>
"self new stringReceiversWithContext: #translated"<br>
| keywords methodReferences |<br>
+ methodReferences := SystemNavigation default allCallsOn: aSymbol.<br>
- methodReferences _ SystemNavigation default allCallsOn: aSymbol.<br>
^ methodReferences inject: OrderedCollection new into: [:list :next |<br>
keywords := self findWordsWith: aSymbol in: next.<br>
keywords<br>
ifNotEmpty: [list add: next -> keywords].<br>
list]<br>
!<br>
<br>
<br>
</blockquote></div></div></div><br>
</blockquote></div><br>