ATMinimalLearningObject >> addFromObjectSelector: aSelector

�� �� | method |
�� �� method := OpalCompiler new
�� �� �� �� �� �� �� �� �� �� class: self class;
�� �� �� �� �� �� �� �� �� �� source: (Object sourceCodeAt: aSelector);
�� �� �� �� �� �� �� �� �� �� compile.
�� �� self class addSelector: aSelector withMethod: method.