--- a/Tools_NavigationState.st	Fri Sep 10 16:06:27 2004 +0200
+++ b/Tools_NavigationState.st	Sun Sep 12 16:45:40 2004 +0200
@@ -1000,6 +1000,12 @@
     "Created: / 24.2.2000 / 14:54:40 / cg"
 !
 
+isClassExtensionBrowser
+    ^ canvasType == #multipleClassExtensionBrowserSpec
+
+    "Created: / 24.2.2000 / 14:54:40 / cg"
+!
+
 isFullBrowser
     ^ canvasType == #fullBrowserSpec
 !
@@ -1125,5 +1131,5 @@
 !NavigationState class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.3 2004-06-11 13:31:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.4 2004-09-12 14:45:40 ca Exp $'
 ! !