Resent with snipped code...<br><br><div class="gmail_quote">Le 30 mars 2012 03:24, Nicolas Cellier <span dir="ltr">&lt;<a href="mailto:nicolas.cellier.aka.nice@gmail.com">nicolas.cellier.aka.nice@gmail.com</a>&gt;</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">&lt;<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>&gt;</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>
&#39;_&#39; s replaced by &#39;:=&#39;<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&gt;&gt;translatedIfCorresponds (in category &#39;*gettext&#39;) -----<br>
  translatedIfCorresponds<br>
        &quot;answer the receiver translated to the default language only if<br>
+       the receiver begins and ends with an underscore (:=)&quot;<br>
+       ^ (&#39;:=*:=&#39; match: self)<br>
-       the receiver begins and ends with an underscore (_)&quot;<br>
-       ^ (&#39;_*_&#39; match: self)<br>
                ifTrue: [(self copyFrom: 2 to: self size - 1) translated]<br>
                ifFalse: [self]!<br>
<br>
Item was changed:<br>
  ----- Method: TranslatedReceiverFinder&gt;&gt;stringReceiversWithContext (in category &#39;accessing&#39;) -----<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&gt;&gt;stringReceiversWithContext: (in category &#39;accessing&#39;) -----<br>
  stringReceiversWithContext: aSymbol<br>
        &quot;Find string receivers for a symbol.<br>
        Answer a collection of aMethodReference -&gt; {keyword. keyword...}&quot;<br>
        &quot;self new stringReceiversWithContext: #translated&quot;<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 -&gt; keywords].<br>
                list]<br>
  !<br>
<br>
<br>
</blockquote></div></div></div><br>
</blockquote></div><br>