hg/stx-libbasic3: ClassCommentChange.st@b84b61eaa2f6 (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	"
0 470788421600 Initial revision claus parents: diff changeset	12
470788421600 Initial revision claus parents: diff changeset	13	ClassChange subclass:#ClassCommentChange
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	14	instanceVariableNames:'comment'
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	15	classVariableNames:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	16	poolDictionaries:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	17	category:'System-Changes'
0 470788421600 Initial revision claus parents: diff changeset	18	!
470788421600 Initial revision claus parents: diff changeset	19
9 f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	20	!ClassCommentChange class methodsFor:'documentation'!
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	21
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	22	copyright
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	23	"
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	24	COPYRIGHT (c) 1993 by Claus Gittinger
38 30fdc5e331f7 . claus parents: 10 diff changeset	25	All Rights Reserved
9 f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	26
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	27	This software is furnished under a license and may be used
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	28	only in accordance with the terms of that license and with the
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	29	inclusion of the above copyright notice. This software may not
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	30	be provided or otherwise made available to, or used by, any
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	31	other person. No title to or ownership of the software is
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	32	hereby transferred.
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	33	"
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	documentation
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	37	"
45 0a58b03645a6 . claus parents: 39 diff changeset	38	instances represent class comment-changes. They are typically
0a58b03645a6 . claus parents: 39 diff changeset	39	held in a ChangeSet.
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	40
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	41	[author:]
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	42	Claus Gittinger
9 f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	43	"
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	44	! !
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	45
0 470788421600 Initial revision claus parents: diff changeset	46	!ClassCommentChange methodsFor:'accessing'!
470788421600 Initial revision claus parents: diff changeset	47
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	48	className:clsName comment:aCommentString
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	49	className := clsName.
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	50	comment := aCommentString
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	51
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	52	"Created: / 16.2.1998 / 14:16:45 / cg"
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	53	!
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	54
0 470788421600 Initial revision claus parents: diff changeset	55	comment
470788421600 Initial revision claus parents: diff changeset	56	^ comment
470788421600 Initial revision claus parents: diff changeset	57	! !
470788421600 Initial revision claus parents: diff changeset	58
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	59	!ClassCommentChange methodsFor:'comparing'!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	60
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	61	isForSameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	62	"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	63	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	64
786 be86669ca62e checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	65	changeB isClassCommentChange ifFalse:[^ false].
798 999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 786 diff changeset	66	^ className = changeB className
784 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
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	69	!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	70
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	71	sameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	72	"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	73
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	74	changeB isClassCommentChange ifFalse:[^ false].
798 999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 786 diff changeset	75	className = changeB className ifFalse:[^ false].
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	76	^ comment = changeB comment
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
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	79	! !
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 780 diff changeset	80
0 470788421600 Initial revision claus parents: diff changeset	81	!ClassCommentChange methodsFor:'printing'!
470788421600 Initial revision claus parents: diff changeset	82
6 2f5dd35ff019 * empty log message * claus parents: 3 diff changeset	83	printOn:aStream
801 b84b61eaa2f6 comment Claus Gittinger <cg@exept.de> parents: 798 diff changeset	84	"append a user printed representation of the receiver to aStream.
b84b61eaa2f6 comment Claus Gittinger <cg@exept.de> parents: 798 diff changeset	85	The format is suitable for a human - not meant to be read back."
b84b61eaa2f6 comment Claus Gittinger <cg@exept.de> parents: 798 diff changeset	86
774 55f6eaa1c735 changed #printOn. Claus Gittinger <cg@exept.de> parents: 654 diff changeset	87	aStream nextPutAll:className;
55f6eaa1c735 changed #printOn. Claus Gittinger <cg@exept.de> parents: 654 diff changeset	88	nextPutAll:' comment:'
779 d2c59a219cbc * empty log message * Claus Gittinger <cg@exept.de> parents: 776 diff changeset	89	!
d2c59a219cbc * empty log message * Claus Gittinger <cg@exept.de> parents: 776 diff changeset	90
d2c59a219cbc * empty log message * Claus Gittinger <cg@exept.de> parents: 776 diff changeset	91	printWithoutClassOn:aStream
d2c59a219cbc * empty log message * Claus Gittinger <cg@exept.de> parents: 776 diff changeset	92	(className endsWith:' class') ifTrue:[
d2c59a219cbc * empty log message * Claus Gittinger <cg@exept.de> parents: 776 diff changeset	93	aStream nextPutAll:'class '
d2c59a219cbc * empty log message * Claus Gittinger <cg@exept.de> parents: 776 diff changeset	94	].
780 1582b108ef4c checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	95	aStream nextPutAll:'comment:'
0 470788421600 Initial revision claus parents: diff changeset	96	! !
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	97
776 74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	98	!ClassCommentChange methodsFor:'queries'!
74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	99
74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	100	isClassCommentChange
74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	101	^ true
74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	102
74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	103
74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	104	! !
74fe5c9f27db checkin from browser Claus Gittinger <cg@exept.de> parents: 774 diff changeset	105
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	106	!ClassCommentChange class methodsFor:'documentation'!
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	107
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	108	version
801 b84b61eaa2f6 comment Claus Gittinger <cg@exept.de> parents: 798 diff changeset	109	^ '$Header: /cvs/stx/stx/libbasic3/ClassCommentChange.st,v 1.21 1999-07-15 19:46:54 cg Exp $'
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	110	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 15 Jul 1999 21:47:01 +0200
changeset 801	b84b61eaa2f6
parent 798	999fff0aa0d0
child 890	f1ab9db8757f
permissions	-rw-r--r--