equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libbasic3' }" |
12 "{ Package: 'stx:libbasic3' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 ClassChange subclass:#ClassPrimitiveChange |
16 ClassChange subclass:#ClassPrimitiveChange |
15 instanceVariableNames:'' |
17 instanceVariableNames:'' |
16 classVariableNames:'' |
18 classVariableNames:'' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
37 |
39 |
38 documentation |
40 documentation |
39 " |
41 " |
40 Abstract superclass for all primitive code changes |
42 Abstract superclass for all primitive code changes |
41 " |
43 " |
|
44 ! ! |
|
45 |
|
46 !ClassPrimitiveChange class methodsFor:'queries'! |
|
47 |
|
48 isAbstract |
|
49 "Return if this class is an abstract class. |
|
50 True is returned here for myself only; false for subclasses. |
|
51 Abstract subclasses must redefine this again." |
|
52 |
|
53 ^ self == ClassPrimitiveChange. |
42 ! ! |
54 ! ! |
43 |
55 |
44 !ClassPrimitiveChange methodsFor:'accessing'! |
56 !ClassPrimitiveChange methodsFor:'accessing'! |
45 |
57 |
46 class:aClass source:newSource |
58 class:aClass source:newSource |
96 ! ! |
108 ! ! |
97 |
109 |
98 !ClassPrimitiveChange class methodsFor:'documentation'! |
110 !ClassPrimitiveChange class methodsFor:'documentation'! |
99 |
111 |
100 version |
112 version |
101 ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveChange.st,v 1.8 2014-02-19 13:05:43 cg Exp $' |
113 ^ '$Header$' |
102 ! |
114 ! |
103 |
115 |
104 version_CVS |
116 version_CVS |
105 ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveChange.st,v 1.8 2014-02-19 13:05:43 cg Exp $' |
117 ^ '$Header$' |
106 ! ! |
118 ! ! |
107 |
119 |