# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1383764688 -3600
# Node ID c11682792269453170a9364adba1b7beb82b7f53
# Parent  497ca003a6dcac0b4117fcc8497c11b52bc0aef0
class: Tools::TagsBrowser

diff -r 497ca003a6dc -r c11682792269 Tools__TagsBrowser.st
--- a/Tools__TagsBrowser.st	Wed Nov 06 12:16:14 2013 +0100
+++ b/Tools__TagsBrowser.st	Wed Nov 06 20:04:48 2013 +0100
@@ -2450,10 +2450,14 @@
 !
 
 list:aList
-    "/ (list isKindOf:Tools::TagList) ifFalse:[self halt].
+    (aList isNil or:[aList isKindOf:Tools::TagList]) ifFalse:[self halt].
     super list:aList.
 !
 
+newDefaultList
+    ^ TagList new
+!
+
 tagLineNr:lineNr
     "remember line nr for which a tag should be highlighted.
      (will set my selection late, when the taglist is available"
@@ -2566,7 +2570,9 @@
     |tagFile|
 
     "/ ugly hack to suppress generation if the taglist is externally provided
-    (list isKindOf:Tools::TagList) ifFalse:[^ false].
+    (list isKindOf:Tools::TagList) ifFalse:[
+        ^ false
+    ].
 
     Tag autoload.
 
@@ -2680,14 +2686,14 @@
 !TagsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.42 2013-10-13 17:56:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.43 2013-11-06 19:04:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.42 2013-10-13 17:56:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.43 2013-11-06 19:04:48 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagsBrowser.st,v 1.42 2013-10-13 17:56:37 cg Exp $'
+    ^ '$Id: Tools__TagsBrowser.st,v 1.43 2013-11-06 19:04:48 cg Exp $'
 ! !