equal
deleted
inserted
replaced
4202 |
4202 |
4203 canShowMore |
4203 canShowMore |
4204 ^ canShowMore |
4204 ^ canShowMore |
4205 ! |
4205 ! |
4206 |
4206 |
|
4207 contextListEntryFor:aContext |
|
4208 |s| |
|
4209 |
|
4210 aContext selector == #doIt ifTrue:[ |
|
4211 aContext receiver isNil ifTrue:[ |
|
4212 ^ 'doIt' asText allBold |
|
4213 ] |
|
4214 ]. |
|
4215 |
|
4216 s := Text new writeStream. |
|
4217 aContext printOn:s. |
|
4218 ^ s contents |
|
4219 |
|
4220 "Created: / 21-05-2007 / 13:30:24 / cg" |
|
4221 ! |
|
4222 |
4207 exclusive:aBoolean |
4223 exclusive:aBoolean |
4208 exclusive := aBoolean |
4224 exclusive := aBoolean |
4209 ! |
4225 ! |
4210 |
4226 |
4211 explainSelection |
4227 explainSelection |
4542 contextArray add:con. |
4558 contextArray add:con. |
4543 |
4559 |
4544 (MoreDebuggingDetail == true) ifTrue:[ |
4560 (MoreDebuggingDetail == true) ifTrue:[ |
4545 nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString). |
4561 nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString). |
4546 ] ifFalse:[ |
4562 ] ifFalse:[ |
4547 Error handle:[:ex | nm := '???' ] do:[nm := con printString]. |
4563 Error |
|
4564 handle:[:ex | nm := '???' ] |
|
4565 do:[ |
|
4566 nm := self contextListEntryFor:con. |
|
4567 ]. |
4548 ]. |
4568 ]. |
4549 text add:nm. |
4569 text add:nm. |
4550 count := count + 1. |
4570 count := count + 1. |
4551 "/ ]. |
4571 "/ ]. |
4552 ]. |
4572 ]. |
4578 and:[(self setOfHiddenCallingSelectors includes:h selector) |
4598 and:[(self setOfHiddenCallingSelectors includes:h selector) |
4579 and:[h method who isNil]]]) ifTrue:[ |
4599 and:[h method who isNil]]]) ifTrue:[ |
4580 calledContext := con. |
4600 calledContext := con. |
4581 con := con sender. |
4601 con := con sender. |
4582 text removeLast. |
4602 text removeLast. |
4583 text add:(con methodHome printString). |
4603 |
|
4604 text add:(self contextListEntryFor:con methodHome). |
4584 ]. |
4605 ]. |
4585 h := nil. "/ never keep refs to contexts unless you really need them ... |
4606 h := nil. "/ never keep refs to contexts unless you really need them ... |
4586 ]. |
4607 ]. |
4587 |
4608 |
4588 "/ with dense backtrace, dont show below the doIt |
4609 "/ with dense backtrace, dont show below the doIt |
4647 m disableAll:#(addBreakpoint removeBreakpoint browseImplementors browseSenders browseReceiversClass). |
4668 m disableAll:#(addBreakpoint removeBreakpoint browseImplementors browseSenders browseReceiversClass). |
4648 ]. |
4669 ]. |
4649 self updateMenuItems. |
4670 self updateMenuItems. |
4650 ^ true |
4671 ^ true |
4651 |
4672 |
4652 "Created: / 14.12.1995 / 19:10:31 / cg" |
4673 "Created: / 14-12-1995 / 19:10:31 / cg" |
4653 "Modified: / 17.11.2001 / 22:29:19 / cg" |
4674 "Modified: / 21-05-2007 / 13:31:02 / cg" |
4654 ! |
4675 ! |
4655 |
4676 |
4656 setContextSkippingInterruptContexts:aContext |
4677 setContextSkippingInterruptContexts:aContext |
4657 "show calling chain from aContext in the walk-back listview. |
4678 "show calling chain from aContext in the walk-back listview. |
4658 Ignore any non-interesting interrupt-context." |
4679 Ignore any non-interesting interrupt-context." |
6017 ! ! |
6038 ! ! |
6018 |
6039 |
6019 !DebugView class methodsFor:'documentation'! |
6040 !DebugView class methodsFor:'documentation'! |
6020 |
6041 |
6021 version |
6042 version |
6022 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.415 2007-05-15 11:41:23 cg Exp $' |
6043 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.416 2007-05-21 12:21:20 cg Exp $' |
6023 ! ! |
6044 ! ! |
6024 |
6045 |
6025 DebugView initialize! |
6046 DebugView initialize! |