1670 |
1666 |
1671 classResources |
1667 classResources |
1672 ^ SystemBrowser classResources |
1668 ^ SystemBrowser classResources |
1673 ! ! |
1669 ! ! |
1674 |
1670 |
|
1671 !BrowserView class methodsFor:'startup & release'! |
|
1672 |
|
1673 preSnapshot |
|
1674 "flush cached resources before saving a snapshot |
|
1675 (do not save them in the image)" |
|
1676 |
|
1677 Icons := DefaultIcon := nil. |
|
1678 ! ! |
|
1679 |
1675 !BrowserView methodsFor:'change & update'! |
1680 !BrowserView methodsFor:'change & update'! |
1676 |
1681 |
1677 delayedUpdate:something with:someArgument from:changedObject |
1682 delayedUpdate:something with:someArgument from:changedObject |
1678 |list selector oldMethod| |
1683 |list selector oldMethod| |
1679 |
1684 |
12463 |
12468 |
12464 environment := anEnvironment |
12469 environment := anEnvironment |
12465 ! |
12470 ! |
12466 |
12471 |
12467 extractClassAndSelectorFromSelectionInto:aBlock |
12472 extractClassAndSelectorFromSelectionInto:aBlock |
12468 "given a string which can be either 'class>>sel' or |
12473 "given a string which can be either |
12469 'class sel', extract className and selector, and call aBlock with |
12474 'class>>sel', 'class » sel' or 'class sel', |
12470 the result." |
12475 extract className and selector, |
12471 |
12476 and call aBlock with the result." |
12472 |sel clsName isMeta sep s| |
12477 |
12473 |
12478 ^ SystemBrowser extractClassAndSelectorFrom:codeView selection into:aBlock |
12474 sel := codeView selection. |
|
12475 sel notNil ifTrue:[ |
|
12476 sel := sel asString withoutSeparators. |
|
12477 ('*>>*' match:sel) ifTrue:[ |
|
12478 sep := $> |
|
12479 ] ifFalse:[ |
|
12480 ('* *' match:sel) ifTrue:[ |
|
12481 sep := Character space |
|
12482 ] |
|
12483 ]. |
|
12484 sep notNil ifTrue:[ |
|
12485 " |
|
12486 extract class/sel from selection |
|
12487 " |
|
12488 s := ReadStream on:sel. |
|
12489 clsName := s upTo:sep. |
|
12490 [s peek == sep] whileTrue:[s next]. |
|
12491 sel := s upToEnd. |
|
12492 |
|
12493 (clsName endsWith:' class') ifTrue:[ |
|
12494 isMeta := true. |
|
12495 clsName := clsName copyButLast:6 |
|
12496 ] ifFalse:[ |
|
12497 isMeta := false |
|
12498 ]. |
|
12499 ] |
|
12500 ]. |
|
12501 aBlock value:clsName value:sel value:isMeta |
|
12502 |
|
12503 "Modified: 17.6.1996 / 16:52:14 / stefan" |
|
12504 ! |
12479 ! |
12505 |
12480 |
12506 findClassNamed:aClassName |
12481 findClassNamed:aClassName |
12507 "search through namespaces for aClassName." |
12482 "search through namespaces for aClassName." |
12508 |
12483 |