Tools_NavigatorModel.st
changeset 8695 9c76f55700a3
parent 7488 f38fbf8028e5
child 8719 02158918feb2
--- a/Tools_NavigatorModel.st	Mon Sep 14 20:16:13 2009 +0200
+++ b/Tools_NavigatorModel.st	Mon Sep 14 20:16:15 2009 +0200
@@ -15,7 +15,7 @@
 
 ApplicationModel subclass:#NavigatorModel
 	instanceVariableNames:''
-	classVariableNames:'AllEntry'
+	classVariableNames:'AllEntry SuperSendEntry UncommentedEntry'
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
 !
@@ -39,7 +39,9 @@
 !NavigatorModel class methodsFor:'initialization'!
 
 initialize
-    AllEntry := '* all *'
+    AllEntry := '* all *'.
+    SuperSendEntry := '* super *'.
+    UncommentedEntry := '* uncommented *'.
 
     "Created: / 24.2.2000 / 13:41:29 / cg"
 ! !
@@ -69,6 +71,14 @@
 
 nameListEntryForStatic
     ^ '* static *'
+!
+
+nameListEntryForSuperSend
+    ^ SuperSendEntry ? '* super *'
+!
+
+nameListEntryForUncommented
+    ^ UncommentedEntry ? '* uncommented *'
 ! !
 
 !NavigatorModel class methodsFor:'interface specs'!
@@ -150,7 +160,7 @@
 !NavigatorModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.4 2006-11-07 17:16:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.5 2009-09-14 18:16:15 cg Exp $'
 ! !
 
 NavigatorModel initialize!