equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1988 by Claus Gittinger |
4 COPYRIGHT (c) 1988 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
108 |
110 |
109 ^ self == Metaclass class or:[self == Metaclass] |
111 ^ self == Metaclass class or:[self == Metaclass] |
110 |
112 |
111 "Modified: 23.4.1996 / 15:59:44 / cg" |
113 "Modified: 23.4.1996 / 15:59:44 / cg" |
112 ! ! |
114 ! ! |
113 |
|
114 |
115 |
115 !Metaclass methodsFor:'Compatibility-ST80'! |
116 !Metaclass methodsFor:'Compatibility-ST80'! |
116 |
117 |
117 comment:aString |
118 comment:aString |
118 "ignored - sometimes found in ST-80 fileOut files. |
119 "ignored - sometimes found in ST-80 fileOut files. |
851 ! |
852 ! |
852 |
853 |
853 theNonMetaclass |
854 theNonMetaclass |
854 "return the nonMetaClass of the class-meta pair. |
855 "return the nonMetaClass of the class-meta pair. |
855 Here, return my class object, because I am the metaclass. |
856 Here, return my class object, because I am the metaclass. |
856 Also implemented in my class, which returns itself." |
857 Also implemented in my class, which returns itself. |
|
858 Sigh: ST/X naming; Squeak calls this theNonMetaClass" |
857 |
859 |
858 ^ self soleInstance |
860 ^ self soleInstance |
859 |
861 |
860 "Created: / 30.1.2000 / 23:08:11 / cg" |
862 "Created: / 30.1.2000 / 23:08:11 / cg" |
861 "Modified: / 31.1.2000 / 16:17:02 / cg" |
863 "Modified: / 31.1.2000 / 16:17:02 / cg" |
926 ! ! |
928 ! ! |
927 |
929 |
928 !Metaclass class methodsFor:'documentation'! |
930 !Metaclass class methodsFor:'documentation'! |
929 |
931 |
930 version_CVS |
932 version_CVS |
931 ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.215 2014-12-31 09:15:58 cg Exp $' |
933 ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.216 2015-03-09 10:06:43 cg Exp $' |
932 ! ! |
934 ! ! |
933 |
935 |
934 |
936 |
935 Metaclass initialize! |
937 Metaclass initialize! |