equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/monticello' }" |
1 "{ Package: 'stx:goodies/monticello' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 MCDefinition subclass:#MCClassComment |
5 MCDefinition subclass:#MCClassComment |
4 instanceVariableNames:'className comment source' |
6 instanceVariableNames:'className comment source' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
27 comment |
29 comment |
28 ^ comment |
30 ^ comment |
29 ! |
31 ! |
30 |
32 |
31 sortKey |
33 sortKey |
32 self halt:'please define sortKey here'. |
34 ^ self summary |
|
35 |
|
36 "Modified: / 25-05-2020 / 12:42:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
33 ! |
37 ! |
34 |
38 |
35 source |
39 source |
36 ^ source |
40 ^ source |
|
41 ! ! |
|
42 |
|
43 !MCClassComment methodsFor:'comparing'! |
|
44 |
|
45 description |
|
46 "superclass MCDefinition says that I am responsible to implement this method" |
|
47 |
|
48 ^ Array with: self summary |
|
49 |
|
50 "Modified: / 25-05-2020 / 12:34:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
37 ! ! |
51 ! ! |
38 |
52 |
39 !MCClassComment methodsFor:'converting'! |
53 !MCClassComment methodsFor:'converting'! |
40 |
54 |
41 asChange |
55 asChange |
49 |
63 |
50 actualClass := self actualClass. |
64 actualClass := self actualClass. |
51 actualClass comment:comment |
65 actualClass comment:comment |
52 ! ! |
66 ! ! |
53 |
67 |
|
68 !MCClassComment methodsFor:'printing'! |
|
69 |
|
70 summary |
|
71 "superclass MCDefinition says that I am responsible to implement this method" |
|
72 |
|
73 ^ className , ' (comment)' |
|
74 |
|
75 "Modified: / 25-05-2020 / 12:34:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
76 ! ! |
|
77 |
|
78 !MCClassComment methodsFor:'visiting'! |
|
79 |
|
80 accept:aVisitor |
|
81 "raise an error: must be redefined in concrete subclass(es)" |
|
82 |
|
83 ^ aVisitor visitClassComment: self. |
|
84 |
|
85 "Created: / 25-05-2020 / 12:38:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
86 ! ! |
|
87 |
54 !MCClassComment class methodsFor:'documentation'! |
88 !MCClassComment class methodsFor:'documentation'! |
55 |
89 |
56 version |
90 version |
57 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassComment.st,v 1.2 2014-12-23 19:47:11 cg Exp $' |
91 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassComment.st,v 1.2 2014-12-23 19:47:11 cg Exp $' |
58 ! |
92 ! |