hg/stx-goodies-petitparser: gui/PPRenameProdcutionRefactoring.st@5159b1039a8f (annotated)

340 51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'stx:goodies/petitparser/gui' }"
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
344 c0090f685ea8 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 340 diff changeset	3	Refactoring subclass:#PPRenameProdcutionRefactoring
340 51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:'oldProduction newProduction class'
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	classVariableNames:''
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	poolDictionaries:''
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	category:'PetitGui-Refactoring'
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	!
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	!PPRenameProdcutionRefactoring class methodsFor:'instance creation'!
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	onClass: aClass rename: anOldSelector to: aNewSelector
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	^ self new
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	setClass: aClass;
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	setOldProduction: anOldSelector;
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	setNewProduction: aNewSelector;
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	yourself
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	! !
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	!PPRenameProdcutionRefactoring methodsFor:'initialization'!
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	setClass: aClass
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	class := self classObjectFor: aClass
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	!
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	setNewProduction: aSymbol
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	newProduction := aSymbol
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	!
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	setOldProduction: aSymbol
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	oldProduction := aSymbol
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	! !
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	!PPRenameProdcutionRefactoring methodsFor:'preconditions'!
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	preconditions
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	^ self checkCompositeParser: class
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	! !
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	!PPRenameProdcutionRefactoring methodsFor:'transforming'!
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	transform
362 0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	44	\| baseClass oldEnvironment \|
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	45	baseClass := class whoDefinesInstanceVariable: oldProduction asString.
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	46	self performComponentRefactoring: (RenameInstanceVariableRefactoring
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	47	model: model
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	48	rename: oldProduction asString
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	49	to: newProduction asString
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	50	in: baseClass).
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	51	oldEnvironment := model environment.
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	52	model environment: (model environment
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	53	forClasses: baseClass realClass withAllSubclasses).
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	54	[ self performComponentRefactoring: (RenameMethodRefactoring
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	55	model: model
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	56	renameMethod: oldProduction asSymbol
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	57	in: baseClass
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	58	to: newProduction asSymbol
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	59	permutation: #()) ]
0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	60	ensure: [ model environment: oldEnvironment ]
340 51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	! !
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	!PPRenameProdcutionRefactoring class methodsFor:'documentation'!
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	version
362 0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	66	^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPRenameProdcutionRefactoring.st,v 1.3 2014-03-04 23:33:51 cg Exp $'
340 51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	!
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	version_CVS
362 0809350b82c2 class: PPRenameProdcutionRefactoring Claus Gittinger <cg@exept.de> parents: 344 diff changeset	70	^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPRenameProdcutionRefactoring.st,v 1.3 2014-03-04 23:33:51 cg Exp $'
340 51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	! !
51d23338b32e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72

author	sr
	Thu, 05 Jul 2018 09:23:25 +0200
changeset 626	5159b1039a8f
parent 362	0809350b82c2
permissions	-rw-r--r--