equal
deleted
inserted
replaced
7440 |
7440 |
7441 |con homeContext sel method code canAccept |
7441 |con homeContext sel method code canAccept |
7442 implementorClass lineNrInMethod rec m line |
7442 implementorClass lineNrInMethod rec m line |
7443 sender selSender tryVars possibleBlocks errMsg |
7443 sender selSender tryVars possibleBlocks errMsg |
7444 codeSet highlighter evaluatorClass |
7444 codeSet highlighter evaluatorClass |
7445 canDefine callee searchClass originalMethod| |
7445 canDefine callee searchClass originalMethod cannotAcceptDueToOutdatedClass| |
7446 |
7446 |
7447 canDefine := false. |
7447 canDefine := cannotAcceptDueToOutdatedClass := false. |
7448 self setCurrentMethod:nil. |
7448 self setCurrentMethod:nil. |
7449 |
7449 |
7450 contextArray notNil ifTrue:[ |
7450 contextArray notNil ifTrue:[ |
7451 lineNr <= contextArray size ifTrue:[ |
7451 lineNr <= contextArray size ifTrue:[ |
7452 con := contextArray at:lineNr. |
7452 con := contextArray at:lineNr. |
7551 sel notNil ifTrue:[ |
7551 sel notNil ifTrue:[ |
7552 canAccept := true. |
7552 canAccept := true. |
7553 |
7553 |
7554 implementorClass := homeContext methodClass. |
7554 implementorClass := homeContext methodClass. |
7555 implementorClass isNil ifTrue:[ |
7555 implementorClass isNil ifTrue:[ |
7556 self halt. |
|
7557 homeContext method notNil ifTrue:[ |
7556 homeContext method notNil ifTrue:[ |
7558 WrappedMethod allInstancesDo:[:wrapped | |
7557 WrappedMethod allInstancesDo:[:wrapped | |
7559 wrapped originalMethod == homeContext method ifTrue:[ |
7558 wrapped originalMethod == homeContext method ifTrue:[ |
7560 implementorClass := wrapped mclass |
7559 implementorClass := wrapped mclass |
7561 ] |
7560 ] |
7562 ] |
7561 ]. |
|
7562 implementorClass isNil ifTrue:[ |
|
7563 (homeContext searchClass notNil |
|
7564 and:[homeContext searchClass isObsolete]) ifTrue:[ |
|
7565 cannotAcceptDueToOutdatedClass := true. |
|
7566 ] |
|
7567 ]. |
7563 ]. |
7568 ]. |
7564 ]. |
7569 ]. |
7565 implementorClass isNil ifTrue:[ |
7570 implementorClass isNil ifTrue:[ |
7566 Error handle:[:ex | |
7571 Error handle:[:ex | |
7567 "/ not covered by Error, anyway |
7572 "/ not covered by Error, anyway |
7748 ] |
7753 ] |
7749 ] |
7754 ] |
7750 ]. |
7755 ]. |
7751 |
7756 |
7752 "/ code ~= (codeView contents) ifTrue:[ |
7757 "/ code ~= (codeView contents) ifTrue:[ |
|
7758 cannotAcceptDueToOutdatedClass ifTrue:[ |
|
7759 codeView setContents:(('Obsolete code (outdated due to class change). Use Browser.' colorizeAllWith:Color red),Character cr,Character cr,code asString). |
|
7760 ] ifFalse:[ |
7753 codeView setContents:code. |
7761 codeView setContents:code. |
|
7762 ]. |
7754 "/ ]. |
7763 "/ ]. |
7755 ]. |
7764 ]. |
7756 (lineNrInMethod notNil |
7765 (lineNrInMethod notNil |
7757 and:[lineNrInMethod ~~ 0 |
7766 and:[lineNrInMethod ~~ 0 |
7758 and:[lineNrInMethod <= codeView list size]]) ifTrue:[ |
7767 and:[lineNrInMethod <= codeView list size]]) ifTrue:[ |
8104 ! ! |
8113 ! ! |
8105 |
8114 |
8106 !DebugView class methodsFor:'documentation'! |
8115 !DebugView class methodsFor:'documentation'! |
8107 |
8116 |
8108 version |
8117 version |
8109 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.565 2012-10-23 17:18:40 cg Exp $' |
8118 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.566 2012-10-23 17:41:08 cg Exp $' |
8110 ! |
8119 ! |
8111 |
8120 |
8112 version_CVS |
8121 version_CVS |
8113 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.565 2012-10-23 17:18:40 cg Exp $' |
8122 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.566 2012-10-23 17:41:08 cg Exp $' |
8114 ! |
8123 ! |
8115 |
8124 |
8116 version_SVN |
8125 version_SVN |
8117 ^ '§Id: DebugView.st 7818 2011-08-18 11:42:39Z vranyj1 §' |
8126 ^ '§Id: DebugView.st 7818 2011-08-18 11:42:39Z vranyj1 §' |
8118 ! ! |
8127 ! ! |