<br><br><div class="gmail_quote">On Sat, Feb 28, 2009 at 7:42 PM, Sebastian Sastre <span dir="ltr"><<a href="mailto:ssastre@seaswork.com">ssastre@seaswork.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
hi there, while loading some stuff of mine form an image to another, I was<br>
annoyed/surprised by not finding some methods. Then I've figured out that all<br>
not imported methods where missing because somehow they happen to be under a<br>
category named *-changed some others under *-compilation-issues.<br>
<br>
There is a way I can query the system (monticello?) to get the whole and set<br>
them another category (so I can save the packageproperly)?</blockquote><div><br></div><div>Let's say that SystemNavigation>>allMethodsInCatergory: answers MethodReference instances instead of 'Classd>selector' string thingies, and if it doesn't that it can by defining it as</div>
<div><br></div><div>SystemNavigation methods for query<br></div><div>allMethodsInCategory: category </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>| aCollection |</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>aCollection := Set new.</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>Cursor wait showWhile:</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>[self allBehaviorsDo:</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>[:x |</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>((category = ClassOrganizer allCategory</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>ifTrue: [x organization allMethodSelectors]</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>ifFalse: [x organization listAtCategoryNamed: category])) do:</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>[:sel | aCollection add: (MethodReference new setStandardClass: x methodSymbol: sel)]]].</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>^aCollection.</div><div><br></div><div>then you want to say</div><div><br></div><div> (SystemNavigation default allMethodsInCategory: #'* whatever the category * was called') do:</div>
<div> [:mr|</div><div> mr actualClass organization</div><div> classify: mr methodSymbol</div><div> under: #'what I would like the category to be']</div><div><span class="Apple-style-span" style="white-space: pre; "> </span> </div>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><br>
<br>
thanks,<br>
<font color="#888888"><br>
sebastian<br>
<br>
<br>
</font></blockquote></div><br>