hg/stx-libbasic3: Change.st@2af6462c44ff (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
850 5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	47	changeClass
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	48	"the class of the change (nil if not present)"
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	49
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	50	^ nil
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	51
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	52	!
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	53
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	54	changeSelector
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	55	^ nil
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	56
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	57	"Created: / 6.2.1998 / 13:29:35 / cg"
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	58	!
5efe4b98c509 checkin from browser Claus Gittinger <cg@exept.de> parents: 849 diff changeset	59
647 abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	60	className
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	61	"the className of the change"
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	62
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	63	^ nil
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	64
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	65	"Modified: / 15.7.1996 / 09:26:34 / cg"
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	66	"Created: / 6.2.1998 / 13:06:56 / cg"
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	67	!
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	68
909 2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	69	file
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	70	^ nil "/ to be added as instvar
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	71	!
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	72
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	73	file:aFile position:anInteger
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	74	^ self "/ to be added
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	75	!
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	76
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	77	objectType:aSymbol
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	78	^ self "/ to be added as instvar
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	79	!
2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	80
647 abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	81	selector
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	82	^ nil
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	83
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	84	"Created: / 6.2.1998 / 13:29:35 / cg"
787 5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	85	!
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	86
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	87	source
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	88	"return the source of the change"
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	89
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	90	^ source
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	91
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	92	"Modified: 15.7.1996 / 09:26:34 / cg"
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	93	!
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	94
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	95	source:someString
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	96	"set the source of the change"
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	97
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	98	source := someString
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	99
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	100	"Modified: / 15.7.1996 / 09:26:34 / cg"
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	101	"Created: / 16.2.1998 / 13:05:16 / cg"
647 abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	102	! !
abc0329b81a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 633 diff changeset	103
849 d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	104	!Change methodsFor:'applying'!
d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	105
d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	106	apply
d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	107	"apply the change"
d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	108
d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	109	self subclassResponsibility
d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	110	! !
d31825895bb2 preps to allow applying Claus Gittinger <cg@exept.de> parents: 798 diff changeset	111
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	112	!Change methodsFor:'comparing'!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	113
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	114	isForSameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	115	"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	116	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	117
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	118	^ false
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	119
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	120	!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	121
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	122	sameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	123	"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	124
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	125	^ false
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	126
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	127	!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	128
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	129	sameSourceAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	130	"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	131
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	132	\|sourceA sourceB\|
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	133
852 1acd7d3ed3fc checkin from browser Claus Gittinger <cg@exept.de> parents: 850 diff changeset	134	(sourceA := self source) = (sourceB := changeB source) ifTrue:[^ true].
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	135
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	136	sourceA := sourceA asCollectionOfLines.
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	137	sourceB := sourceB asCollectionOfLines.
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	138	sourceA size ~~ sourceB size ifTrue:[^ false].
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	139	sourceA := sourceA collect:[:line \| line withTabsExpanded withoutTrailingSeparators].
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	140	sourceB := sourceB collect:[:line \| line withTabsExpanded withoutTrailingSeparators].
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	141	^ sourceA = sourceB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	142
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	143	! !
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	144
778 36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	145	!Change methodsFor:'printing & storing'!
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	146
897 d46a2564eba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 852 diff changeset	147	printStringWithoutClassName
778 36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	148	\|s\|
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	149
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	150	s := '' writeStream.
897 d46a2564eba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 852 diff changeset	151	self printWithoutClassNameOn:s.
778 36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	152	^ s contents
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	153
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	154
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	155	!
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	156
897 d46a2564eba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 852 diff changeset	157	printWithoutClassNameOn:aStream
778 36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	158	self printOn:aStream
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	159
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	160
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	161	! !
36f27d7e25f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 777 diff changeset	162
651 20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	163	!Change methodsFor:'queries'!
20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	164
777 1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	165	isClassCommentChange
1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	166	^ false
1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	167
1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	168	"Created: / 7.2.1998 / 19:26:50 / cg"
1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	169	!
1eb424230652 * empty log message * Claus Gittinger <cg@exept.de> parents: 773 diff changeset	170
771 0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	171	isClassDefinitionChange
0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	172	^ false
0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	173
0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	174	"Created: / 7.2.1998 / 19:26:50 / cg"
0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	175	!
0fc9c131d807 checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	176
798 999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	177	isClassInstVarDefinitionChange
999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	178	^ false
999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	179
999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	180	!
999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	181
773 286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	182	isDoIt
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	183	^ false
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	184
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	185	"Created: / 7.2.1998 / 19:26:50 / cg"
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	186	!
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 771 diff changeset	187
651 20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	188	isMethodChange
20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	189	^ false
20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	190
20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	191	"Created: / 7.2.1998 / 19:26:50 / cg"
783 90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	192	!
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	193
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	194	isPrimitiveChange
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	195	^ false
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	196
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	197	!
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	198
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	199	isPrimitiveDefinitionsChange
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	200	^ false
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	201
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	202	!
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	203
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	204	isPrimitiveFunctionsChange
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	205	^ false
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	206
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	207	!
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	208
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	209	isPrimitiveVariablesChange
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	210	^ false
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 778 diff changeset	211
651 20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	212	! !
20f3013cf5c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 647 diff changeset	213
633 bfd87dc78c08 checkin from browser Claus Gittinger <cg@exept.de> parents: 378 diff changeset	214	!Change class methodsFor:'documentation'!
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	215
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	216	version
909 2af6462c44ff VW5i compatibility Claus Gittinger <cg@exept.de> parents: 897 diff changeset	217	^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.28 2000-03-21 12:42:50 cg Exp $'
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	218	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 21 Mar 2000 13:42:50 +0100
changeset 909	2af6462c44ff
parent 897	d46a2564eba8
child 932	8028d375f842
permissions	-rw-r--r--