equal
deleted
inserted
replaced
12112 ^ self |
12112 ^ self |
12113 ] |
12113 ] |
12114 ]. |
12114 ]. |
12115 superCls := cls superclass. |
12115 superCls := cls superclass. |
12116 superCls notNil ifTrue:[ |
12116 superCls notNil ifTrue:[ |
12117 implClass := superCls whichClassImplements:sel. |
12117 implClass := superCls whichClassIncludesSelector:sel. |
12118 ]. |
12118 ]. |
12119 implClass notNil ifTrue:[ |
12119 implClass notNil ifTrue:[ |
12120 "/ ok, it is redefined |
12120 "/ ok, it is redefined |
12121 mthdThere := implClass compiledMethodAt:sel. |
12121 mthdThere := implClass compiledMethodAt:sel. |
12122 treeHere := RBParser |
12122 treeHere := RBParser |
14591 ! ! |
14591 ! ! |
14592 |
14592 |
14593 !BrowserView class methodsFor:'documentation'! |
14593 !BrowserView class methodsFor:'documentation'! |
14594 |
14594 |
14595 version |
14595 version |
14596 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.796 2006-03-20 08:42:56 cg Exp $' |
14596 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.797 2006-06-07 15:38:21 stefan Exp $' |
14597 ! ! |
14597 ! ! |
14598 |
14598 |
14599 BrowserView initialize! |
14599 BrowserView initialize! |