hg/stx-libbasic3: ClassCommentChange.st@62bf05cbd095 (annotated)

3 263f814933d4 * empty log message * claus parents: 0 diff changeset	1	"
263f814933d4 * empty log message * claus parents: 0 diff changeset	2	COPYRIGHT (c) 1993 by Claus Gittinger
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	3	All Rights Reserved
3 263f814933d4 * empty log message * claus parents: 0 diff changeset	4
263f814933d4 * empty log message * claus parents: 0 diff changeset	5	This software is furnished under a license and may be used
263f814933d4 * empty log message * claus parents: 0 diff changeset	6	only in accordance with the terms of that license and with the
263f814933d4 * empty log message * claus parents: 0 diff changeset	7	inclusion of the above copyright notice. This software may not
263f814933d4 * empty log message * claus parents: 0 diff changeset	8	be provided or otherwise made available to, or used by, any
263f814933d4 * empty log message * claus parents: 0 diff changeset	9	other person. No title to or ownership of the software is
263f814933d4 * empty log message * claus parents: 0 diff changeset	10	hereby transferred.
263f814933d4 * empty log message * claus parents: 0 diff changeset	11	"
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 896 diff changeset	12	"{ Package: 'stx:libbasic3' }"
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 896 diff changeset	13
0 470788421600 Initial revision claus parents: diff changeset	14	ClassChange subclass:#ClassCommentChange
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	15	instanceVariableNames:'comment'
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	16	classVariableNames:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	17	poolDictionaries:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	18	category:'System-Changes'
0 470788421600 Initial revision claus parents: diff changeset	19	!
470788421600 Initial revision claus parents: diff changeset	20
9 f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	21	!ClassCommentChange class methodsFor:'documentation'!
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	22
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	23	copyright
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	24	"
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	25	COPYRIGHT (c) 1993 by Claus Gittinger
38 30fdc5e331f7 . claus parents: 10 diff changeset	26	All Rights Reserved
9 f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	27
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	28	This software is furnished under a license and may be used
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	29	only in accordance with the terms of that license and with the
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	30	inclusion of the above copyright notice. This software may not
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	31	be provided or otherwise made available to, or used by, any
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	32	other person. No title to or ownership of the software is
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	33	hereby transferred.
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	34	"
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	35	!
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	36
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	37	documentation
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	38	"
1162 4af27057a3ce comment Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	39	instances represent class comment-changes.
4af27057a3ce comment Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	40	They are typically held in a ChangeSet.
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	41
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	42	[author:]
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	43	Claus Gittinger
9 f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	44	"
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	45	! !
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	46
0 470788421600 Initial revision claus parents: diff changeset	47	!ClassCommentChange methodsFor:'accessing'!
470788421600 Initial revision claus parents: diff changeset	48
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	49	className:clsName comment:aCommentString
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	50	className := clsName.
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	51	comment := aCommentString
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	52
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	53	"Created: / 16.2.1998 / 14:16:45 / cg"
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	54	!
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	55
0 470788421600 Initial revision claus parents: diff changeset	56	comment
470788421600 Initial revision claus parents: diff changeset	57	^ comment
890 f1ab9db8757f fixes (source access) Claus Gittinger <cg@exept.de> parents: 801 diff changeset	58	!
f1ab9db8757f fixes (source access) Claus Gittinger <cg@exept.de> parents: 801 diff changeset	59
f1ab9db8757f fixes (source access) Claus Gittinger <cg@exept.de> parents: 801 diff changeset	60	comment:aCommentString
f1ab9db8757f fixes (source access) Claus Gittinger <cg@exept.de> parents: 801 diff changeset	61	comment := aCommentString
f1ab9db8757f fixes (source access) Claus Gittinger <cg@exept.de> parents: 801 diff changeset	62
f1ab9db8757f fixes (source access) Claus Gittinger <cg@exept.de> parents: 801 diff changeset	63	"Created: / 16.2.1998 / 14:16:45 / cg"
0 470788421600 Initial revision claus parents: diff changeset	64	! !
470788421600 Initial revision claus parents: diff changeset	65
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	66	!ClassCommentChange methodsFor:'comparing'!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	67
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	68	isForSameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	69	"return true, if the given change represents a change for the same
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	70	thingy as the receiver (i.e. same method, same definition etc.)."
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	71
786 be86669ca62e checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	72	changeB isClassCommentChange ifFalse:[^ false].
798 999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 786 diff changeset	73	^ className = changeB className
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	74
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	75
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	76	!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	77
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	78	sameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	79	"return true, if the given change represents the same change as the receiver."
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	80
1834 62bf05cbd095 * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	81	(self isForSameAs:changeB) ifFalse:[^ false].
62bf05cbd095 * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	82	^ comment = changeB comment
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	83
1834 62bf05cbd095 * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	84	"Modified: / 06-10-2006 / 14:06:02 / cg"
890 f1ab9db8757f fixes (source access) Claus Gittinger <cg@exept.de> parents: 801 diff changeset	85	!
f1ab9db8757f fixes (source access) Claus Gittinger <cg@exept.de> parents: 801 diff changeset	86
f1ab9db8757f fixes (source access) Claus Gittinger <cg@exept.de> parents: 801 diff changeset	87	source
f1ab9db8757f fixes (source access) Claus Gittinger <cg@exept.de> parents: 801 diff changeset	88	"synthesize the changes source"
f1ab9db8757f fixes (source access) Claus Gittinger <cg@exept.de> parents: 801 diff changeset	89
1314 482509739cd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	90	^ String
482509739cd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	91	streamContents:
482509739cd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	92	[:s \|
482509739cd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	93	self printOn:s.
482509739cd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	94	comment storeOn:s.
482509739cd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	95	]
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	96	! !
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	97
962 3821ab69b939 category change Claus Gittinger <cg@exept.de> parents: 957 diff changeset	98	!ClassCommentChange methodsFor:'printing & storing'!
0 470788421600 Initial revision claus parents: diff changeset	99
6 2f5dd35ff019 * empty log message * claus parents: 3 diff changeset	100	printOn:aStream
801 b84b61eaa2f6 comment Claus Gittinger <cg@exept.de> parents: 798 diff changeset	101	"append a user printed representation of the receiver to aStream.
b84b61eaa2f6 comment Claus Gittinger <cg@exept.de> parents: 798 diff changeset	102	The format is suitable for a human - not meant to be read back."
b84b61eaa2f6 comment Claus Gittinger <cg@exept.de> parents: 798 diff changeset	103
1316 9819f02f6e48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	104	"/ \|ns\|
9819f02f6e48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	105	"/
9819f02f6e48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	106	"/ ns := self nameSpaceName.
9819f02f6e48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	107	"/ ns notNil ifTrue:[
9819f02f6e48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	108	"/ aStream nextPutAll:ns; nextPutAll:'::'
9819f02f6e48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	109	"/ ].
1314 482509739cd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	110	aStream nextPutAll:self className; nextPutAll:' comment:'
779 d2c59a219cbc * empty log message * Claus Gittinger <cg@exept.de> parents: 776 diff changeset	111	!
d2c59a219cbc * empty log message * Claus Gittinger <cg@exept.de> parents: 776 diff changeset	112
896 035d5613a20c * empty log message * Claus Gittinger <cg@exept.de> parents: 890 diff changeset	113	printWithoutClassNameOn:aStream
779 d2c59a219cbc * empty log message * Claus Gittinger <cg@exept.de> parents: 776 diff changeset	114	(className endsWith:' class') ifTrue:[
d2c59a219cbc * empty log message * Claus Gittinger <cg@exept.de> parents: 776 diff changeset	115	aStream nextPutAll:'class '
d2c59a219cbc * empty log message * Claus Gittinger <cg@exept.de> parents: 776 diff changeset	116	].
780 1582b108ef4c checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	117	aStream nextPutAll:'comment:'
0 470788421600 Initial revision claus parents: diff changeset	118	! !
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	119
776 74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	120	!ClassCommentChange methodsFor:'queries'!
74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	121
74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	122	isClassCommentChange
74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	123	^ true
74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	124
74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	125
74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	126	! !
74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	127
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	128	!ClassCommentChange class methodsFor:'documentation'!
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	129
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	130	version
1834 62bf05cbd095 * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	131	^ '$Header: /cvs/stx/stx/libbasic3/ClassCommentChange.st,v 1.32 2006-10-06 12:20:29 cg Exp $'
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	132	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 06 Oct 2006 14:20:29 +0200
changeset 1834	62bf05cbd095
parent 1316	9819f02f6e48
child 2413	0c1000d6978b
permissions	-rw-r--r--