changeset 2817 | 4829added41b |
parent 2813 | ebef400fdd3b |
child 2819 | 070d807c55f6 |
2816:04c3e709fbd2 | 2817:4829added41b |
---|---|
12342 ex proceedWith:answer |
12342 ex proceedWith:answer |
12343 ] |
12343 ] |
12344 ] do:[ |
12344 ] do:[ |
12345 |
12345 |
12346 rslt := actualClass compilerClass |
12346 rslt := actualClass compilerClass |
12347 compile:theCode asString |
12347 compile:theCode asString withoutSeparators |
12348 forClass:cls |
12348 forClass:cls |
12349 inCategory:cat |
12349 inCategory:cat |
12350 notifying:codeView. |
12350 notifying:codeView. |
12351 |
12351 |
12352 codeView modified:false. |
12352 codeView modified:false. |
12391 "/ in:codeView contents |
12391 "/ in:codeView contents |
12392 "/ forClass:actualClass) |
12392 "/ forClass:actualClass) |
12393 "/ ] |
12393 "/ ] |
12394 "/ ]. |
12394 "/ ]. |
12395 |
12395 |
12396 "Modified: / 10.2.2000 / 14:17:14 / cg" |
12396 "Modified: / 10.2.2000 / 14:17:14 / cg"! |
12397 ! |
|
12398 |
12397 |
12399 setDoitActionForClass |
12398 setDoitActionForClass |
12400 "tell the codeView what to do on doIt" |
12399 "tell the codeView what to do on doIt" |
12401 |
12400 |
12402 "set self for doits. This allows accessing the current class |
12401 "set self for doits. This allows accessing the current class |
13700 ! ! |
13699 ! ! |
13701 |
13700 |
13702 !BrowserView class methodsFor:'documentation'! |
13701 !BrowserView class methodsFor:'documentation'! |
13703 |
13702 |
13704 version |
13703 version |
13705 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.639 2000-10-07 11:59:27 cg Exp $' |
13704 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.640 2000-10-20 11:11:28 stefan Exp $' |
13706 ! ! |
13705 ! ! |
13707 BrowserView initialize! |
13706 BrowserView initialize! |