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