BrowserView.st
changeset 2600 92df98451039
parent 2599 9f6773f63f26
child 2602 acb63d8895b9
--- a/BrowserView.st	Thu Feb 10 17:54:39 2000 +0100
+++ b/BrowserView.st	Thu Feb 10 19:31:53 2000 +0100
@@ -11549,8 +11549,19 @@
         "/ which does the same ?
 
         sel := mthdHere selector.
-
         cls := mthdHere mclass.
+
+        ( #( 
+            documentation
+            version
+            examples
+            copyright
+            history
+           ) includes:sel) ifTrue:[
+            cls isMeta ifTrue:[
+                ^ self
+            ]
+        ].
         superCls := cls superclass.
         implClass := superCls whichClassImplements:sel.
         implClass notNil ifTrue:[
@@ -11572,7 +11583,7 @@
         ]        
     ].
 
-    "Modified: / 10.2.2000 / 15:57:57 / cg"
+    "Modified: / 10.2.2000 / 18:28:44 / cg"
 !
 
 checkSelectionChangeAllowed
@@ -14017,6 +14028,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.600 2000-02-10 16:54:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.601 2000-02-10 18:31:53 cg Exp $'
 ! !
 BrowserView initialize!