hg/stx-goodies-monticello: MCClassDefinition.st@6e8835787bf7 (annotated)

1123 1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	1	"
1139 6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	2	COPYRIGHT (c) 2020-2021 LabWare
1123 1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	3	"
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	"{ Package: 'stx:goodies/monticello' }"
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5
968 70b2a6241dd2 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 934 diff changeset	6	"{ NameSpace: Smalltalk }"
70b2a6241dd2 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 934 diff changeset	7
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	MCDefinition subclass:#MCClassDefinition
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	9	instanceVariableNames:'name superclassName variables category type comment commentStamp
894 0c981690a584 Removed instvar installedClassName and make it an object attribute. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 876 diff changeset	10	traitComposition classTraitComposition'
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	classVariableNames:''
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	poolDictionaries:''
610 7760d3e2045c category change Claus Gittinger <cg@exept.de> parents: 565 diff changeset	13	category:'SCM-Monticello-Modeling'
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15
1123 1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	16	!MCClassDefinition class methodsFor:'documentation'!
1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	17
1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	18	copyright
1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	19	"
1139 6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	20	COPYRIGHT (c) 2020-2021 LabWare
1123 1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	21
1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	22
1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	23	"
1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	24	! !
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	!MCClassDefinition class methodsFor:'instance creation'!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	name: nameString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	superclassName: superclassString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	category: categoryString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	instVarNames: ivarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	classVarNames: cvarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	poolDictionaryNames: poolArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	classInstVarNames: civarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	type: typeSymbol
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	comment: commentString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	commentStamp: stampString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	^ self instanceLike:
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	(self new initializeWithName: nameString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	superclassName: superclassString
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	41	traitComposition: '{}'
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	42	classTraitComposition: '{}'
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	43	category: categoryString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	44	instVarNames: ivarArray
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	45	classVarNames: cvarArray
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	46	poolDictionaryNames: poolArray
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	47	classInstVarNames: civarArray
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	48	type: typeSymbol
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	49	comment: commentString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	50	commentStamp: stampString)
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	51	!
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	52
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	53	name: nameString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	54	superclassName: superclassString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	55	traitComposition: traitCompositionString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	56	classTraitComposition: classTraitCompositionString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	57	category: categoryString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	58	instVarNames: ivarArray
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	59	classVarNames: cvarArray
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	60	poolDictionaryNames: poolArray
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	61	classInstVarNames: civarArray
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	62	type: typeSymbol
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	63	comment: commentString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	64	commentStamp: stampString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	65
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	66	^ self instanceLike:
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	67	(self new initializeWithName: nameString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	68	superclassName: superclassString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	69	traitComposition: traitCompositionString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	70	classTraitComposition: classTraitCompositionString
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	category: categoryString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	instVarNames: ivarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	classVarNames: cvarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	poolDictionaryNames: poolArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	classInstVarNames: civarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	type: typeSymbol
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	comment: commentString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78	commentStamp: stampString)
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	! !
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	!MCClassDefinition class methodsFor:'obsolete'!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83	name: nameString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84	superclassName: superclassString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85	category: categoryString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	instVarNames: ivarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	87	classVarNames: cvarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88	poolDictionaryNames: poolArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89	classInstVarNames: civarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90	comment: commentString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	^ self name: nameString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	superclassName: superclassString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	category: categoryString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94	instVarNames: ivarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95	classVarNames: cvarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96	poolDictionaryNames: poolArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97	classInstVarNames: civarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	type: #normal
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99	comment: commentString
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	100
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	101	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103	name: nameString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104	superclassName: superclassString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105	category: categoryString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106	instVarNames: ivarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	107	classVarNames: cvarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	poolDictionaryNames: poolArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109	classInstVarNames: civarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110	type: typeSymbol
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111	comment: commentString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112	^ self
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113	name: nameString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	114	superclassName: superclassString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	115	category: categoryString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	116	instVarNames: ivarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117	classVarNames: cvarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118	poolDictionaryNames: poolArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	119	classInstVarNames: civarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	120	type: typeSymbol
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	121	comment: commentString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122	commentStamp: nil
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	123	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	124
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	125	name: nameString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	superclassName: superclassString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127	category: categoryString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	instVarNames: ivarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129	comment: commentString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	^ self name: nameString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131	superclassName: superclassString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132	category: categoryString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	133	instVarNames: ivarArray
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134	classVarNames: #()
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135	poolDictionaryNames: #()
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136	classInstVarNames: #()
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	137	comment: commentString
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	138
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	! !
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140
1139 6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	141
6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	142
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	!MCClassDefinition methodsFor:'accessing'!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	144
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145	actualClass
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146	^Smalltalk classNamed: self className
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	148
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	149	category
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	150	^ category
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	151	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	152
848 b86a6f467667 More support Squeak/Pharo interoperability - part 1: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 766 diff changeset	153	category:something
b86a6f467667 More support Squeak/Pharo interoperability - part 1: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 766 diff changeset	154	category := something.
b86a6f467667 More support Squeak/Pharo interoperability - part 1: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 766 diff changeset	155	!
b86a6f467667 More support Squeak/Pharo interoperability - part 1: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 766 diff changeset	156
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	157	classInstVarNames
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	158	^ self selectVariables: #isClassInstanceVariable
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	159	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	160
521 ac7de5d52ead added: #classInstVarNames: Claus Gittinger <cg@exept.de> parents: 470 diff changeset	161	classInstVarNames:civarArray
ac7de5d52ead added: #classInstVarNames: Claus Gittinger <cg@exept.de> parents: 470 diff changeset	162	self addVariables: civarArray ofType: MCClassInstanceVariableDefinition.
ac7de5d52ead added: #classInstVarNames: Claus Gittinger <cg@exept.de> parents: 470 diff changeset	163
ac7de5d52ead added: #classInstVarNames: Claus Gittinger <cg@exept.de> parents: 470 diff changeset	164	"Created: / 25-11-2011 / 17:42:34 / cg"
ac7de5d52ead added: #classInstVarNames: Claus Gittinger <cg@exept.de> parents: 470 diff changeset	165	!
ac7de5d52ead added: #classInstVarNames: Claus Gittinger <cg@exept.de> parents: 470 diff changeset	166
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	167	className
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	168	^ name
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	169	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	170
876 14ab9847bdda class: MCClassDefinition Jan Vrany <jan.vrany@fit.cvut.cz> parents: 848 diff changeset	171	className: aString
14ab9847bdda class: MCClassDefinition Jan Vrany <jan.vrany@fit.cvut.cz> parents: 848 diff changeset	172	name := aString
14ab9847bdda class: MCClassDefinition Jan Vrany <jan.vrany@fit.cvut.cz> parents: 848 diff changeset	173
14ab9847bdda class: MCClassDefinition Jan Vrany <jan.vrany@fit.cvut.cz> parents: 848 diff changeset	174	"Created: / 31-05-2013 / 10:33:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14ab9847bdda class: MCClassDefinition Jan Vrany <jan.vrany@fit.cvut.cz> parents: 848 diff changeset	175	!
14ab9847bdda class: MCClassDefinition Jan Vrany <jan.vrany@fit.cvut.cz> parents: 848 diff changeset	176
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	177	classTraitComposition
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	178	^classTraitComposition
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	179	!
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	180
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	181	classTraitCompositionString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	182	^self classTraitComposition ifNil: ['{}'].
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	183	!
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	184
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185	classVarNames
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186	^ self selectVariables: #isClassVariable
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	187	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	188
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189	comment
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	190	^ comment ? ''
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	191
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	192	"Modified: / 12-09-2010 / 17:07:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195	commentStamp
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196	^ commentStamp
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	199	description
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	200	^ Array with: name
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	201
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	202	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	203
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	204	instVarNames
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	205	^ self selectVariables: #isInstanceVariable
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207
470 ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	208	installedClass
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	209	^Smalltalk classNamed: self installedClassName
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	210
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	211	"Created: / 07-09-2011 / 13:33:10 / cg"
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	212	!
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	213
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	214	installedClassName
894 0c981690a584 Removed instvar installedClassName and make it an object attribute. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 876 diff changeset	215	\| installedClassName \|
470 ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	216
894 0c981690a584 Removed instvar installedClassName and make it an object attribute. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 876 diff changeset	217	installedClassName := self objectAttributeAt: #installedClassName.
470 ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	218	^ installedClassName ? name
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	219
894 0c981690a584 Removed instvar installedClassName and make it an object attribute. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 876 diff changeset	220	"Created: / 07-09-2011 / 13:36:37 / cg"
0c981690a584 Removed instvar installedClassName and make it an object attribute. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 876 diff changeset	221	"Modified: / 12-08-2013 / 01:49:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c981690a584 Removed instvar installedClassName and make it an object attribute. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 876 diff changeset	222	!
0c981690a584 Removed instvar installedClassName and make it an object attribute. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 876 diff changeset	223
0c981690a584 Removed instvar installedClassName and make it an object attribute. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 876 diff changeset	224	installedClassName:aString
0c981690a584 Removed instvar installedClassName and make it an object attribute. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 876 diff changeset	225	self objectAttributeAt: #installedClassName put: aString.
0c981690a584 Removed instvar installedClassName and make it an object attribute. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 876 diff changeset	226
0c981690a584 Removed instvar installedClassName and make it an object attribute. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 876 diff changeset	227	"Modified: / 12-08-2013 / 01:37:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
470 ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	228	!
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	229
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230	poolDictionaries
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231	^ self selectVariables: #isPoolImport
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	232	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	234	selectVariables: aSelector
713 91c979b96e0a class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 610 diff changeset	235	variables isNil ifTrue:[^#()].
91c979b96e0a class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 610 diff changeset	236	^ variables select: [:v \| v perform: aSelector] thenCollect: [:v \| v name]
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239	sortKey
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	240	^ self className
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	241	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	242
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	243	superclassName
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	244	^ superclassName
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	245	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	246
897 76481ea7aaba Bugfix: MCClassDefinition.superclassName must be a symbol. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 894 diff changeset	247	superclassName:aStringOrSymbol
76481ea7aaba Bugfix: MCClassDefinition.superclassName must be a symbol. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 894 diff changeset	248	superclassName := aStringOrSymbol asSymbol.
76481ea7aaba Bugfix: MCClassDefinition.superclassName must be a symbol. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 894 diff changeset	249
76481ea7aaba Bugfix: MCClassDefinition.superclassName must be a symbol. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 894 diff changeset	250	"Modified: / 20-09-2013 / 00:13:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
848 b86a6f467667 More support Squeak/Pharo interoperability - part 1: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 766 diff changeset	251	!
b86a6f467667 More support Squeak/Pharo interoperability - part 1: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 766 diff changeset	252
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	253	traitComposition
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	254	^traitComposition
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	255	!
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	256
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	257	traitCompositionString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	258	^self traitComposition ifNil: ['{}'].
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	259	!
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	260
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	261	type
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	262	^ type
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	263	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	264
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	265	variables
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	266	^ variables
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	267	! !
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	268
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	269	!MCClassDefinition methodsFor:'annotations'!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	270
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	271	printAnnotations: requests on: aStream
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	272	"Add a string for an annotation pane, trying to fulfill the annotation requests.
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	273	These might include anything that
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	274	Preferences defaultAnnotationRequests
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	275	might return. Which includes anything in
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	276	Preferences annotationInfo
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	277	To edit these, use:"
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	278	"Preferences editAnnotations"
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	279
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	280	requests do: [ :aRequest \|
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	281	aRequest == #requirements ifTrue: [
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	282	self requirements do: [ :req \| aStream nextPutAll: req ] separatedBy: [ aStream space ]]
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	283	] separatedBy: [ aStream space ].
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	284	! !
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	285
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	286	!MCClassDefinition methodsFor:'comparing'!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	287
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	288	hash
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	289	\| hash \|
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	290	hash := String stringHash: name initialHash: 0.
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	291	hash := String stringHash: superclassName initialHash: hash.
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	292	hash := String stringHash: self traitCompositionString initialHash: hash.
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	293	hash := String stringHash: self classTraitComposition asString initialHash: hash.
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	294	hash := String stringHash: (category ifNil: ['']) initialHash: hash.
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	295	hash := String stringHash: type initialHash: hash.
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	296	variables do: [
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	297	:v \|
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	298	hash := String stringHash: v name initialHash: hash.
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	299	].
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	300	^ hash
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	301	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	302
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	303	provisions
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	304	^ Array with: name
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	305	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	306
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	307	requirements
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	308	^ (Array with: superclassName), self poolDictionaries
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	309	! !
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	310
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	311	!MCClassDefinition methodsFor:'converting'!
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	312
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	313	asChange
565 4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	314	\|instVarNamesString classVarNamesString classInstVarNamesString poolDictionariesString
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	315	definitionSelector\|
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	316
565 4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	317	instVarNamesString := self instVarNames asStringWith:' '.
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	318	classVarNamesString := self classVarNames asStringWith:' '.
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	319	classInstVarNamesString := self classInstVarNames asStringWith:' '.
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	320	poolDictionariesString := self poolDictionaries asStringWith:' '.
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	321
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	322	definitionSelector := #'subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:'.
713 91c979b96e0a class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 610 diff changeset	323	(type notNil and:[type ~~ #normal]) ifTrue:[
565 4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	324	type == #variable ifTrue:[
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	325	definitionSelector := #'variableSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category:'.
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	326	] ifFalse:[
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	327	type == #bytes ifTrue:[
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	328	definitionSelector := #'variableByteSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category:'.
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	329	] ifFalse:[
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	330	type == #words ifTrue:[
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	331	"for Squeak compatibility: that is long-words !!!!!!!!"
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	332	definitionSelector := #'variableLongSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category:'.
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	333	] ifFalse:[
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	334	type == #compiledMethod ifTrue:[
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	335	definitionSelector := #'subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:'.
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	336	] ifFalse:[
1123 1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	337	type == #weak ifTrue: [
1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	338	"for Squeak compatibility only!!!!!!!!"
1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	339	definitionSelector := #'variableSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category:'.
1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	340	] ifFalse: [
1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	341	self error:'unhandled class-type'.
1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	342	]
565 4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	343	]
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	344	]
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	345	]
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	346	]
4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	347	].
976 eba7baca1ed0 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 969 diff changeset	348
eba7baca1ed0 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 969 diff changeset	349	"/ does not work yet
eba7baca1ed0 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 969 diff changeset	350	"/ classInstVarNamesString notEmptyOrNil ifTrue:[
eba7baca1ed0 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 969 diff changeset	351	"/ definitionSelector := (definitionSelector , 'classInstanceVariableNames:') asSymbol
eba7baca1ed0 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 969 diff changeset	352	"/ ].
eba7baca1ed0 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 969 diff changeset	353
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	354	^ClassDefinitionChange new
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	355	mcDefinition: self;
565 4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	356	definitionSelector: definitionSelector;
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	357	className: name;
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	358	superClassName: superclassName;
968 70b2a6241dd2 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 934 diff changeset	359	instanceVariableString: instVarNamesString ;
70b2a6241dd2 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 934 diff changeset	360	classVariableString: classVarNamesString ;
969 e80717daf864 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 968 diff changeset	361	classInstanceVariableString: classInstVarNamesString ;
565 4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	362	poolDictionaries: poolDictionariesString ;
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	363	category: category;
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	364	yourself
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	365
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	366	"Created: / 13-10-2010 / 17:11:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	367	"Modified: / 08-11-2010 / 17:56:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
565 4df955210a05 changed: #asChange Claus Gittinger <cg@exept.de> parents: 521 diff changeset	368	"Modified: / 13-06-2012 / 12:57:38 / cg"
1123 1bf6a20c9966 Tonel: various fixes here and there (part 3) Jan Vrany <jan.vrany@labware.com> parents: 1117 diff changeset	369	"Modified: / 07-07-2020 / 22:29:23 / Jan Vrany <jan.vrany@labware.com>"
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	370	! !
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	371
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	372	!MCClassDefinition methodsFor:'initializing'!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	373
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	374	addVariables: aCollection ofType: aClass
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	375	variables addAll: (aCollection collect: [:var \| aClass name: var asString]).
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	376	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	377
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	378	defaultCommentStamp
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	379	^ String new
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	380
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	381	"The version below avoids stomping on stamps already in the image
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	382
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	383	^ (Smalltalk at: name ifPresent: [:c \| c organization commentStamp])
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	384	ifNil: ['']
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	385	"
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	386
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	387	! !
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	388
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	389	!MCClassDefinition methodsFor:'installing'!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	390
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	391	createClass
470 ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	392	"cg: changed to honor any nameSpace query override"
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	393
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	394	\| env superClass class installedSuperclassName\|
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	395
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	396	env := MCStXNamespaceQuery query ? Smalltalk.
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	397	superClass := env at: superclassName.
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	398	(superClass isNil and:[env ~~ Smalltalk]) ifTrue:[
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	399	superClass := Smalltalk at: superclassName.
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	400	].
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	401
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	402	"Create class if not exists"
470 ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	403	superClass isNil ifTrue:[
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	404	installedSuperclassName := (env == Smalltalk)
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	405	ifTrue:[ superclassName ]
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	406	ifFalse:[ env name ,'::',superclassName].
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	407	superClass := Class undeclared: installedSuperclassName
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	408	].
934 6a56a913c6b0 Fixed MCClassDefinition>>#createClass: load superclass before creating class. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 897 diff changeset	409	superClass isLoaded ifFalse:[ superClass autoload ].
470 ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	410
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	411	"/ env := superClass environment.
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	412
1139 6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	413	[
6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	414	class := (ClassBuilder new)
6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	415	name: name
6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	416	inEnvironment: env
6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	417	subclassOf: superClass
6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	418	type: type
6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	419	instanceVariableNames: self instanceVariablesString
6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	420	classVariableNames: self classVariablesString
6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	421	poolDictionaries: self sharedPoolsString
6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	422	category: category.
6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	423	] on: ClassBuildWarning do:[:warning \|
6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	424	Logger warning: warning description.
6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	425	warning proceed.
6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	426	].
470 ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	427
894 0c981690a584 Removed instvar installedClassName and make it an object attribute. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 876 diff changeset	428	self installedClassName:class name.
470 ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	429
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	430	self traitComposition ifNotNil: [
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	431	class setTraitComposition: (Compiler
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	432	evaluate: self traitComposition) asTraitComposition ].
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	433	self classTraitComposition ifNotNil: [
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	434	class class setTraitComposition: (Compiler
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	435	evaluate: self classTraitComposition) asTraitComposition ].
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	436	^class.
156 d565f9e9cee1 changed: Claus Gittinger <cg@exept.de> parents: 48 diff changeset	437
470 ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	438	"Modified (comment): / 07-09-2011 / 13:32:38 / cg"
934 6a56a913c6b0 Fixed MCClassDefinition>>#createClass: load superclass before creating class. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 897 diff changeset	439	"Modified: / 07-10-2014 / 00:20:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1139 6e8835787bf7 Write class-definition warnings to log Jan Vrany <jan.vrany@labware.com> parents: 1123 diff changeset	440	"Modified: / 15-03-2021 / 11:34:47 / Jan Vrany <jan.vrany@labware.com>"
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	441	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	442
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	443	load
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	444	\| class \|
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	445
470 ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	446	(class := self createClass) notNil ifTrue:[
1114 47360cc199f0 Fix `MCClassDefinition >> #load` Jan Vrany <jan.vrany@labware.com> parents: 986 diff changeset	447	self classInstanceVariablesString notEmptyOrNil ifTrue: [
47360cc199f0 Fix `MCClassDefinition >> #load` Jan Vrany <jan.vrany@labware.com> parents: 986 diff changeset	448	class class instanceVariableNames: self classInstanceVariablesString.
47360cc199f0 Fix `MCClassDefinition >> #load` Jan Vrany <jan.vrany@labware.com> parents: 986 diff changeset	449	class := self actualClass.
47360cc199f0 Fix `MCClassDefinition >> #load` Jan Vrany <jan.vrany@labware.com> parents: 986 diff changeset	450	].
470 ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	451	self hasComment ifTrue: [class classComment: comment stamp: commentStamp]
ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	452	].
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	453	class package: MCStXPackageQuery query.
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	454
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	455	"Modified: / 14-09-2010 / 22:10:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
470 ce343aed87ed support namespace override Claus Gittinger <cg@exept.de> parents: 464 diff changeset	456	"Modified: / 07-09-2011 / 13:01:53 / cg"
1114 47360cc199f0 Fix `MCClassDefinition >> #load` Jan Vrany <jan.vrany@labware.com> parents: 986 diff changeset	457	"Modified: / 10-08-2020 / 12:40:03 / Jan Vrany <jan.vrany@labware.com>"
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	458	!
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	459
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	460	stringForSortedVariablesOfType: aSymbol
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	461	^ String streamContents:
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	462	[:stream \|
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	463	(self selectVariables: aSymbol) asSortedCollection
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	464	do: [:ea \| stream nextPutAll: ea]
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	465	separatedBy: [stream space]]
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	466	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	467
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	468	stringForVariablesOfType: aSymbol
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	469	^ String streamContents:
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	470	[:stream \|
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	471	(self selectVariables: aSymbol)
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	472	do: [:ea \| stream nextPutAll: ea]
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	473	separatedBy: [stream space]]
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	474	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	475
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	476	unload
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	477	Smalltalk removeClassNamed: name
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	478	! !
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	479
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	480	!MCClassDefinition methodsFor:'printing'!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	481
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	482	classInstanceVariablesString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	483	^ self stringForVariablesOfType: #isClassInstanceVariable
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	484	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	485
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	486	classVariablesString
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	487	^ self stringForSortedVariablesOfType: #isClassVariable
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	488	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	489
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	490	definitionString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	491	^ String streamContents: [:stream \| self printDefinitionOn: stream]
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	492	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	493
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	494	instanceVariablesString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	495	^ self stringForVariablesOfType: #isInstanceVariable
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	496	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	497
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	498	kindOfSubclass
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	499	type = #normal ifTrue: [^ ' subclass:'].
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	500	type = #words ifTrue: [^ ' variableWordSubclass:'].
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	501	type = #variable ifTrue: [^ ' variableSubclass:'].
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	502	type = #bytes ifTrue: [^ ' variableByteSubclass:'].
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	503	type = #weak ifTrue: [^ ' weakSubclass:' ].
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	504	type = #compiledMethod ifTrue: [^ ' variableByteSubclass:' ].
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	505	self error: 'Unrecognized class type'
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	506
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	507	"Modified: / 11-09-2010 / 18:13:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	508	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	509
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	510	printDefinitionOn: stream
766 94bc6e95d8b1 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 713 diff changeset	511	\|clsName\|
94bc6e95d8b1 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 713 diff changeset	512
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	513	stream
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	514	nextPutAll: self superclassName;
766 94bc6e95d8b1 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 713 diff changeset	515	nextPutAll: self kindOfSubclass.
94bc6e95d8b1 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 713 diff changeset	516	((clsName := self className) includes:$_) ifTrue:[
94bc6e95d8b1 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 713 diff changeset	517	stream
94bc6e95d8b1 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 713 diff changeset	518	nextPutAll: '#''' ;
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	519	nextPutAll: self className;
766 94bc6e95d8b1 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 713 diff changeset	520	nextPutAll: '''' .
94bc6e95d8b1 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 713 diff changeset	521	] ifFalse:[
94bc6e95d8b1 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 713 diff changeset	522	stream
94bc6e95d8b1 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 713 diff changeset	523	nextPut: $#;
94bc6e95d8b1 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 713 diff changeset	524	nextPutAll: self className.
94bc6e95d8b1 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 713 diff changeset	525	].
94bc6e95d8b1 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 713 diff changeset	526	stream
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	527	cr; tab.
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	528	self hasTraitComposition ifTrue: [
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	529	stream
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	530	nextPutAll: 'uses: ';
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	531	nextPutAll: self traitCompositionString;
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	532	cr; tab ].
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	533	stream
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	534	nextPutAll: 'instanceVariableNames:';
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	535	store: self instanceVariablesString;
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	536	cr; tab;
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	537	nextPutAll: 'classVariableNames:';
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	538	store: self classVariablesString;
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	539	cr; tab;
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	540	nextPutAll: 'poolDictionaries:';
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	541	store: self sharedPoolsString;
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	542	cr; tab;
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	543	nextPutAll: 'category:';
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	544	store: self category asString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	545
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	546	"Modified: / 11-09-2010 / 18:11:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	547	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	548
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	549	sharedPoolsString
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	550	^ self stringForSortedVariablesOfType: #isPoolImport
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	551	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	552
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	553	source
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	554	^ self definitionString
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	555	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	556
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	557	summary
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	558	^ name
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	559	! !
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	560
1117 5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1114 diff changeset	561	!MCClassDefinition methodsFor:'queries'!
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1114 diff changeset	562
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1114 diff changeset	563	requires: anMCDefinition
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1114 diff changeset	564	^ anMCDefinition isClassDefinition
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1114 diff changeset	565	and: [ anMCDefinition className = superclassName ]
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1114 diff changeset	566
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1114 diff changeset	567	"Created: / 01-09-2020 / 16:28:48 / Jan Vrany <jan.vrany@labware.com>"
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1114 diff changeset	568	! !
5287516fa71d Sort definition before loading Jan Vrany <jan.vrany@labware.com> parents: 1114 diff changeset	569
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	570	!MCClassDefinition methodsFor:'serializing'!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	571
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	572	storeDataOn: aDataStream
986 d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	573	\| instVarSize \|
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	574	instVarSize := (self hasTraitComposition or: [ self hasClassTraitComposition ])
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	575	ifTrue: [ self class instSize ]
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	576	ifFalse: [ self class instSize - 2 ].
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	577	aDataStream
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	578	beginInstance: self class
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	579	size: instVarSize.
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	580	1 to: instVarSize do: [ :index \|
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	581	\| value \|
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	582
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	583	value := (self instVarAt: index).
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	584	"/ Special hack for ImmutableString / ImmutableArray which is not known by Squeak / Pharo,
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	585	"/ and therefore will fail to load properly there.
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	586	"/ In one of those is encountered, convert them to their mutable version.
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	587	(value class == ImmutableString or:[value class == ImmutableArray or:[value class == ImmutableByteArray]]) ifTrue:[
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	588	value := value asMutableCollection.
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	589	].
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	590	aDataStream nextPut: value
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	591	].
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	592
d59dea3216cb Fix in binary serialization - never write ImmutableString/Array/ByteArray Jan Vrany <jan.vrany@fit.cvut.cz> parents: 976 diff changeset	593	"Modified: / 23-04-2015 / 14:33:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	594	! !
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	595
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	596	!MCClassDefinition methodsFor:'testing'!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	597
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	598	hasClassInstanceVariables
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	599	^ (self selectVariables: #isClassInstanceVariable) isEmpty not
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	600	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	601
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	602	hasClassTraitComposition
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	603	^self classTraitCompositionString ~= '{}'
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	604	!
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	605
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	606	hasComment
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	607	^ comment isEmptyOrNil not
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	608	!
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	609
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	610	hasTraitComposition
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	611	^self traitCompositionString ~= '{}'
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	612	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	613
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	614	isClassDefinition
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	615	^ true
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	616	!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	617
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	618	isCodeDefinition
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	619	^ true
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	620	! !
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	621
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	622	!MCClassDefinition methodsFor:'visiting'!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	623
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	624	= aDefinition
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	625	^super = aDefinition
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	626	and: [superclassName = aDefinition superclassName
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	627	and: [self traitCompositionString = aDefinition traitCompositionString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	628	and: [self classTraitCompositionString = aDefinition classTraitCompositionString
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	629	and: [category = aDefinition category
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	630	and: [type = aDefinition type
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	631	and: [variables = aDefinition variables
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	632	and: [comment = aDefinition comment]]]]]]]
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	633
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	634	"Modified: / 18-08-2009 / 10:19:27 / Jan Vrany <vranyj1@fel.cvut.cz>"
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	635	!
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	636
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	637	accept: aVisitor
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	638	aVisitor visitClassDefinition: self.
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	639	(self hasClassInstanceVariables or: [self hasClassTraitComposition])
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	640	ifTrue: [aVisitor visitMetaclassDefinition: self].
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	641
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	642	! !
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	643
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	644	!MCClassDefinition class methodsFor:'documentation'!
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	645
1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	646	version
976 eba7baca1ed0 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 969 diff changeset	647	^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassDefinition.st,v 1.19 2015-03-01 01:06:15 cg Exp $'
156 d565f9e9cee1 changed: Claus Gittinger <cg@exept.de> parents: 48 diff changeset	648	!
d565f9e9cee1 changed: Claus Gittinger <cg@exept.de> parents: 48 diff changeset	649
d565f9e9cee1 changed: Claus Gittinger <cg@exept.de> parents: 48 diff changeset	650	version_CVS
976 eba7baca1ed0 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 969 diff changeset	651	^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassDefinition.st,v 1.19 2015-03-01 01:06:15 cg Exp $'
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	652	!
95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	653
1114 47360cc199f0 Fix `MCClassDefinition >> #load` Jan Vrany <jan.vrany@labware.com> parents: 986 diff changeset	654	version_HG
47360cc199f0 Fix `MCClassDefinition >> #load` Jan Vrany <jan.vrany@labware.com> parents: 986 diff changeset	655
47360cc199f0 Fix `MCClassDefinition >> #load` Jan Vrany <jan.vrany@labware.com> parents: 986 diff changeset	656	^ '$Changeset: <not expanded> $'
47360cc199f0 Fix `MCClassDefinition >> #load` Jan Vrany <jan.vrany@labware.com> parents: 986 diff changeset	657	!
47360cc199f0 Fix `MCClassDefinition >> #load` Jan Vrany <jan.vrany@labware.com> parents: 986 diff changeset	658
214 95e0329274f2 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 156 diff changeset	659	version_SVN
976 eba7baca1ed0 class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 969 diff changeset	660	^ '$Id: MCClassDefinition.st,v 1.19 2015-03-01 01:06:15 cg Exp $'
48 1e383209540d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	661	! !
713 91c979b96e0a class: MCClassDefinition Claus Gittinger <cg@exept.de> parents: 610 diff changeset	662

author	Jan Vrany <jan.vrany@labware.com>
	Mon, 15 Mar 2021 15:27:35 +0000
branch	jv
changeset 1139	6e8835787bf7
parent 1123	1bf6a20c9966
child 1140	61ddff836136
permissions	-rw-r--r--