hg/stx-goodies-smallsense: extensions.st@12e570ea6c6e (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
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	3	!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	4
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	5	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	6	\| 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	7
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	8	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	9
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	10	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	11	^ #()
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	12	].
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	13
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	14	^ 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	15
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	16	"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	17	"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	18	! !
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	19
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	20	!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	21
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	22	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	23	\| 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	24
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	25	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	26
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	27	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	28	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	29	].
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
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	"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	32	"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	33	! !
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	!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	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	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	38	"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	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	^ 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	41
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	"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	43	"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	44	"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	45	! !
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	46
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	47	!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	48
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	49	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	50	"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	51
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	52	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	53
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	"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	55	! !
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	!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	58
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	59	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	60	"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	61
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	62	^ 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	63
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	64	"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	65	! !
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	66
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	67	!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	68
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	69	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	70	"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	71	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	72
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	73	\| 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	74
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	75	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	76
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	77	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	78	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	79	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	80	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	81	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	82	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	83	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	84	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	85	].
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	86	].
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	87
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	88	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	89	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	90	\| 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	91
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	92	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	93	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	94	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	95	]
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	96	]
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
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	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	100	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	101	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	102	]
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	103	].
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	104
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	105	^ 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	106
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	107	"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	108	"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	109	! !
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	110
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	111	!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	112
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	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	114	"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	115
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	^ (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	117
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	118	"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	119	"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	120	! !
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	121
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	122	!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	123
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	124	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	125	"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	126
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	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	128
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	"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	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
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	!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	133
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	134	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	135	"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	136
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	137	^ 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	138
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	139	"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	140	! !
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	141
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	142	!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	143
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	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	145	"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	146
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	^ 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	148
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	"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	150	! !
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
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	!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	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	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	155	"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	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	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	158	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	159
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	"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	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
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	163	!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	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	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	166	"Updates class definition in the namespace along with code changes"
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	model defineClass: self definitionString.
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
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	"Created: / 25-09-2014 / 22:31:44 / 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	171	"Modified: / 25-09-2014 / 23:36:04 / 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	172	! !
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	!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	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	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	177	"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	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	^ 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	180
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	"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	182	! !
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	183
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	184	!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	185
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	186	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	187	"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	188
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	189	^ 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	190
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	191	"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	192	! !
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	193
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	194	!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	195
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	196	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	197	"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	198
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	199	^ 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	200
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	201	"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	202	! !
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	203
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	204	!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	205
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	206	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	207	"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	208
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	209	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	210
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	211	"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	212	! !
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	213
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	214	!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	215
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	216	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	217	"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	218
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	219	\| 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	220
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	221	((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	222	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	223	] 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	224	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	225	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	226	] 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	227	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	228	]
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	229	].
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	230
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	231	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	232
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	233	"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	234	"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	235	! !
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	236
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	237	!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	238
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	239	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	240	"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	241
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	242	\| newSource generator \|
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	243
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	244	newSource := 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	245	generator := self 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	246	generator notNil 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	247	generator source: newSource.
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	248	newSource := generator newSource.
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	249	].
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	250
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	251	self modelClass compile: newSource classified: 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	252
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	253	"Created: / 06-10-2014 / 11:11:30 / 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	254	! !
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	255
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	256	!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	257
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	258	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	259	"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	260
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	261	\| 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	262
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	263	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	264	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	265	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	266	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	267	].
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	268
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	269	"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	270	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	271	(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	272	\| 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	273
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	274	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	275	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	276	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	277	].
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	278	^ 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	279	].
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	280
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	281	^ 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	282
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	283	"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	284	"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	285	! !
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	286
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	287	!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	288
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	289	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	290	"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	291
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	292	^ 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	293	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	294	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	295
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	"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	297	! !
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
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	!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	300
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	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	302
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	^ 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	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	"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	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
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	!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	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	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	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	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	313
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	"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	315	! !
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
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	!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	318
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	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	320	"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	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 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	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: / 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	325	! !
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	!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	328
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	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	330	"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	331
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	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	333
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	"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	335	! !
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	336
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	!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	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	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	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	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	342
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	"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	344	! !
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
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	346	!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	347
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	348	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	349	"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	350	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	351	( 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	352
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	353	^ (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	354
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	355	"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	356	! !
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	357
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	358	!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	359
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	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	361	"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	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	^ 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	364
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	"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	366	! !
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
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	!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	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	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	371	"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	372
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	^ 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	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	"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	376	! !
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
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	378	!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	379
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	380	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	381	<menuextension: #classMenu>
640 60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	382
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	383	\| 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	384
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	385	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	386	perspective := CustomPerspective classPerspective.
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	387	context := CustomBrowserContext
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	388	perspective:perspective
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	389	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	390	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	391	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	392	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	393	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	394	] 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	395	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	396	].
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	397
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	398	"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	399	! !
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	400
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	401	!Tools::NewSystemBrowser methodsFor:'menus extensions-custom refactorings'!
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	402
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	403	codeViewMenuExtensionCustomRefactorings:aMenu
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	404	<menuextension: #codeViewMenu>
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	405
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	406	\| item index perspective context \|
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	407
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	408	item := MenuItem label:(resources string:'Refactor - Custom').
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	409	perspective := CustomPerspective methodPerspective.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	410	context := CustomBrowserContext
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	411	perspective:perspective
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	412	state:self navigationState.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	413	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	414	index := aMenu indexOfMenuItemForWhich:[:each \| each label = 'Refactor' ].
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	415	index ~~ 0 ifTrue:[
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	416	aMenu addItem:item beforeIndex:index + 1.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	417	] ifFalse:[
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	418	aMenu addItem:item.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	419	].
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	420
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	421	"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	422	! !
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	423
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	424	!Tools::NewSystemBrowser methodsFor:'menus extensions-custom refactorings'!
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	425
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	426	selectorMenuExtensionCustomGenerators:aMenu
649 6f80d672cb35 Fixed extensions in selector menu. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 647 diff changeset	427	<menuextension: #selectorMenuCompareGenerateDebugSlice>
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	428
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	429	\| item index perspective context \|
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	430
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	431	item := MenuItem label:(resources string:'Generate - Custom').
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	432	perspective := CustomPerspective methodPerspective.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	433	context := CustomBrowserContext
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	434	perspective:perspective
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	435	state:self navigationState.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	436	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	437	index := aMenu indexOfMenuItemForWhich:[:each \| each label = 'Generate' ].
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	438	index ~~ 0 ifTrue:[
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	439	aMenu addItem:item beforeIndex:index + 1.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	440	] ifFalse:[
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	441	aMenu addItem:item.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	442	].
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	443
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	444	"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	445	"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	446	! !
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	447
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	448	!Tools::NewSystemBrowser methodsFor:'menus extensions-custom refactorings'!
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	449
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	450	selectorMenuExtensionCustomRefactorings:aMenu
649 6f80d672cb35 Fixed extensions in selector menu. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 647 diff changeset	451	<menuextension: #selectorMenuCompareGenerateDebugSlice>
640 60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	452
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	453	\| item index perspective context \|
640 60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	454
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	455	item := MenuItem label:(resources string:'Refactor - Custom').
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	456	perspective := CustomPerspective methodPerspective.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	457	context := CustomBrowserContext
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	458	perspective:perspective
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	459	state:self navigationState.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	460	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	461	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	462	index ~~ 0 ifTrue:[
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	463	aMenu addItem:item beforeIndex:index + 1.
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	464	] ifFalse:[
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	465	aMenu addItem:item.
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	466	].
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	467
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	468	"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	469	"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	470	! !
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	471
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	472	!Tools::NewSystemBrowser methodsFor:'menus extensions-custom refactorings'!
60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	473
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	474	variablesMenuExtensionCustomGenerators:aMenu
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	475	<menuextension: #variablesMenu>
640 60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	476
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	477	\| item index perspective context \|
640 60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	478
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	479	item := MenuItem label:(resources string:'Generate - Custom').
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	480	perspective := CustomPerspective instanceVariablePerspective.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	481	context := CustomBrowserContext
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	482	perspective:perspective
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	483	state:self navigationState.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	484	item submenuChannel:[ CustomMenuBuilder buildMenuForContext:context ].
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	485	index := aMenu indexOfMenuItemForWhich:[:each \| each label = 'Generate' ].
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	486	index ~~ 0 ifTrue:[
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	487	aMenu addItem:item beforeIndex:index + 1.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	488	] ifFalse:[
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	489	aMenu addItem:item.
83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	490	].
640 60decf64faa8 add menu extension for selectorMenu in NewSystemBrowser Jakub Nesveda <jakubnesveda@seznam.cz> parents: 534 diff changeset	491
647 83c6c207a7f1 More menu extensions in browser. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 640 diff changeset	492	"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	493	! !
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	494
b611cc119554 Added support for custom menu building and injecting into class browser's menus. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	495	!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	496
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	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	498
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	^ '$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	500	! !

author	Jakub Nesveda <jakubnesveda@seznam.cz>
	Tue, 07 Oct 2014 23:05:10 +0200
changeset 686	12e570ea6c6e
parent 685	bc7798e413f6
child 688	6bd18ba5e56c
permissions	-rw-r--r--