# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1347482578 -7200
# Node ID 3025c49489912e96011691e66d3813303d3002dc
# Parent  79d02540b38252ab8475141258333b9f90f5dade
better html tags (h-elements)

diff -r 79d02540b382 -r 3025c4948991 Tools__Tag.st
--- a/Tools__Tag.st	Wed Sep 12 17:59:53 2012 +0200
+++ b/Tools__Tag.st	Wed Sep 12 22:42:58 2012 +0200
@@ -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,7 +1369,7 @@
 !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