hg/stx-libbasic3: ClassDefinitionChange.st@915934e8aab8 (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
1134 915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	16	instanceVariableNames:'definition objectType nameSpaceName package classType
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	17	otherParameters'
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 101 diff changeset	18	classVariableNames:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 101 diff changeset	19	poolDictionaries:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 101 diff changeset	20	category:'System-Changes'
0 470788421600 Initial revision claus parents: diff changeset	21	!
470788421600 Initial revision claus parents: diff changeset	22
9 f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	23	!ClassDefinitionChange class methodsFor:'documentation'!
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	24
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	25	copyright
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	26	"
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	27	COPYRIGHT (c) 1993 by Claus Gittinger
38 30fdc5e331f7 . claus parents: 10 diff changeset	28	All Rights Reserved
9 f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	29
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	30	This software is furnished under a license and may be used
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	31	only in accordance with the terms of that license and with the
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	32	inclusion of the above copyright notice. This software may not
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	33	be provided or otherwise made available to, or used by, any
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	34	other person. No title to or ownership of the software is
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	35	hereby transferred.
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
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	39	documentation
f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	40	"
45 0a58b03645a6 . claus parents: 39 diff changeset	41	instances represent class definition-changes. They are typically
0a58b03645a6 . claus parents: 39 diff changeset	42	held in a ChangeSet.
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 101 diff changeset	43
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 101 diff changeset	44	[author:]
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 101 diff changeset	45	Claus Gittinger
9 f5b6ab00bdf6 * empty log message * claus parents: 6 diff changeset	46	"
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	47	! !
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	48
911 cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	49	!ClassDefinitionChange methodsFor:'accessing'!
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	50
1046 450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	51	nameSpaceName
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	52	^ nameSpaceName ? super nameSpaceName
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	53	!
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	54
911 cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	55	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	56	nameSpaceName := aNameSpaceName.
911 cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	57	classType := aClassType.
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	58	otherParameters := someOtherParameters
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
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	61	objectType
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	62	"return the value of the instance variable 'objectType' (automatically generated)"
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	63
1046 450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	64	^ objectType
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	65	!
911 cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	66
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	67	objectType:something
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	68	"set the value of the instance variable 'objectType' (automatically generated)"
cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	69
1046 450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	70	objectType := something.
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
1134 915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	73	package:aPackageID
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	74	package := aPackageID
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	75	!
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	76
1046 450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	77	source
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	78	"return the source of the change"
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	79
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	80	\|nsName\|
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	(nsName := self nameSpaceName) notNil ifTrue:[
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	83	^ '"{ NameSpace: ' , nsName , ' }"' ,
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	84	Character cr, Character cr ,
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	85	super source
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	86	].
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	87	^ super source
450ef3136cc3 care for the nameSpace in a class-definition Claus Gittinger <cg@exept.de> parents: 962 diff changeset	88	! !
911 cecf421ee767 VW5i compatibility Claus Gittinger <cg@exept.de> parents: 896 diff changeset	89
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	90	!ClassDefinitionChange methodsFor:'comparing'!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	91
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	92	isForSameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	93	"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	94	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	95
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	96	changeB isClassDefinitionChange ifFalse:[^ false].
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	className ~= changeB className ifTrue:[^ false].
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	99	^ true
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
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	103
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	104
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	105	!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	106
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	107	sameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	108	"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	109
798 999fff0aa0d0 checkin from browser Claus Gittinger <cg@exept.de> parents: 787 diff changeset	110	(self isForSameAs:changeB) ifFalse:[^ false].
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	111	^ self sameSourceAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	112
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	113
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	114
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	115	! !
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 772 diff changeset	116
962 3821ab69b939 category change Claus Gittinger <cg@exept.de> parents: 957 diff changeset	117	!ClassDefinitionChange methodsFor:'printing & storing'!
787 5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	118
1101 fd826cb660e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	119	printOn:aStream
fd826cb660e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	120	aStream nextPutAll:className
fd826cb660e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	121	!
fd826cb660e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	122
896 035d5613a20c * empty log message * Claus Gittinger <cg@exept.de> parents: 798 diff changeset	123	printWithoutClassNameOn:aStream
787 5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	124	aStream nextPutAll:('definition of ' , className)
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	125
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	126
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	127	! !
5d49bd054fc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 784 diff changeset	128
772 8e638e1b2da3 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	129	!ClassDefinitionChange methodsFor:'queries'!
8e638e1b2da3 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	130
1134 915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	131	definitionSelector
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	132	\|parseTree\|
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	133
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	134	parseTree := Parser parseExpression:self source.
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	135	parseTree isMessage ifTrue:[
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	136	^ parseTree selector
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	137	].
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	138	self error:'should not happen'.
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	139	!
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	140
772 8e638e1b2da3 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	141	isClassDefinitionChange
8e638e1b2da3 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	142	^ true
8e638e1b2da3 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	143	! !
8e638e1b2da3 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	144
1134 915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	145	!ClassDefinitionChange methodsFor:'special'!
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	146
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	147	installAsAutoloadedClassIfNotPrivate
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	148	\|parseTree sel cat clsName catIdx\|
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	149
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	150	parseTree := Parser parseExpression:self source.
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	151	parseTree isMessage ifFalse:[
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	152	self error:'should not happen: bad change source'.
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	153	].
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	154
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	155	sel := parseTree selector.
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	156	(sel endsWith:':privateIn:') ifTrue:[^ self].
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	157	catIdx := sel keywords indexOf:'category:'.
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	158	catIdx ~~ 0 ifTrue:[
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	159	cat := (parseTree args at:catIdx) evaluate.
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	160	].
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	161
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	162	clsName := self className asSymbol.
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	163
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	164	((Smalltalk includesKey:clsName) not
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	165	or:[ (Smalltalk at:clsName) isBehavior not]) ifTrue:[
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	166	Smalltalk
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	167	installAutoloadedClassNamed:clsName
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	168	category:cat
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	169	package:(package ? Project current package)
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	170	revision:nil
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	171	]
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	172	! !
915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	173
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	174	!ClassDefinitionChange class methodsFor:'documentation'!
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	175
d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	176	version
1134 915934e8aab8 care for package; added installAsAutoloaded Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	177	^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.25 2002-02-08 14:45:03 cg Exp $'
100 d09e51d14901 project changeSet fixes Claus Gittinger <cg@exept.de> parents: 85 diff changeset	178	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 08 Feb 2002 15:45:03 +0100
changeset 1134	915934e8aab8
parent 1101	fd826cb660e6
child 1162	4af27057a3ce
permissions	-rw-r--r--