equal
deleted
inserted
replaced
1714 self updateClassList |
1714 self updateClassList |
1715 ]. |
1715 ]. |
1716 "stupid - search for class name in (indented) list" |
1716 "stupid - search for class name in (indented) list" |
1717 list := classListView list. |
1717 list := classListView list. |
1718 list notNil ifTrue:[ |
1718 list notNil ifTrue:[ |
1719 classIndex := list findFirst:[:elem | elem endsWith:oldName]. |
1719 classIndex := list findFirst:[:elem | elem withoutSpaces = oldName asString]. |
1720 ] ifFalse:[ |
1720 ] ifFalse:[ |
1721 classIndex := 0 |
1721 classIndex := 0 |
1722 ]. |
1722 ]. |
1723 classIndex ~~ 0 ifTrue:[ |
1723 classIndex ~~ 0 ifTrue:[ |
1724 classListView setSelection:classIndex. |
1724 classListView setSelection:classIndex. |
2007 ! |
2007 ! |
2008 |
2008 |
2009 loadFromMessage: aMessage |
2009 loadFromMessage: aMessage |
2010 "switch to the class and selector by evaluating aMessage" |
2010 "switch to the class and selector by evaluating aMessage" |
2011 |
2011 |
2012 |selector| |
2012 |selector nameSpace| |
2013 |
2013 |
2014 self switchToClassNamed: (aMessage upTo: $ ). |
2014 self switchToClassNamed: (aMessage upTo: $ ). |
|
2015 |
|
2016 actualClass nameSpace ~~ Smalltalk |
|
2017 ifTrue: [nameSpace := actualClass nameSpace name] |
|
2018 ifFalse: [nameSpace := '* all *']. |
|
2019 |
|
2020 namespaceList model value:nameSpace. |
|
2021 |
2015 self instanceProtocol: (aMessage includesString: ' class ') not. |
2022 self instanceProtocol: (aMessage includesString: ' class ') not. |
2016 |
2023 |
2017 (actualClass implements: (selector := (aMessage copy reverse upTo: $ ) reverse asSymbol)) |
2024 (actualClass implements: (selector := (aMessage copy reverse upTo: $ ) reverse asSymbol)) |
2018 ifTrue: |
2025 ifTrue: |
2019 [ |
2026 [ |
11632 ! ! |
11639 ! ! |
11633 |
11640 |
11634 !BrowserView class methodsFor:'documentation'! |
11641 !BrowserView class methodsFor:'documentation'! |
11635 |
11642 |
11636 version |
11643 version |
11637 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.405 1998-04-28 15:41:49 cg Exp $' |
11644 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.406 1998-05-12 14:53:30 tz Exp $' |
11638 ! ! |
11645 ! ! |
11639 BrowserView initialize! |
11646 BrowserView initialize! |