Class method rename

This commit is contained in:
Daniel Ziltener 2023-11-21 23:31:20 +01:00
parent 4810e16b17
commit 33c957e5c9
1 changed files with 8 additions and 8 deletions

View File

@ -47,7 +47,7 @@ HitchElement class >> handlesTag: aTag [
]
{ #category : #'instance creation' }
HitchElement class >> newTag: aTag [
HitchElement class >> tag: aTag [
^ (self getResponsibleElementClassFor: aTag) new
name: aTag;
@ -55,7 +55,7 @@ HitchElement class >> newTag: aTag [
]
{ #category : #'instance creation' }
HitchElement class >> newTag: aTag attrs: attributes [
HitchElement class >> tag: aTag attrs: attributes [
^ (self getResponsibleElementClassFor: aTag)
new
@ -65,7 +65,7 @@ HitchElement class >> newTag: aTag attrs: attributes [
]
{ #category : #'instance creation' }
HitchElement class >> newTag: aTag attrs: attributes children: childElems [
HitchElement class >> tag: aTag attrs: attributes children: childElems [
^ (self getResponsibleElementClassFor: aTag) new
name: aTag;
@ -75,7 +75,7 @@ HitchElement class >> newTag: aTag attrs: attributes children: childElems [
]
{ #category : #'instance creation' }
HitchElement class >> newTag: aTag children: childElems [
HitchElement class >> tag: aTag children: childElems [
^ (self getResponsibleElementClassFor: aTag) new
name: aTag;
@ -86,25 +86,25 @@ HitchElement class >> newTag: aTag children: childElems [
{ #category : #adding }
HitchElement >> add: aTag [
children add: (self class newTag: aTag)
children add: (self class tag: aTag)
]
{ #category : #adding }
HitchElement >> add: aTag attrs: attrs [
children add: (self class newTag: aTag attrs: attrs)
children add: (self class tag: aTag attrs: attrs)
]
{ #category : #adding }
HitchElement >> add: aTag attrs: attrs children: childElems [
children add: (self class newTag: aTag attrs: attrs children: childElems)
children add: (self class tag: aTag attrs: attrs children: childElems)
]
{ #category : #adding }
HitchElement >> add: aTag children: childElems [
children add: (self class newTag: aTag children: childElems)
children add: (self class tag: aTag children: childElems)
]
{ #category : #accessing }