--- 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 $'
! !