# HG changeset patch # User Claus Gittinger # Date 1253277165 -7200 # Node ID a1ce8e925f55986f13982bbb821f302f96b9f238 # Parent de8bb52697108c7901a3f2dcc7d470c0d12d75e9 *** empty log message *** diff -r de8bb5269710 -r a1ce8e925f55 Tools_NavigatorModel.st --- a/Tools_NavigatorModel.st Fri Sep 18 14:31:22 2009 +0200 +++ b/Tools_NavigatorModel.st Fri Sep 18 14:32:45 2009 +0200 @@ -40,8 +40,6 @@ initialize AllEntry := '* all *'. - SuperSendEntry := '* super *'. - UncommentedEntry := '* uncommented *'. "Created: / 24.2.2000 / 13:41:29 / cg" ! ! @@ -70,7 +68,7 @@ ! nameListEntryForObsolete - ^ '* obsolete *' + ^ '* obsolete (%1) *' ! nameListEntryForStatic @@ -78,11 +76,11 @@ ! nameListEntryForSuperSend - ^ SuperSendEntry ? '* super *' + ^ '* super (%1) *' ! nameListEntryForUncommented - ^ UncommentedEntry ? '* uncommented *' + ^ '* uncommented (%1) *' ! ! !NavigatorModel class methodsFor:'interface specs'! @@ -153,10 +151,12 @@ !NavigatorModel methodsFor:'misc'! resources + "answer the resources of my masterApp, if there is one" + |m| (m := self masterApplication) notNil ifTrue:[ - ^ m resources + ^ m resources ]. ^ super resources ! ! @@ -164,7 +164,7 @@ !NavigatorModel class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.6 2009-09-17 12:03:13 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.7 2009-09-18 12:32:45 cg Exp $' ! ! NavigatorModel initialize!