packageFromOrganizer: anRPackageOrganizer

"This method returns the package this method belongs to.  

It takes into account classes and traits.  

If the method is in no package, returns nil by now"

self flag: 'TODO: use anRPackageOrganizer, or better delegate to anRPackageOrganizer'.

^self origin packages 

detect: [ :each | 

(each includesSelector: self selector ofClassName: self origin theNonMetaClass originalName) 

or: [ each includesSelector: self selector ofMetaclassName: self origin theNonMetaClass originalName]] 

ifNone: [ nil ]

because "each" (which was GRPackage) dnu #includesSelector:ofClassName:

Problem is that "self origin" answers GRPackage. And GRPackage DOES implement a CLASS side method #packages that answers instances of GRPackage.....not RPackage...

So...which one do we prefix? GRPackage class #packages to #greasePackages?

BTW, there are yet more class side implementations of #packages, which are basically subclasses for the HelpSystem (CustomHelp). So we have for example SUnitAPIDocumentation, RegexAPIDocumentation, ProfStefAPIHelp, HelpAPIDocumentation, AnnouncementsAPIDocumentation.

Guess we should update the HelpSystem as well?

Let me know and I open issues/submit fixes.

Cheers,

--
Mariano
http://marianopeck.wordpress.com