equal
deleted
inserted
replaced
111 !BrowserView class methodsFor:'cleanup'! |
111 !BrowserView class methodsFor:'cleanup'! |
112 |
112 |
113 checkClassHistory |
113 checkClassHistory |
114 "checks the class history on non-existing classes" |
114 "checks the class history on non-existing classes" |
115 |
115 |
116 ClassHistory reverseDo: |
116 self classHistory reverseDo: |
117 [:histEntry| |
117 [:histEntry| |
118 (Smalltalk at: (histEntry upTo: $ ) asSymbol) isBehavior |
118 (Smalltalk at: (histEntry upTo: $ ) asSymbol) isBehavior |
119 ifFalse: |
119 ifFalse: |
120 [ |
120 [ |
121 ClassHistory remove: histEntry |
121 ClassHistory remove: histEntry |
11770 ! ! |
11770 ! ! |
11771 |
11771 |
11772 !BrowserView class methodsFor:'documentation'! |
11772 !BrowserView class methodsFor:'documentation'! |
11773 |
11773 |
11774 version |
11774 version |
11775 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.421 1998-06-18 14:54:51 cg Exp $' |
11775 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.422 1998-06-19 16:57:50 tz Exp $' |
11776 ! ! |
11776 ! ! |
11777 BrowserView initialize! |
11777 BrowserView initialize! |