equal
deleted
inserted
replaced
12465 (answer ~~ #cancel) ifTrue:[ |
12465 (answer ~~ #cancel) ifTrue:[ |
12466 ex proceedWith:answer |
12466 ex proceedWith:answer |
12467 ] |
12467 ] |
12468 ] do:[ |
12468 ] do:[ |
12469 |
12469 |
12470 rslt := NewCompiler "/ actualClass compilerClass |
12470 rslt := actualClass compilerClass |
12471 compile:theCode asString withoutSeparators |
12471 compile:theCode asString withoutSeparators |
12472 forClass:cls |
12472 forClass:cls |
12473 inCategory:cat |
12473 inCategory:cat |
12474 notifying:codeView. |
12474 notifying:codeView. |
12475 |
12475 |
13824 ! ! |
13824 ! ! |
13825 |
13825 |
13826 !BrowserView class methodsFor:'documentation'! |
13826 !BrowserView class methodsFor:'documentation'! |
13827 |
13827 |
13828 version |
13828 version |
13829 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.652 2000-12-06 14:27:34 cg Exp $' |
13829 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.653 2000-12-06 18:40:31 cg Exp $' |
13830 ! ! |
13830 ! ! |
13831 BrowserView initialize! |
13831 BrowserView initialize! |