Class method rename
This commit is contained in:
parent
4810e16b17
commit
33c957e5c9
|
@ -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 }
|
||||
|
|
Loading…
Reference in New Issue