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:#ClassRemoveChange |
16 ClassChange subclass:#ClassRemoveChange |
15 instanceVariableNames:'' |
17 instanceVariableNames:'' |
16 classVariableNames:'' |
18 classVariableNames:'' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
50 [author:] |
52 [author:] |
51 Claus Gittinger |
53 Claus Gittinger |
52 " |
54 " |
53 ! ! |
55 ! ! |
54 |
56 |
|
57 !ClassRemoveChange methodsFor:'accessing'! |
|
58 |
|
59 delta |
|
60 "Returns a delta to the current state as a ChangeDelta object" |
|
61 |
|
62 ^ self changeClass isNil ifTrue:[ |
|
63 #'=' |
|
64 ] ifFalse:[ |
|
65 #'-' |
|
66 ]. |
|
67 |
|
68 "Modified: / 15-04-2015 / 11:17:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
69 ! |
|
70 |
|
71 deltaDetail |
|
72 "Returns a delta to the current state as a ChangeDelta object" |
|
73 |
|
74 ^ self changeClass isNil ifTrue:[ |
|
75 ChangeDeltaInformation identical. |
|
76 ] ifFalse:[ |
|
77 ChangeDeltaInformation removed. |
|
78 ]. |
|
79 |
|
80 "Created: / 15-04-2015 / 11:16:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
81 ! ! |
|
82 |
55 !ClassRemoveChange methodsFor:'printing'! |
83 !ClassRemoveChange methodsFor:'printing'! |
56 |
84 |
57 printOn:aStream |
85 printOn:aStream |
58 aStream nextPutAll:'Smalltalk removeClass: '; |
86 aStream nextPutAll:'Smalltalk removeClass: '; |
59 nextPutAll:className asString |
87 nextPutAll:className asString |
60 |
88 |
61 "Created: / 16-02-1998 / 14:19:48 / cg" |
89 "Created: / 16-02-1998 / 14:19:48 / cg" |
62 "Modified: / 13-11-2006 / 10:40:17 / cg" |
90 "Modified: / 13-11-2006 / 10:40:17 / cg" |
63 ! ! |
|
64 |
|
65 !ClassRemoveChange methodsFor:'queries'! |
|
66 |
|
67 delta |
|
68 | class | |
|
69 |
|
70 class := self changeClass. |
|
71 class notNil ifTrue:[^#-]. |
|
72 ^ #= |
|
73 ! ! |
91 ! ! |
74 |
92 |
75 !ClassRemoveChange methodsFor:'testing'! |
93 !ClassRemoveChange methodsFor:'testing'! |
76 |
94 |
77 isClassRemoveChange |
95 isClassRemoveChange |
80 |
98 |
81 !ClassRemoveChange class methodsFor:'documentation'! |
99 !ClassRemoveChange class methodsFor:'documentation'! |
82 |
100 |
83 version |
101 version |
84 ^ '$Header: /cvs/stx/stx/libbasic3/ClassRemoveChange.st,v 1.8 2014-02-19 13:05:21 cg Exp $' |
102 ^ '$Header: /cvs/stx/stx/libbasic3/ClassRemoveChange.st,v 1.8 2014-02-19 13:05:21 cg Exp $' |
|
103 ! |
|
104 |
|
105 version_HG |
|
106 |
|
107 ^ '$Changeset: <not expanded> $' |
85 ! ! |
108 ! ! |
86 |
109 |