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