hg/stx-libbasic3: ClassDefinitionChange.st@fd826cb660e6 (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
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 911 diff changeset	13	"{ Package: 'stx:libbasic3' }"
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 911 diff changeset	14
0 470788421600 Initial revision claus parents: diff changeset	15	ClassChange subclass:#ClassDefinitionChange
911 cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	16	instanceVariableNames:'definition objectType nameSpaceName classType otherParameters'
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 101 diff changeset	17	classVariableNames:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 101 diff changeset	18	poolDictionaries:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 101 diff changeset	19	category:'System-Changes'
0 470788421600 Initial revision claus parents: diff changeset	20	!
470788421600 Initial revision claus parents: diff changeset	21
9 f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	22	!ClassDefinitionChange class methodsFor:'documentation'!
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	23
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	24	copyright
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	25	"
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	26	COPYRIGHT (c) 1993 by Claus Gittinger
38 30fdc5e331f7 . claus parents: 10 diff changeset	27	All Rights Reserved
9 f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	28
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	29	This software is furnished under a license and may be used
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	30	only in accordance with the terms of that license and with the
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	31	inclusion of the above copyright notice. This software may not
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	32	be provided or otherwise made available to, or used by, any
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	33	other person. No title to or ownership of the software is
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	34	hereby transferred.
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
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	38	documentation
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	39	"
45 0a58b03645a6 . claus parents: 39 diff changeset	40	instances represent class definition-changes. They are typically
0a58b03645a6 . claus parents: 39 diff changeset	41	held in a ChangeSet.
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 101 diff changeset	42
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 101 diff changeset	43	[author:]
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 101 diff changeset	44	Claus Gittinger
9 f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	45	"
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	46	! !
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	47
911 cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	48	!ClassDefinitionChange methodsFor:'accessing'!
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	49
1046 450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	50	nameSpaceName
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	51	^ nameSpaceName ? super nameSpaceName
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	52	!
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	53
911 cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	54	nameSpaceName: aNameSpaceName classType: aClassType otherParameters: someOtherParameters
1046 450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	55	nameSpaceName := aNameSpaceName.
911 cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	56	classType := aClassType.
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	57	otherParameters := someOtherParameters
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	58	!
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	59
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	60	objectType
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	61	"return the value of the instance variable 'objectType' (automatically generated)"
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	62
1046 450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	63	^ objectType
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	64	!
911 cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	65
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	66	objectType:something
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	67	"set the value of the instance variable 'objectType' (automatically generated)"
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	68
1046 450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	69	objectType := something.
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	70	!
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	71
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	72	source
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	73	"return the source of the change"
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	74
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	75	\|nsName\|
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	76
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	77	(nsName := self nameSpaceName) notNil ifTrue:[
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	78	^ '"{ NameSpace: ' , nsName , ' }"' ,
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	79	Character cr, Character cr ,
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	80	super source
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	81	].
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	82	^ super source
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	83	! !
911 cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	84
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	85	!ClassDefinitionChange methodsFor:'comparing'!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	86
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	87	isForSameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	88	"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: 772 diff changeset	89	thingy as the receiver (i.e. same method, same definition etc.)."
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	90
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	91	changeB isClassDefinitionChange ifFalse:[^ false].
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	92
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	93	className ~= changeB className ifTrue:[^ false].
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	94	^ true
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	95
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	96
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	97
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	98
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	99
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	100	!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	101
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	102	sameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	103	"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: 772 diff changeset	104
798 999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	105	(self isForSameAs:changeB) ifFalse:[^ false].
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	106	^ self sameSourceAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	107
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	108
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	109
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	110	! !
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	111
962 3821ab69b939 category change Claus Gittinger <cg@exept.de> parents: 957 diff changeset	112	!ClassDefinitionChange methodsFor:'printing & storing'!
787 5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	113
1101 fd826cb660e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	114	printOn:aStream
fd826cb660e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	115	aStream nextPutAll:className
fd826cb660e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	116	!
fd826cb660e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	117
896 035d5613a20c * empty log message * Claus Gittinger <cg@exept.de> parents: 798 diff changeset	118	printWithoutClassNameOn:aStream
787 5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	119	aStream nextPutAll:('definition of ' , className)
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	120
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	121
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	122	! !
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	123
772 8e638e1b2da3 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	124	!ClassDefinitionChange methodsFor:'queries'!
8e638e1b2da3 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	125
8e638e1b2da3 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	126	isClassDefinitionChange
8e638e1b2da3 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	127	^ true
8e638e1b2da3 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	128	! !
8e638e1b2da3 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	129
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	130	!ClassDefinitionChange class methodsFor:'documentation'!
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	131
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	132	version
1101 fd826cb660e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	133	^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.24 2001-11-09 16:20:24 cg Exp $'
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	134	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 09 Nov 2001 17:20:24 +0100
changeset 1101	fd826cb660e6
parent 1046	450ef3136cc3
child 1134	915934e8aab8
permissions	-rw-r--r--