--- a/Tools__Tag.st Wed Sep 12 12:00:27 2012 +0100
+++ b/Tools__Tag.st Thu Sep 13 10:15:20 2012 +0100
@@ -20,6 +20,13 @@
category:'Interface-Tools-File-Tags'
!
+Tag subclass:#TElement
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:Tag
+!
+
Tag subclass:#TClass
instanceVariableNames:''
classVariableNames:''
@@ -34,7 +41,7 @@
privateIn:Tag
!
-Tag subclass:#TElement
+Tag::TElement subclass:#TAnchorElement
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
@@ -62,6 +69,13 @@
privateIn:Tag
!
+Tag::TElement subclass:#TFormElement
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:Tag
+!
+
Tag subclass:#TFunction
instanceVariableNames:''
classVariableNames:''
@@ -69,6 +83,13 @@
privateIn:Tag
!
+Tag::TElement subclass:#THeaderElement
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:Tag
+!
+
Tag subclass:#TInterface
instanceVariableNames:''
classVariableNames:''
@@ -602,6 +623,46 @@
! !
+!Tag::TElement class methodsFor:'accessing'!
+
+typeIdentifier
+ ^ 'e'
+
+ "Created: / 20-04-2011 / 18:52:31 / cg"
+! !
+
+!Tag::TElement class methodsFor:'documentation'!
+
+documentation
+"
+ an element (as in HTML)
+"
+! !
+
+!Tag::TElement methodsFor:'accessing'!
+
+typeIdentifierInList
+ ^ 'e'
+
+ "Created: / 20-04-2011 / 18:53:49 / cg"
+!
+
+typeString
+ ^ 'element'
+
+ "Created: / 20-04-2011 / 18:53:29 / cg"
+! !
+
+!Tag::TElement methodsFor:'testing'!
+
+isElementTag
+ "return true, if this is an element tag
+ "
+ ^ true
+
+ "Created: / 20-04-2011 / 18:53:16 / cg"
+! !
+
!Tag::TClass class methodsFor:'accessing'!
typeIdentifier
@@ -677,46 +738,36 @@
"Created: / 08-05-2011 / 10:06:03 / cg"
! !
-!Tag::TElement class methodsFor:'accessing'!
+!Tag::TAnchorElement class methodsFor:'accessing'!
typeIdentifier
- ^ 'e'
+ ^ 'a'
"Created: / 20-04-2011 / 18:52:31 / cg"
! !
-!Tag::TElement class methodsFor:'documentation'!
+!Tag::TAnchorElement class methodsFor:'documentation'!
documentation
"
- an element (as in HTML)
+ an anchor element (in HTML)
"
! !
-!Tag::TElement methodsFor:'accessing'!
+!Tag::TAnchorElement methodsFor:'accessing'!
typeIdentifierInList
- ^ 'e'
+ ^ 'a'
"Created: / 20-04-2011 / 18:53:49 / cg"
!
typeString
- ^ 'element'
+ ^ 'anchor element'
"Created: / 20-04-2011 / 18:53:29 / cg"
! !
-!Tag::TElement methodsFor:'testing'!
-
-isElementTag
- "return true, if this is an element tag
- "
- ^ true
-
- "Created: / 20-04-2011 / 18:53:16 / cg"
-! !
-
!Tag::TEnum class methodsFor:'accessing'!
typeIdentifier
@@ -790,6 +841,36 @@
! !
+!Tag::TFormElement class methodsFor:'accessing'!
+
+typeIdentifier
+ ^ 'f'
+
+ "Created: / 20-04-2011 / 18:52:31 / cg"
+! !
+
+!Tag::TFormElement class methodsFor:'documentation'!
+
+documentation
+"
+ a form element (in HTML)
+"
+! !
+
+!Tag::TFormElement methodsFor:'accessing'!
+
+typeIdentifierInList
+ ^ 'f'
+
+ "Created: / 20-04-2011 / 18:53:49 / cg"
+!
+
+typeString
+ ^ 'form element'
+
+ "Created: / 20-04-2011 / 18:53:29 / cg"
+! !
+
!Tag::TFunction class methodsFor:'accessing'!
typeIdentifier
@@ -822,6 +903,36 @@
! !
+!Tag::THeaderElement class methodsFor:'accessing'!
+
+typeIdentifier
+ ^ 'h'
+
+ "Created: / 20-04-2011 / 18:52:31 / cg"
+! !
+
+!Tag::THeaderElement class methodsFor:'documentation'!
+
+documentation
+"
+ a header element (in HTML)
+"
+! !
+
+!Tag::THeaderElement methodsFor:'accessing'!
+
+typeIdentifierInList
+ ^ 'h'
+
+ "Created: / 20-04-2011 / 18:53:49 / cg"
+!
+
+typeString
+ ^ 'header element'
+
+ "Created: / 20-04-2011 / 18:53:29 / cg"
+! !
+
!Tag::TInterface class methodsFor:'accessing'!
typeIdentifier
@@ -1258,9 +1369,9 @@
!Tag class methodsFor:'documentation'!
version_CVS
- ^ '§Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.5 2012/03/17 10:17:46 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.6 2012/09/12 20:42:58 cg Exp §'
!
version_SVN
- ^ '$Id: Tools__Tag.st 7952 2012-03-21 17:50:14Z vranyj1 $'
+ ^ '$Id: Tools__Tag.st 8054 2012-09-13 09:15:20Z vranyj1 $'
! !
\ No newline at end of file