--- a/Tools__TagList.st	Wed Aug 22 21:46:20 2012 +0200
+++ b/Tools__TagList.st	Wed Aug 22 21:50:36 2012 +0200
@@ -83,6 +83,8 @@
     TagsSuffixes at:#'text/javaScript'          put:#( 'js' ).
     TagsSuffixes at:#'text/javascript'          put:#( 'js' ).
     TagsSuffixes at:#'application/x-javascript' put:#( 'js' ).
+    TagsSuffixes at:#'text/dart'                put:#( 'dart' ).
+    TagsSuffixes at:#'application/x-dart'       put:#( 'dart' ).
     TagsSuffixes at:#'text/make'                put:#( 'makefile' 'make.proto' 'makefile.*' '*.mak' '*.bpr').
     TagsSuffixes at:#'text/prolog'              put:#( 'pl' ).
     TagsSuffixes at:#'text/python'              put:#( 'py' ).
@@ -97,7 +99,7 @@
     TagsSuffixes at:#'text/yacc'                put:#( 'y' ).
     ^ TagsSuffixes
 
-    "Modified: / 20-04-2011 / 19:27:53 / cg"
+    "Modified: / 22-08-2012 / 21:05:15 / cg"
 ! !
 
 !TagList class methodsFor:'defaults'!
@@ -132,6 +134,14 @@
     ^ self tagsSuffixes at:#'text/lisp'
 !
 
+dartSuffixes
+    "returns a list of supported dart-suffixes"
+
+    ^ self tagsSuffixes at:#'text/dart'
+
+    "Created: / 22-08-2012 / 21:01:32 / cg"
+!
+
 eiffelSuffixes
     "returns a list of supported eiffel-suffixes
     "
@@ -275,6 +285,12 @@
     ^ self isSuffix:suffix in:self commonLispSuffixes
 !
 
+isDartSuffix:suffix
+    ^ self isSuffix:suffix in:self dartSuffixes
+
+    "Created: / 22-08-2012 / 21:01:10 / cg"
+!
+
 isEiffelSuffix:suffix
     ^ self isSuffix:suffix in:self eiffelSuffixes
 !
@@ -2483,7 +2499,9 @@
                 { 'function '  . #functions  . hideFunctions . Tag::TFunction } .
                 { 'var '       . #variables  . hideVariables . Tag::TVariable } .
                 { 'class '     . #classes    . hideClasses . Tag::TClass      } .
+                { 'abstract class '     . #classes    . hideClasses . Tag::TClass      } .
                 { 'interface ' . #interfaces . hideDartInterfaces . Tag::TInterface } .
+                { 'factory '   . #methods .    hideMethods . Tag::TMethod } .
             } tuplesDo:[:keywordSpace :showOnlyEnum :hideVariableValue :tagType|
                 (l startsWith:keywordSpace) ifTrue:[
                     (showOnly isNil or:[showOnly == showOnlyEnum]) ifTrue:[
@@ -2507,7 +2525,7 @@
     ^ targets
 
     "Created: / 28-06-2010 / 12:44:25 / cg"
-    "Modified: / 08-05-2011 / 10:39:55 / cg"
+    "Modified: / 22-08-2012 / 21:32:33 / cg"
 !
 
 getSimpleTagListFromFile:aFileOrString in:aTempDirectory
@@ -2572,6 +2590,10 @@
         "/ js tags - simulated
         ^ self javaScriptTagsInFile:pathName
     ].
+    (self class isDartSuffix:suffix) ifTrue:[
+        "/ dart tags - simulated
+        ^ self dartTagsInFile:pathName
+    ].
 
     (self class isHTMLSuffix:suffix) ifTrue:[
         "/ html tags - simulated
@@ -3482,11 +3504,11 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.14 2012-08-21 19:04:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.15 2012-08-22 19:50:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.14 2012-08-21 19:04:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.15 2012-08-22 19:50:36 cg Exp $'
 !
 
 version_SVN