hg/stx-goodies-smallsense: extensions.st@6bd18ba5e56c (annotated)

506 b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jn:refactoring_custom' }"!
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
688 6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	3	!AddClassChange methodsFor:'accessing'!
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	4
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	5	package
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	6
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	7	^ package
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	8
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	9	"Created: / 09-10-2014 / 23:45:53 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	10	! !
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	11
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	12	!AddClassChange methodsFor:'accessing'!
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	13
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	14	package: aPackageName
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	15
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	16	package := aPackageName
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	17
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	18	"Created: / 08-10-2014 / 20:07:05 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	19	! !
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	20
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	21	!AddMethodChange methodsFor:'accessing'!
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	22
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	23	package: aPackageName
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	24
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	25	package := aPackageName
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	26
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	27	"Created: / 08-10-2014 / 19:59:34 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	28	! !
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	29
681 34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	30	!RBAbstractClass methodsFor:'accessing'!
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	31
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	32	allClassVarNames
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	33	\| variableNames \|
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	34
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	35	variableNames := self allClassVariableNames.
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	36
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	37	variableNames isNil ifTrue: [
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	38	^ #()
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	39	].
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	40
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	41	^ variableNames
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	42
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	43	"Created: / 01-06-2014 / 23:40:50 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	44	"Modified: / 20-09-2014 / 19:26:24 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	45	! !
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	46
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	47	!RBAbstractClass methodsFor:'enumerating'!
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	48
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	49	allSuperclassesDo: aBlock
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	50	\| superclass \|
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	51
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	52	superclass := self superclass.
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	53
684 07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	54	superclass isNil ifFalse: [
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	55	superclass withAllSuperclassesDo: aBlock
681 34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	56	].
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	57
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	58	"Created: / 21-04-2014 / 19:15:49 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
684 07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	59	"Modified: / 04-10-2014 / 22:35:33 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
681 34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	60	! !
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	61
688 6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	62	!RBAbstractClass methodsFor:'method accessing'!
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	63
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	64	compileMethod: anRBMethod
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	65	"Creates new method for this class with RBClass"
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	66	\| change method newSource \|
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	67
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	68	newSource := anRBMethod newSource.
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	69
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	70	change := model
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	71	compile: newSource
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	72	in: self
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	73	classified: anRBMethod category.
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	74
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	75	change package: anRBMethod package.
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	76
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	77	method := anRBMethod deepCopy
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	78	source: newSource;
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	79	category: anRBMethod category;
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	80	package: anRBMethod package;
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	81	model: self model;
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	82	modelClass: self;
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	83	yourself.
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	84
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	85	self addMethod: method.
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	86
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	87	^ change
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	88
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	89	"Created: / 10-10-2014 / 11:37:58 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	90	"Modified: / 10-10-2014 / 13:08:59 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	91	! !
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	92
681 34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	93	!RBAbstractClass methodsFor:'accessing'!
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	94
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	95	instVarNames
684 07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	96	"Returns instance variable names - STX compatibility"
681 34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	97
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	98	^ self instanceVariableNames
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	99
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	100	"Created: / 29-05-2014 / 23:46:45 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	101	"Modified: / 24-09-2014 / 20:36:44 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
684 07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	102	"Modified (comment): / 30-09-2014 / 19:30:18 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	103	! !
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	104
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	105	!RBAbstractClass methodsFor:'accessing'!
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	106
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	107	instVarNames: aCollectionOfStrings
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	108	"Set instance variable names - STX compatibility"
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	109
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	110	self instanceVariableNames: aCollectionOfStrings
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	111
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	112	"Created: / 30-09-2014 / 19:30:58 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
681 34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	113	! !
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	114
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	115	!RBAbstractClass methodsFor:'accessing'!
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	116
686 12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	117	isModelClass
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	118	"Tells wheter this class is a model class ( and not real class )"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	119
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	120	^ true
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	121
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	122	"Created: / 06-10-2014 / 07:12:50 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	123	! !
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	124
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	125	!RBAbstractClass methodsFor:'accessing'!
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	126
681 34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	127	methodDictionary
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	128	"Stub method, returns real class MethodDictionary, although full MethodDictionary
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	129	implementation would be better here."
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	130
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	131	\| methodDictionary \|
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	132
684 07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	133	methodDictionary := MethodDictionary new.
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	134
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	135	self realClass isNil ifFalse: [
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	136	self realClass methodDictionary do: [ :method \|
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	137	methodDictionary := methodDictionary
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	138	at: method selector asSymbol
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	139	putOrAppend: (RBMethod
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	140	for: self
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	141	fromMethod: method
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	142	andSelector: method selector asSymbol)
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	143	].
681 34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	144	].
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	145
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	146	removedMethods isNil ifFalse: [
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	147	removedMethods do: [ :removedMethod \|
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	148	\| method \|
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	149
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	150	method := methodDictionary at: removedMethod selector asSymbol ifAbsent: [ nil ].
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	151	method isNil ifFalse: [
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	152	methodDictionary := methodDictionary removeKeyAndCompress: removedMethod selector asSymbol.
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	153	]
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	154	]
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	155	].
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	156
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	157	newMethods isNil ifFalse: [
684 07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	158	newMethods do: [ :newMethod \|
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	159	methodDictionary := methodDictionary at: newMethod selector asSymbol putOrAppend: newMethod.
681 34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	160	]
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	161	].
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	162
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	163	^ methodDictionary
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	164
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	165	"Created: / 28-09-2014 / 22:57:28 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
684 07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	166	"Modified: / 02-10-2014 / 21:11:23 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
681 34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	167	! !
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	168
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	169	!RBAbstractClass methodsFor:'accessing'!
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	170
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	171	nameWithoutPrefix
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	172	"see ClassDescription >> nameWithoutPrefix"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	173
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	174	^ (Smalltalk at: #Class) nameWithoutPrefix: name
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	175
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	176	"Created: / 03-08-2014 / 23:29:11 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	177	"Modified: / 20-09-2014 / 19:21:11 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	178	! !
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	179
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	180	!RBAbstractClass methodsFor:'accessing'!
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	181
688 6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	182	package
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	183	"see Class >> package ( same purpose, but for model class )"
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	184	\| package \|
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	185
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	186	package := self objectAttributeAt: #package.
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	187
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	188	(package isNil and: [ self realClass notNil ]) ifTrue: [
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	189	package := self realClass package.
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	190	].
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	191
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	192	^ package
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	193
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	194	"Created: / 09-10-2014 / 23:12:35 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	195	! !
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	196
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	197	!RBAbstractClass methodsFor:'accessing'!
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	198
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	199	package: aPackage
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	200
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	201	self objectAttributeAt: #package put: aPackage
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	202
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	203	"Created: / 09-10-2014 / 23:12:14 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	204	! !
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	205
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	206	!RBAbstractClass methodsFor:'accessing'!
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	207
681 34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	208	superclassName: aName
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	209	"Assign superclass by its name"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	210
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	211	self superclass: (self model classNamed: aName asSymbol)
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	212
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	213	"Created: / 28-09-2014 / 22:53:46 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	214	! !
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	215
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	216	!RBAbstractClass methodsFor:'accessing'!
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	217
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	218	theMetaclass
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	219	"alias for theMetaClass - STX compatibility"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	220
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	221	^ self theMetaClass.
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	222
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	223	"Created: / 26-09-2014 / 16:26:07 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	224	! !
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	225
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	226	!RBAbstractClass methodsFor:'accessing'!
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	227
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	228	theNonMetaclass
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	229	"alias for theNonMetaClass - STX compatibility"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	230
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	231	^ self theNonMetaClass
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	232
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	233	"Created: / 26-09-2014 / 16:36:22 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	234	! !
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	235
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	236	!RBAbstractClass methodsFor:'enumerating'!
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	237
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	238	withAllSuperclassesDo:aBlock
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	239	"evaluate aBlock for the class and all of its superclasses"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	240
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	241	aBlock value:self.
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	242	self allSuperclassesDo:aBlock
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	243
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	244	"Created: / 29-09-2014 / 22:48:09 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	245	! !
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	246
686 12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	247	!RBClass methodsFor:'compiling'!
681 34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	248
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	249	compile
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	250	"Updates class definition in the namespace along with code changes"
688 6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	251	\| change newClass \|
681 34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	252
688 6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	253	change := model defineClass: self definitionString.
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	254	change package: self package.
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	255
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	256	newClass := model classNamed: self name.
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	257	newClass package: self package.
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	258
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	259	^ change
681 34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	260
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	261	"Created: / 25-09-2014 / 22:31:44 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
688 6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	262	"Modified: / 10-10-2014 / 15:40:11 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
681 34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	263	! !
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	264
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	265	!RBClass methodsFor:'accessing'!
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	266
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	267	theNonMetaClass
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	268	"alias for theNonMetaclass - squeak compatibility"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	269
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	270	^ self theNonMetaclass
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	271
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	272	"Created: / 26-09-2014 / 16:50:22 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	273	! !
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	274
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	275	!RBMetaclass methodsFor:'accessing'!
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	276
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	277	theMetaClass
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	278	"alias for metaclass - sqeak compatibility"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	279
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	280	^ self metaclass.
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	281
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	282	"Created: / 26-09-2014 / 21:32:09 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	283	! !
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	284
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	285	!RBMetaclass methodsFor:'accessing'!
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	286
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	287	theMetaclass
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	288	"alias for metaclass - STX compatibility"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	289
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	290	^ self metaclass.
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	291
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	292	"Created: / 26-09-2014 / 21:28:37 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	293	! !
34c671a3cf59 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 647 diff changeset	294
686 12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	295	!RBMethod methodsFor:'accessing'!
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	296
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	297	category: aCategoryName
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	298	"Sets in which category/protocol does the method belongs within a class"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	299
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	300	self objectAttributeAt: #category put: aCategoryName.
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	301
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	302	"Created: / 06-10-2014 / 07:54:57 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	303	! !
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	304
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	305	!RBMethod methodsFor:'accessing'!
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	306
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	307	class: aClass
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	308	"Helper for enabling usage of either real class or RBClass"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	309
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	310	\| modelClass \|
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	311
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	312	((aClass respondsTo: #isModelClass) and: [ aClass isModelClass ]) ifTrue: [
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	313	modelClass := aClass
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	314	] ifFalse: [
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	315	aClass isMeta ifTrue: [
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	316	modelClass := self model metaclassNamed: aClass theNonMetaclass name.
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	317	] ifFalse: [
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	318	modelClass := self model classNamed: aClass name.
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	319	]
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	320	].
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	321
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	322	self modelClass: modelClass
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	323
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	324	"Created: / 05-10-2014 / 21:04:44 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	325	"Modified: / 06-10-2014 / 07:43:50 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	326	! !
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	327
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	328	!RBMethod methodsFor:'compiling'!
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	329
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	330	compile
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	331	"Modifies/adds method in the model class."
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	332
688 6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	333	^ self modelClass compileMethod: self
686 12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	334
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	335	"Created: / 06-10-2014 / 11:11:30 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
688 6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	336	"Modified: / 10-10-2014 / 12:28:06 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
686 12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	337	! !
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	338
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	339	!RBMethod methodsFor:'accessing'!
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	340
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	341	methodArgNames
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	342	"Returns collection of method argument names"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	343
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	344	\| methodNode arguments \|
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	345
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	346	methodNode := RBParser
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	347	parseMethod: self source
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	348	onError: [ :str :pos \|
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	349	self error: 'Cannot parse: ', str, ' at pos: ', pos asString
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	350	].
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	351
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	352	"Transform arguments to what Method returns - keep compatibility"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	353	arguments := methodNode arguments.
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	354	(arguments size > 0) ifTrue: [
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	355	\| newArguments \|
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	356
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	357	newArguments := OrderedCollection new.
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	358	arguments do: [ :argument \|
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	359	newArguments add: argument name
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	360	].
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	361	^ newArguments asArray
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	362	].
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	363
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	364	^ nil
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	365
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	366	"Created: / 07-10-2014 / 20:18:53 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	367	"Modified: / 07-10-2014 / 22:13:15 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	368	! !
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	369
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	370	!RBMethod methodsFor:'queries'!
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	371
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	372	methodDefinitionTemplate
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	373	"see Method >> methodDefinitionTemplate"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	374
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	375	^ Method
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	376	methodDefinitionTemplateForSelector:self selector
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	377	andArgumentNames:self methodArgNames
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	378
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	379	"Created: / 07-10-2014 / 20:18:53 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	380	! !
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	381
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	382	!RBMethod methodsFor:'accessing'!
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	383
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	384	model
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	385
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	386	^ self objectAttributeAt: #model
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	387
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	388	"Created: / 05-10-2014 / 20:33:09 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	389	! !
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	390
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	391	!RBMethod methodsFor:'accessing'!
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	392
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	393	model: anRBSmalltalk
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	394
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	395	self objectAttributeAt: #model put: anRBSmalltalk
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	396
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	397	"Created: / 05-10-2014 / 20:32:38 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	398	! !
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	399
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	400	!RBMethod methodsFor:'accessing'!
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	401
688 6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	402	newSource
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	403	"Returns new source code with performed modifications by CodeGenerator
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	404	( replace: something with: anotherthing and custom formatting)."
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	405	\| newSource generator \|
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	406
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	407	newSource := self source.
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	408	generator := self sourceCodeGenerator.
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	409	generator notNil ifTrue: [
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	410	generator source: newSource.
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	411	newSource := generator newSource.
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	412	].
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	413
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	414	"Fixes test CustomRBMethodTests >> test_compile_with_code_generator
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	415	when none selector and method is given then parse the selector from new source code"
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	416	(selector isNil and: [ compiledMethod isNil ] and: [ newSource notNil ]) ifTrue: [
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	417	selector := (Parser parseMethodSpecification: newSource) selector
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	418	].
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	419
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	420	^ newSource
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	421
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	422	"Created: / 10-10-2014 / 12:23:20 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	423	"Modified (comment): / 10-10-2014 / 15:31:25 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	424	! !
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	425
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	426	!RBMethod methodsFor:'accessing'!
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	427
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	428	package: aPackage
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	429
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	430	self objectAttributeAt: #package put: aPackage
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	431
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	432	"Created: / 10-10-2014 / 11:12:26 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	433	! !
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	434
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	435	!RBMethod methodsFor:'accessing'!
6bd18ba5e56c completed - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 686 diff changeset	436
686 12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	437	protocol
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	438	"Returns in which category/protocol does the method belongs within a class"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	439
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	440	^ self category
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	441
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	442	"Created: / 06-10-2014 / 07:46:14 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	443	! !
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	444
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	445	!RBMethod methodsFor:'accessing'!
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	446
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	447	protocol: aProtocolName
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	448	"Sets in which category/protocol does the method belongs within a class"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	449
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	450	self category: aProtocolName.
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	451
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	452	"Created: / 06-10-2014 / 07:56:27 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	453	! !
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	454
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	455	!RBMethod methodsFor:'accessing'!
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	456
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	457	replace: placeholder with: code
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	458
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	459	self sourceCodeGenerator replace: placeholder with: code
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	460
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	461	"Created: / 06-10-2014 / 08:58:31 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	462	! !
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	463
684 07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	464	!RBMethod methodsFor:'queries'!
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	465
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	466	sends:selectorSymbol1 or:selectorSymbol2
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	467	"Returns true, if this method contains a message-send
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	468	to either selectorSymbol1 or selectorSymbol2.
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	469	( non-optimized version of Message>>sends:or: )"
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	470
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	471	^ (self sendsSelector: selectorSymbol1) or: [ self sendsSelector: selectorSymbol2 ]
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	472
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	473	"Created: / 04-10-2014 / 00:01:56 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	474	! !
07bbc12ffdd6 work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 681 diff changeset	475
686 12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	476	!RBMethod methodsFor:'accessing'!
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	477
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	478	sourceCodeGenerator
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	479	"Returns helper tool for method source code manipulation like formatting and search & replace"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	480
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	481	^ self objectAttributeAt: #sourceCodeGenerator
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	482
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	483	"Created: / 06-10-2014 / 08:33:09 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	484	! !
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	485
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	486	!RBMethod methodsFor:'accessing'!
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	487
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	488	sourceCodeGenerator: aSourceCodeGenerator
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	489	"Set ... see method sourceCodeGenerator"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	490
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	491	^ self objectAttributeAt: #sourceCodeGenerator put: aSourceCodeGenerator
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	492
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	493	"Created: / 06-10-2014 / 08:37:54 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	494	! !
12e570ea6c6e work in progress - rewriting code generators to replace CustomSourceCodeBuilder, but RBClass, RBMetaclass, RBNamespace and CodeGenerator Jakub Nesveda <jakubnesveda@seznam.cz> parents: 685 diff changeset	495
506 b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	496	!Tools::NewSystemBrowser methodsFor:'menus extensions-custom refactorings'!
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	497
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	498	classMenuExtensionCustomGenerators:aMenu
506 b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	499	<menuextension: #classMenu>
640 60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	500
506 b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	501	\| item index perspective context \|
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	502
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	503	item := MenuItem label:(resources string:'Generate - Custom').
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	504	perspective := CustomPerspective classPerspective.
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	505	context := CustomBrowserContext
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	506	perspective:perspective
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	507	state:self navigationState.
506 b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	508	item submenuChannel:[ CustomMenuBuilder buildMenuForContext:context ].
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	509	index := aMenu indexOfMenuItemForWhich:[:each \| each label = 'Generate' ].
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	510	index ~~ 0 ifTrue:[
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	511	aMenu addItem:item beforeIndex:index + 1.
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	512	] ifFalse:[
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	513	aMenu addItem:item.
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	514	].
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	515
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	516	"Created: / 26-08-2014 / 10:21:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	517	! !
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	518
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	519	!Tools::NewSystemBrowser methodsFor:'menus extensions-custom refactorings'!
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	520
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	521	codeViewMenuExtensionCustomRefactorings:aMenu
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	522	<menuextension: #codeViewMenu>
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	523
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	524	\| item index perspective context \|
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	525
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	526	item := MenuItem label:(resources string:'Refactor - Custom').
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	527	perspective := CustomPerspective methodPerspective.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	528	context := CustomBrowserContext
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	529	perspective:perspective
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	530	state:self navigationState.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	531	item submenuChannel:[ CustomMenuBuilder buildMenuForContext:context filter: [:each \| each isCustomRefactoring ] ].
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	532	index := aMenu indexOfMenuItemForWhich:[:each \| each label = 'Refactor' ].
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	533	index ~~ 0 ifTrue:[
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	534	aMenu addItem:item beforeIndex:index + 1.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	535	] ifFalse:[
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	536	aMenu addItem:item.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	537	].
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	538
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	539	"Created: / 26-08-2014 / 22:44:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	540	! !
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	541
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	542	!Tools::NewSystemBrowser methodsFor:'menus extensions-custom refactorings'!
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	543
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	544	selectorMenuExtensionCustomGenerators:aMenu
649 6f80d672cb35 Fixed extensions in selector menu. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 647 diff changeset	545	<menuextension: #selectorMenuCompareGenerateDebugSlice>
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	546
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	547	\| item index perspective context \|
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	548
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	549	item := MenuItem label:(resources string:'Generate - Custom').
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	550	perspective := CustomPerspective methodPerspective.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	551	context := CustomBrowserContext
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	552	perspective:perspective
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	553	state:self navigationState.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	554	item submenuChannel:[ CustomMenuBuilder buildMenuForContext:context filter: [:each \| each isCustomCodeGenerator ] ].
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	555	index := aMenu indexOfMenuItemForWhich:[:each \| each label = 'Generate' ].
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	556	index ~~ 0 ifTrue:[
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	557	aMenu addItem:item beforeIndex:index + 1.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	558	] ifFalse:[
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	559	aMenu addItem:item.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	560	].
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	561
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	562	"Created: / 26-08-2014 / 10:18:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
649 6f80d672cb35 Fixed extensions in selector menu. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 647 diff changeset	563	"Modified: / 05-09-2014 / 11:28:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
640 60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	564	! !
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	565
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	566	!Tools::NewSystemBrowser methodsFor:'menus extensions-custom refactorings'!
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	567
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	568	selectorMenuExtensionCustomRefactorings:aMenu
649 6f80d672cb35 Fixed extensions in selector menu. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 647 diff changeset	569	<menuextension: #selectorMenuCompareGenerateDebugSlice>
640 60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	570
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	571	\| item index perspective context \|
640 60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	572
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	573	item := MenuItem label:(resources string:'Refactor - Custom').
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	574	perspective := CustomPerspective methodPerspective.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	575	context := CustomBrowserContext
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	576	perspective:perspective
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	577	state:self navigationState.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	578	item submenuChannel:[ CustomMenuBuilder buildMenuForContext:context filter: [:each \| each isCustomRefactoring ] ].
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	579	index := aMenu indexOfMenuItemForWhich:[:each \| each label = 'Refactor' ].
640 60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	580	index ~~ 0 ifTrue:[
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	581	aMenu addItem:item beforeIndex:index + 1.
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	582	] ifFalse:[
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	583	aMenu addItem:item.
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	584	].
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	585
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	586	"Created: / 24-08-2014 / 15:23:49 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
649 6f80d672cb35 Fixed extensions in selector menu. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 647 diff changeset	587	"Modified: / 05-09-2014 / 11:28:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
640 60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	588	! !
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	589
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	590	!Tools::NewSystemBrowser methodsFor:'menus extensions-custom refactorings'!
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	591
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	592	variablesMenuExtensionCustomGenerators:aMenu
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	593	<menuextension: #variablesMenu>
640 60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	594
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	595	\| item index perspective context \|
640 60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	596
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	597	item := MenuItem label:(resources string:'Generate - Custom').
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	598	perspective := CustomPerspective instanceVariablePerspective.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	599	context := CustomBrowserContext
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	600	perspective:perspective
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	601	state:self navigationState.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	602	item submenuChannel:[ CustomMenuBuilder buildMenuForContext:context ].
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	603	index := aMenu indexOfMenuItemForWhich:[:each \| each label = 'Generate' ].
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	604	index ~~ 0 ifTrue:[
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	605	aMenu addItem:item beforeIndex:index + 1.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	606	] ifFalse:[
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	607	aMenu addItem:item.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	608	].
640 60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	609
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	610	"Created: / 26-08-2014 / 10:21:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
506 b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	611	! !
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	612
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	613	!jn_refactoring_custom class methodsFor:'documentation'!
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	614
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	615	extensionsVersion_HG
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	616
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	617	^ '$Changeset: <not expanded> $'
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	618	! !

author	Jakub Nesveda <jakubnesveda@seznam.cz>
	Fri, 10 Oct 2014 16:28:37 +0200
changeset 688	6bd18ba5e56c
parent 686	12e570ea6c6e
child 689	488503cd3baa
permissions	-rw-r--r--