hg/stx-goodies-monticello: MCClassComment.st@f0a16c301971 (annotated)

1117 5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	1	"
1150 167bfe697a5d Convert line ends and tabs also in class comments Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	2	COPYRIGHT (c) 2020-2021 LabWare
1117 5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	3	"
951 549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	"{ Package: 'stx:goodies/monticello' }"
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5
1099 df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	6	"{ NameSpace: Smalltalk }"
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	7
951 549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	MCDefinition subclass:#MCClassComment
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	instanceVariableNames:'className comment source'
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	classVariableNames:''
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	poolDictionaries:''
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	category:'SCM-Monticello-Modeling'
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	!
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14
1117 5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	15	!MCClassComment class methodsFor:'documentation'!
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	16
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	17	copyright
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	18	"
1150 167bfe697a5d Convert line ends and tabs also in class comments Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	19	COPYRIGHT (c) 2020-2021 LabWare
1117 5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	20
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	21
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	22	"
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	23	! !
951 549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	!MCClassComment methodsFor:'accessing'!
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	actualClass
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	^Smalltalk classNamed: self className
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	!
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	className
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	^ className
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	!
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	className:classNameArg comment:commentArg source:sourceArg
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	className := classNameArg.
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	comment := commentArg.
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	source := sourceArg.
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	!
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	comment
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	^ comment
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	!
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44
1150 167bfe697a5d Convert line ends and tabs also in class comments Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	45	comment:aString
167bfe697a5d Convert line ends and tabs also in class comments Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	46	comment := aString.
167bfe697a5d Convert line ends and tabs also in class comments Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	47	!
167bfe697a5d Convert line ends and tabs also in class comments Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	48
959 6abd2b4fd1eb class: MCClassComment Claus Gittinger <cg@exept.de> parents: 951 diff changeset	49	sortKey
1099 df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	50	^ self summary
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	51
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	52	"Modified: / 25-05-2020 / 12:42:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
959 6abd2b4fd1eb class: MCClassComment Claus Gittinger <cg@exept.de> parents: 951 diff changeset	53	!
6abd2b4fd1eb class: MCClassComment Claus Gittinger <cg@exept.de> parents: 951 diff changeset	54
951 549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	source
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	^ source
1150 167bfe697a5d Convert line ends and tabs also in class comments Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	57	!
167bfe697a5d Convert line ends and tabs also in class comments Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	58
167bfe697a5d Convert line ends and tabs also in class comments Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	59	source:aString
167bfe697a5d Convert line ends and tabs also in class comments Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	60	source := aString.
951 549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	! !
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62
1099 df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	63	!MCClassComment methodsFor:'comparing'!
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	64
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	65	description
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	66	"superclass MCDefinition says that I am responsible to implement this method"
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	67
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	68	^ Array with: self summary
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	69
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	70	"Modified: / 25-05-2020 / 12:34:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	71	! !
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	72
959 6abd2b4fd1eb class: MCClassComment Claus Gittinger <cg@exept.de> parents: 951 diff changeset	73	!MCClassComment methodsFor:'converting'!
6abd2b4fd1eb class: MCClassComment Claus Gittinger <cg@exept.de> parents: 951 diff changeset	74
6abd2b4fd1eb class: MCClassComment Claus Gittinger <cg@exept.de> parents: 951 diff changeset	75	asChange
6abd2b4fd1eb class: MCClassComment Claus Gittinger <cg@exept.de> parents: 951 diff changeset	76	^ ClassCommentChange new className:self className comment:self comment
6abd2b4fd1eb class: MCClassComment Claus Gittinger <cg@exept.de> parents: 951 diff changeset	77	! !
6abd2b4fd1eb class: MCClassComment Claus Gittinger <cg@exept.de> parents: 951 diff changeset	78
951 549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	!MCClassComment methodsFor:'loading'!
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	load
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82	\|actualClass\|
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84	actualClass := self actualClass.
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85	actualClass comment:comment
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	! !
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	87
1099 df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	88	!MCClassComment methodsFor:'printing'!
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	89
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	90	summary
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	91	"superclass MCDefinition says that I am responsible to implement this method"
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	92
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	93	^ className , ' (comment)'
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	94
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	95	"Modified: / 25-05-2020 / 12:34:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	96	! !
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	97
1117 5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	98	!MCClassComment methodsFor:'quieries'!
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	99
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	100	requires: anMCDefinition
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	101	^ anMCDefinition isClassDefinition
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	102	and: [ anMCDefinition className = className ]
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	103
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	104	"Created: / 01-09-2020 / 16:28:17 / Jan Vrany <jan.vrany@labware.com>"
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	105	! !
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	106
1099 df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	107	!MCClassComment methodsFor:'visiting'!
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	108
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	109	accept:aVisitor
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	110	"raise an error: must be redefined in concrete subclass(es)"
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	111
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	112	^ aVisitor visitClassComment: self.
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	113
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	114	"Created: / 25-05-2020 / 12:38:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	115	! !
df7f9c846b88 Fix source loading w.r.t. class comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 959 diff changeset	116
951 549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117	!MCClassComment class methodsFor:'documentation'!
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	119	version
959 6abd2b4fd1eb class: MCClassComment Claus Gittinger <cg@exept.de> parents: 951 diff changeset	120	^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassComment.st,v 1.2 2014-12-23 19:47:11 cg Exp $'
951 549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	121	!
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	123	version_CVS
959 6abd2b4fd1eb class: MCClassComment Claus Gittinger <cg@exept.de> parents: 951 diff changeset	124	^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassComment.st,v 1.2 2014-12-23 19:47:11 cg Exp $'
1117 5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	125	!
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	126
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	127	version_HG
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	128
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1099 diff changeset	129	^ '$Changeset: <not expanded> $'
951 549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	! !
549ceeed8508 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131

author	Jan Vrany <jan.vrany@labware.com>
	Tue, 11 Jul 2023 12:59:07 +0100
branch	jv
changeset 1174	f0a16c301971
parent 1150	167bfe697a5d
permissions	-rw-r--r--