Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
better html tags (h-elements)
authorClaus Gittinger <cg@exept.de>
Wed, 12 Sep 2012 22:42:58 +0200
changeset 11803 3025c4948991
parent 11802 79d02540b382
child 11804 94deec4857b1
better html tags (h-elements)
Tools__Tag.st file | annotate | diff | comparison | revisions 
--- 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
hg/stx-libtool