equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
1665 nil |
1663 nil |
1666 nil |
1664 nil |
1667 ) |
1665 ) |
1668 ! ! |
1666 ! ! |
1669 |
1667 |
1670 !BrowserView class methodsFor:'resources'! |
|
1671 |
|
1672 classResources |
|
1673 ^ SystemBrowser classResources |
|
1674 ! ! |
|
1675 |
|
1676 !BrowserView class methodsFor:'startup & release'! |
1668 !BrowserView class methodsFor:'startup & release'! |
1677 |
1669 |
1678 preSnapshot |
1670 preSnapshot |
1679 "flush cached resources before saving a snapshot |
1671 "flush cached resources before saving a snapshot |
1680 (do not save them in the image)" |
1672 (do not save them in the image)" |
12482 environment := anEnvironment |
12474 environment := anEnvironment |
12483 ! |
12475 ! |
12484 |
12476 |
12485 extractClassAndSelectorFromSelectionInto:aBlock |
12477 extractClassAndSelectorFromSelectionInto:aBlock |
12486 "given a string which can be either |
12478 "given a string which can be either |
12487 'class>>sel', 'class » sel' or 'class sel', |
12479 'class>>sel', 'class » sel' or 'class sel', |
12488 extract className and selector, |
12480 extract className and selector, |
12489 and call aBlock with the result." |
12481 and call aBlock with the result." |
12490 |
12482 |
12491 ^ SystemBrowser extractClassAndSelectorFrom:codeView selection into:aBlock |
12483 ^ SystemBrowser extractClassAndSelectorFrom:codeView selection into:aBlock |
12492 ! |
12484 ! |