hg/stx-libbasic3: Change.st@ce7253f6f687 (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
932 8028d375f842 #isClassChange query Claus Gittinger <cg@exept.de> parents: 909 diff changeset	13	"{ Package: 'stx:libbasic3' }"
8028d375f842 #isClassChange query Claus Gittinger <cg@exept.de> parents: 909 diff changeset	14
0 470788421600 Initial revision claus parents: diff changeset	15	Object subclass:#Change
1147 c1ea2e764760 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	16	instanceVariableNames:'source timeOfChangeIfKnown'
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	17	classVariableNames:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	18	poolDictionaries:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	19	category:'System-Changes'
0 470788421600 Initial revision claus parents: diff changeset	20	!
470788421600 Initial revision claus parents: diff changeset	21
633 bfd87dc78c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 378 diff changeset	22	!Change class methodsFor:'documentation'!
9 f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	23
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	24	copyright
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	25	"
f5b6ab00bdf6 * empty log message * claus parents: 3 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: 3 diff changeset	28
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	29	This software is furnished under a license and may be used
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	30	only in accordance with the terms of that license and with the
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	31	inclusion of the above copyright notice. This software may not
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	32	be provided or otherwise made available to, or used by, any
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	33	other person. No title to or ownership of the software is
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	34	hereby transferred.
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	35	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	36	!
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	37
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	38	documentation
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	39	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	40	abstract superclass for all kind of changes - managed in changeSets.
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: 3 diff changeset	44	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	45	! !
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	46
1510 ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	47	!Change class methodsFor:'support'!
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	48
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	49	isSource:source1Arg sameSourceAs:source2Arg
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	50	"return true, if the given sources are the same, ignoring tabs and whitespace differences."
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	51
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	52	\|source1 source2\|
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	53
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	54	source1 := source1Arg.
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	55	source2 := source2Arg.
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	56
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	57	source1 = source2 ifTrue:[^ true].
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	58
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	59	source1 := source1 withoutTrailingSeparators asCollectionOfLines.
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	60	source2 := source2 withoutTrailingSeparators asCollectionOfLines.
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	61	source1 size ~~ source2 size ifTrue:[^ false].
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	62	source1 := source1 collect:[:line \| line withTabsExpanded withoutTrailingSeparators].
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	63	source2 := source2 collect:[:line \| line withTabsExpanded withoutTrailingSeparators].
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	64	^ source1 = source2
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	65
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	66	"Created: / 25-07-2006 / 11:22:21 / cg"
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	67	! !
ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	68
647 abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	69	!Change methodsFor:'accessing'!
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	70
850 5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	71	changeClass
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	72	"the class of the change (nil if not present)"
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	73
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	74	^ nil
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	75
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	76	!
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	77
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	78	changeSelector
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	79	^ nil
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	80
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	81	"Created: / 6.2.1998 / 13:29:35 / cg"
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	82	!
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	83
647 abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	84	className
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	85	"the className of the change"
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	86
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	87	^ nil
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	88
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	89	"Modified: / 15.7.1996 / 09:26:34 / cg"
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	90	"Created: / 6.2.1998 / 13:06:56 / cg"
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	91	!
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	92
909 2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	93	file
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	94	^ nil "/ to be added as instvar
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	95	!
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	96
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	97	file:aFile position:anInteger
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	98	^ self "/ to be added
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	99	!
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	100
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	101	objectType:aSymbol
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	102	^ self "/ to be added as instvar
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	103	!
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	104
1052 cc84f5e27bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 988 diff changeset	105	prettyPrintedSource
cc84f5e27bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 988 diff changeset	106	"return the prettyPrinted or normal source of the change"
cc84f5e27bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 988 diff changeset	107
cc84f5e27bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 988 diff changeset	108	^ self source
cc84f5e27bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 988 diff changeset	109	!
cc84f5e27bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 988 diff changeset	110
647 abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	111	selector
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	112	^ nil
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	113
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	114	"Created: / 6.2.1998 / 13:29:35 / cg"
787 5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	115	!
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	116
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	117	source
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	118	"return the source of the change"
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	119
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	120	\|s\|
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	121
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	122	source isNil ifTrue:[
1385 495fc9f2c9da replaced '' writeStream by String writeStream Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	123	s := String writeStream.
1096 4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	124	self printOn:s.
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	125	^ s contents.
4a949a840bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	126	].
787 5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	127	^ source
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	128
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	129	"Modified: 15.7.1996 / 09:26:34 / cg"
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	130	!
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	131
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	132	source:someString
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	133	"set the source of the change"
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	134
1290 5d97b96b1237 * empty log message * Claus Gittinger <cg@exept.de> parents: 1288 diff changeset	135	"/ debugging only ...
5d97b96b1237 * empty log message * Claus Gittinger <cg@exept.de> parents: 1288 diff changeset	136	someString isString ifFalse:[
5d97b96b1237 * empty log message * Claus Gittinger <cg@exept.de> parents: 1288 diff changeset	137	(someString respondsTo:#string) ifFalse:[
5d97b96b1237 * empty log message * Claus Gittinger <cg@exept.de> parents: 1288 diff changeset	138	self halt:'argument should be string-like'
5d97b96b1237 * empty log message * Claus Gittinger <cg@exept.de> parents: 1288 diff changeset	139	]
5d97b96b1237 * empty log message * Claus Gittinger <cg@exept.de> parents: 1288 diff changeset	140	].
787 5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	141	source := someString
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	142
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	143	"Modified: / 15.7.1996 / 09:26:34 / cg"
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	144	"Created: / 16.2.1998 / 13:05:16 / cg"
1147 c1ea2e764760 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	145	!
c1ea2e764760 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	146
c1ea2e764760 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	147	timeOfChangeIfKnown
c1ea2e764760 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	148	^ timeOfChangeIfKnown
c1ea2e764760 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	149	!
c1ea2e764760 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	150
c1ea2e764760 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	151	timeStamp:aTimestamp
c1ea2e764760 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	152	timeOfChangeIfKnown := aTimestamp
647 abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	153	! !
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	154
849 d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	155	!Change methodsFor:'applying'!
d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	156
d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	157	apply
d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	158	"apply the change"
d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	159
d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	160	self subclassResponsibility
d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	161	! !
d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	162
1234 2edbb63a70b7 james' package changes james parents: 1225 diff changeset	163	!Change methodsFor:'change notification'!
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	164
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	165	sendChangeNotificationThroughSmalltalk
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	166	"intentionally left blank"
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	167	! !
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	168
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	169	!Change methodsFor:'comparing'!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	170
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	171	isForSameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	172	"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	173	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	174
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	175	^ false
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	176
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	177	!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	178
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	179	sameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	180	"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	181
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	182	^ false
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	183
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	184	!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	185
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	186	sameSourceAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	187	"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	188
1510 ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	189	^ self class isSource:(self source) sameSourceAs:(changeB source)
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	190
1510 ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	191	"Modified: / 25-07-2006 / 11:22:46 / cg"
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	192	! !
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	193
778 36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	194	!Change methodsFor:'printing & storing'!
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	195
897 d46a2564eba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 852 diff changeset	196	printStringWithoutClassName
778 36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	197	\|s\|
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	198
1385 495fc9f2c9da replaced '' writeStream by String writeStream Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	199	s := String writeStream.
897 d46a2564eba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 852 diff changeset	200	self printWithoutClassNameOn:s.
778 36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	201	^ s contents
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	202	!
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	203
897 d46a2564eba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 852 diff changeset	204	printWithoutClassNameOn:aStream
778 36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	205	self printOn:aStream
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	206
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	207
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	208	! !
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	209
651 20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	210	!Change methodsFor:'queries'!
20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	211
1175 d4d0a2cc711a added classCategoryChange Claus Gittinger <cg@exept.de> parents: 1163 diff changeset	212	isClassCategoryChange
d4d0a2cc711a added classCategoryChange Claus Gittinger <cg@exept.de> parents: 1163 diff changeset	213	^ false
d4d0a2cc711a added classCategoryChange Claus Gittinger <cg@exept.de> parents: 1163 diff changeset	214
d4d0a2cc711a added classCategoryChange Claus Gittinger <cg@exept.de> parents: 1163 diff changeset	215	"Created: / 7.2.1998 / 19:26:50 / cg"
d4d0a2cc711a added classCategoryChange Claus Gittinger <cg@exept.de> parents: 1163 diff changeset	216	!
d4d0a2cc711a added classCategoryChange Claus Gittinger <cg@exept.de> parents: 1163 diff changeset	217
932 8028d375f842 #isClassChange query Claus Gittinger <cg@exept.de> parents: 909 diff changeset	218	isClassChange
8028d375f842 #isClassChange query Claus Gittinger <cg@exept.de> parents: 909 diff changeset	219	^ false
8028d375f842 #isClassChange query Claus Gittinger <cg@exept.de> parents: 909 diff changeset	220
8028d375f842 #isClassChange query Claus Gittinger <cg@exept.de> parents: 909 diff changeset	221	"Created: / 7.2.1998 / 19:26:50 / cg"
8028d375f842 #isClassChange query Claus Gittinger <cg@exept.de> parents: 909 diff changeset	222	!
8028d375f842 #isClassChange query Claus Gittinger <cg@exept.de> parents: 909 diff changeset	223
777 1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	224	isClassCommentChange
1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	225	^ false
1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	226
1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	227	"Created: / 7.2.1998 / 19:26:50 / cg"
1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	228	!
1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	229
771 0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	230	isClassDefinitionChange
0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	231	^ false
0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	232
0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	233	"Created: / 7.2.1998 / 19:26:50 / cg"
0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	234	!
0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	235
798 999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	236	isClassInstVarDefinitionChange
999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	237	^ false
999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	238
999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	239	!
999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	240
1234 2edbb63a70b7 james' package changes james parents: 1225 diff changeset	241	isClassRemoveChange
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	242	^ false
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	243
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	244	"Created: / 7.2.1998 / 19:26:50 / cg"
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	245	!
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	246
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	247	isClassRenameChange
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	248	^ false
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	249
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	250	"Created: / 7.2.1998 / 19:26:50 / cg"
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	251	!
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	252
773 286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	253	isDoIt
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	254	^ false
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	255
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	256	"Created: / 7.2.1998 / 19:26:50 / cg"
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	257	!
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	258
964 64282b5e5c48 added #isMEthodCategoryChange Claus Gittinger <cg@exept.de> parents: 932 diff changeset	259	isMethodCategoryChange
64282b5e5c48 added #isMEthodCategoryChange Claus Gittinger <cg@exept.de> parents: 932 diff changeset	260	^ false
64282b5e5c48 added #isMEthodCategoryChange Claus Gittinger <cg@exept.de> parents: 932 diff changeset	261	!
64282b5e5c48 added #isMEthodCategoryChange Claus Gittinger <cg@exept.de> parents: 932 diff changeset	262
1234 2edbb63a70b7 james' package changes james parents: 1225 diff changeset	263	isMethodCategoryRenameChange
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	264	^ false
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	265
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	266	"Created: / 7.2.1998 / 19:26:50 / cg"
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	267	!
2edbb63a70b7 james' package changes james parents: 1225 diff changeset	268
651 20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	269	isMethodChange
20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	270	^ false
20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	271
20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	272	"Created: / 7.2.1998 / 19:26:50 / cg"
783 90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	273	!
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	274
1225 6e912daf6b1b +isMethodDefinitionChange Claus Gittinger <cg@exept.de> parents: 1175 diff changeset	275	isMethodDefinitionChange
6e912daf6b1b +isMethodDefinitionChange Claus Gittinger <cg@exept.de> parents: 1175 diff changeset	276	^ false
6e912daf6b1b +isMethodDefinitionChange Claus Gittinger <cg@exept.de> parents: 1175 diff changeset	277	!
6e912daf6b1b +isMethodDefinitionChange Claus Gittinger <cg@exept.de> parents: 1175 diff changeset	278
1163 4886886a78b7 #isMethodRemoveChange query added Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	279	isMethodRemoveChange
4886886a78b7 #isMethodRemoveChange query added Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	280	^ false
4886886a78b7 #isMethodRemoveChange query added Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	281	!
4886886a78b7 #isMethodRemoveChange query added Claus Gittinger <cg@exept.de> parents: 1147 diff changeset	282
783 90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	283	isPrimitiveChange
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	284	^ false
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	285
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	286	!
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	287
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	288	isPrimitiveDefinitionsChange
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	289	^ false
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	290
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	291	!
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	292
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	293	isPrimitiveFunctionsChange
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	294	^ false
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	295
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	296	!
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	297
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	298	isPrimitiveVariablesChange
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	299	^ false
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	300
651 20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	301	! !
20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	302
633 bfd87dc78c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 378 diff changeset	303	!Change class methodsFor:'documentation'!
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	304
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	305	version
1510 ce7253f6f687 * empty log message * Claus Gittinger <cg@exept.de> parents: 1385 diff changeset	306	^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.42 2006-07-25 09:26:16 cg Exp $'
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	307	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 25 Jul 2006 11:26:16 +0200
changeset 1510	ce7253f6f687
parent 1385	495fc9f2c9da
child 1868	301a5aeb8176
permissions	-rw-r--r--