8706 ! |
8708 ! |
8707 |
8709 |
8708 updateContextInfoFor:aContext |
8710 updateContextInfoFor:aContext |
8709 "additional info as-per selected context; |
8711 "additional info as-per selected context; |
8710 for now: |
8712 for now: |
8711 update:with:from: - show who was responsible |
8713 update:with:from: - show who was responsible |
8712 " |
8714 " |
8713 |
8715 |
8714 |whatChanged changedObject receiver| |
8716 |whatChanged changedObject receiver| |
8715 |
8717 |
8716 aContext selector == #'update:with:from:' ifTrue:[ |
8718 aContext selector == #'update:with:from:' ifTrue:[ |
8717 receiver := aContext receiver. |
8719 receiver := aContext receiver. |
8718 whatChanged := aContext argAt:1. |
8720 whatChanged := aContext argAt:1. |
8719 changedObject := aContext argAt:3. |
8721 changedObject := aContext argAt:3. |
8720 |
8722 |
8721 changedObject isBehavior ifTrue:[ |
8723 changedObject isBehavior ifTrue:[ |
8722 contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',changedObject name allBold). |
8724 contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',changedObject name allBold). |
8723 ^ self |
8725 ^ self |
8724 ]. |
8726 ]. |
8725 |
8727 |
8726 receiver class allInstanceVariableNames keysAndValuesDo:[:i :nm | |
8728 receiver class allInstanceVariableNames keysAndValuesDo:[:i :nm | |
8727 (receiver instVarAt:i) == changedObject ifTrue:[ |
8729 |val| |
8728 contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',nm allBold). |
8730 |
8729 ^ self |
8731 IsDebuggingQuery answer:true do:[ |
8730 ] |
8732 val := (receiver instVarAt:i). |
8731 ]. |
8733 ]. |
8732 |
8734 val == changedObject ifTrue:[ |
8733 (receiver isKindOf:ApplicationModel) ifTrue:[ |
8735 contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',nm allBold). |
8734 receiver builder notNil ifTrue:[ |
8736 ^ self |
8735 (receiver builder bindings ? #()) keysAndValuesDo:[:eachAspect :eachValue | |
8737 ] |
8736 eachValue == changedObject ifTrue:[ |
8738 ]. |
8737 contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by aspect ',eachAspect allBold). |
8739 |
8738 ^ self |
8740 (receiver isKindOf:ApplicationModel) ifTrue:[ |
8739 ] |
8741 receiver builder notNil ifTrue:[ |
8740 ] |
8742 (receiver builder bindings ? #()) keysAndValuesDo:[:eachAspect :eachValue | |
8741 ] |
8743 eachValue == changedObject ifTrue:[ |
8742 ]. |
8744 contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by aspect ',eachAspect allBold). |
8743 |
8745 ^ self |
8744 contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',changedObject classNameWithArticle allBold). |
8746 ] |
8745 ^self. |
8747 ] |
|
8748 ] |
|
8749 ]. |
|
8750 |
|
8751 contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',changedObject classNameWithArticle allBold). |
|
8752 ^self. |
8746 ]. |
8753 ]. |
8747 contextInfoLabel label:nil. |
8754 contextInfoLabel label:nil. |
8748 ! |
8755 ! |
8749 |
8756 |
8750 updateForContext:lineNr |
8757 updateForContext:lineNr |
9530 ! ! |
9537 ! ! |
9531 |
9538 |
9532 !DebugView class methodsFor:'documentation'! |
9539 !DebugView class methodsFor:'documentation'! |
9533 |
9540 |
9534 version |
9541 version |
9535 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.689 2015-03-02 13:39:16 cg Exp $' |
9542 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.690 2015-05-21 10:47:18 cg Exp $' |
9536 ! |
9543 ! |
9537 |
9544 |
9538 version_CVS |
9545 version_CVS |
9539 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.689 2015-03-02 13:39:16 cg Exp $' |
9546 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.690 2015-05-21 10:47:18 cg Exp $' |
9540 ! |
9547 ! |
9541 |
9548 |
9542 version_SVN |
9549 version_SVN |
9543 ^ '$Id: DebugView.st,v 1.689 2015-03-02 13:39:16 cg Exp $' |
9550 ^ '$Id: DebugView.st,v 1.690 2015-05-21 10:47:18 cg Exp $' |
9544 ! ! |
9551 ! ! |
9545 |
9552 |
9546 |
9553 |
9547 DebugView initialize! |
9554 DebugView initialize! |