hg/stx-libbasic3: Change.st@999fff0aa0d0 (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
38 30fdc5e331f7 . claus parents: 10 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	Object subclass:#Change
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	14	instanceVariableNames:'source'
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
633 bfd87dc78c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 378 diff changeset	20	!Change class methodsFor:'documentation'!
9 f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	21
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	22	copyright
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	23	"
f5b6ab00bdf6 * empty log message * claus parents: 3 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: 3 diff changeset	26
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	27	This software is furnished under a license and may be used
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	28	only in accordance with the terms of that license and with the
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	29	inclusion of the above copyright notice. This software may not
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	30	be provided or otherwise made available to, or used by, any
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	31	other person. No title to or ownership of the software is
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	32	hereby transferred.
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	33	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	34	!
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	35
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	36	documentation
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	37	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	38	abstract superclass for all kind of changes - managed in changeSets.
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	39
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	40	[author:]
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	41	Claus Gittinger
9 f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	42	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	43	! !
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	44
647 abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	45	!Change methodsFor:'accessing'!
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	46
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	47	className
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	48	"the className of the change"
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	49
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	50	^ nil
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	51
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	52	"Modified: / 15.7.1996 / 09:26:34 / cg"
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	53	"Created: / 6.2.1998 / 13:06:56 / cg"
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	54	!
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	55
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	56	selector
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	57	^ nil
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	58
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	59	"Created: / 6.2.1998 / 13:29:35 / cg"
787 5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	60	!
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	61
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	62	source
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	63	"return the source of the change"
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	64
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	65	^ source
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	66
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	67	"Modified: 15.7.1996 / 09:26:34 / cg"
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	68	!
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	69
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	70	source:someString
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	71	"set the source of the change"
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	72
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	73	source := someString
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	74
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	75	"Modified: / 15.7.1996 / 09:26:34 / cg"
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	76	"Created: / 16.2.1998 / 13:05:16 / cg"
647 abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	77	! !
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	78
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	79	!Change methodsFor:'comparing'!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	80
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	81	isForSameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	82	"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: 783 diff changeset	83	thingy as the receiver (i.e. same method, same definition etc.)."
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	84
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	85	^ false
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	86
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	87	!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	88
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	89	sameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	90	"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: 783 diff changeset	91
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	92	^ false
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	93
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	94	!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	95
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	96	sameSourceAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	97	"return true, if the given change has the same source as the receiver."
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	98
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	99	\|sourceA sourceB\|
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	100
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	101	(sourceA := source) = (sourceB := changeB source) ifTrue:[^ true].
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	102
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	103	sourceA := sourceA asCollectionOfLines.
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	104	sourceB := sourceB asCollectionOfLines.
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	105	sourceA size ~~ sourceB size ifTrue:[^ false].
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	106	sourceA := sourceA collect:[:line \| line withTabsExpanded withoutTrailingSeparators].
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	107	sourceB := sourceB collect:[:line \| line withTabsExpanded withoutTrailingSeparators].
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	108	^ sourceA = sourceB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	109
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	110	! !
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	111
778 36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	112	!Change methodsFor:'printing & storing'!
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	113
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	114	printStringWithoutClass
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	115	\|s\|
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	116
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	117	s := '' writeStream.
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	118	self printWithoutClassOn:s.
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	119	^ s contents
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	120
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	121
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	122	!
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	123
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	124	printWithoutClassOn:aStream
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	125	self printOn:aStream
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	126
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	127
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	128	! !
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	129
651 20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	130	!Change methodsFor:'queries'!
20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	131
777 1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	132	isClassCommentChange
1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	133	^ false
1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	134
1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	135	"Created: / 7.2.1998 / 19:26:50 / cg"
1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	136	!
1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	137
771 0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	138	isClassDefinitionChange
0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	139	^ false
0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	140
0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	141	"Created: / 7.2.1998 / 19:26:50 / cg"
0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	142	!
0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	143
798 999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	144	isClassInstVarDefinitionChange
999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	145	^ false
999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	146
999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	147	!
999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	148
773 286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	149	isDoIt
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	150	^ false
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	151
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	152	"Created: / 7.2.1998 / 19:26:50 / cg"
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	153	!
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	154
651 20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	155	isMethodChange
20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	156	^ false
20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	157
20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	158	"Created: / 7.2.1998 / 19:26:50 / cg"
783 90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	159	!
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	160
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	161	isPrimitiveChange
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	162	^ false
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	163
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	164	!
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	165
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	166	isPrimitiveDefinitionsChange
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	167	^ false
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	168
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	169	!
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	170
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	171	isPrimitiveFunctionsChange
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	172	^ false
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	173
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	174	!
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	175
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	176	isPrimitiveVariablesChange
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	177	^ false
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	178
651 20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	179	! !
20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	180
633 bfd87dc78c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 378 diff changeset	181	!Change class methodsFor:'documentation'!
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	182
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	183	version
798 999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	184	^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.23 1999-07-12 12:06:36 cg Exp $'
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	185	! !

author	Claus Gittinger <cg@exept.de>
	Mon, 12 Jul 1999 14:06:43 +0200
changeset 798	999fff0aa0d0
parent 787	5d49bd054fc2
child 849	d31825895bb2
permissions	-rw-r--r--