# HG changeset patch # User Claus Gittinger # Date 1355741366 -3600 # Node ID 5c27c812055b7014a4cf8fc7c3ef9373d0a11241 # Parent bd408c36e089d2e1beae6ea5d820ec7068241d45 class: Method added: #getMclass diff -r bd408c36e089 -r 5c27c812055b Method.st --- a/Method.st Fri Dec 14 12:59:34 2012 +0100 +++ b/Method.st Mon Dec 17 11:49:26 2012 +0100 @@ -450,6 +450,10 @@ "Modified: / 01-06-2012 / 23:03:57 / cg" ! +getMclass + ^ mclass +! + getPackage "return the package-ID of the method" @@ -3742,11 +3746,11 @@ !Method class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.404 2012-12-13 13:37:05 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.405 2012-12-17 10:49:26 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.404 2012-12-13 13:37:05 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.405 2012-12-17 10:49:26 cg Exp $' ! version_SVN