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,