Tools_NavigatorModel.st
changeset 8722 a1ce8e925f55
parent 8719 02158918feb2
child 8732 d89357e795a3
--- 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!