2283 contextArray notNil ifTrue:[ |
2283 contextArray notNil ifTrue:[ |
2284 nChainShown := nChainShown * 2. |
2284 nChainShown := nChainShown * 2. |
2285 self redisplayBacktrace. |
2285 self redisplayBacktrace. |
2286 ] |
2286 ] |
2287 |
2287 |
2288 "Modified: 10.1.1997 / 21:37:04 / cg" |
2288 "Modified: 12.1.1997 / 01:24:26 / cg" |
2289 ! |
2289 ! |
2290 |
2290 |
2291 showVerboseBacktrace |
2291 showVerboseBacktrace |
2292 verboseBacktrace := true. |
2292 verboseBacktrace := true. |
2293 contextView middleButtonMenu labelAt:#showVerboseBacktrace put:(resources string:'dense stack backtrace'). |
2293 contextView middleButtonMenu labelAt:#showVerboseBacktrace put:(resources string:'dense stack backtrace'). |
2391 |
2391 |
2392 redisplayBacktrace |
2392 redisplayBacktrace |
2393 |oldSelection oldContext con idx| |
2393 |oldSelection oldContext con idx| |
2394 |
2394 |
2395 contextArray notNil ifTrue:[ |
2395 contextArray notNil ifTrue:[ |
2396 oldSelection := contextView selection. |
2396 self withWaitCursorDo:[ |
2397 oldSelection notNil ifTrue:[ |
2397 oldSelection := contextView selection. |
2398 oldContext := contextArray at:oldSelection ifAbsent:nil. |
2398 oldSelection notNil ifTrue:[ |
2399 ]. |
2399 oldContext := contextArray at:oldSelection ifAbsent:nil. |
2400 |
2400 ]. |
2401 con := firstContext. |
2401 |
2402 "/ con := contextArray at:1. |
2402 con := firstContext. |
2403 contextArray at:1 put:nil. |
2403 "/ con := contextArray at:1. |
2404 self setContext:con. |
2404 contextArray at:1 put:nil. |
2405 |
2405 self setContext:con. |
2406 oldContext isNil ifTrue:[ |
2406 |
2407 idx := oldSelection |
2407 oldContext isNil ifTrue:[ |
2408 ] ifFalse:[ |
2408 idx := oldSelection |
2409 idx := contextArray identityIndexOf:oldContext ifAbsent:nil. |
2409 ] ifFalse:[ |
2410 ]. |
2410 idx := contextArray identityIndexOf:oldContext ifAbsent:nil. |
2411 contextView setSelection:idx. |
2411 ]. |
2412 idx notNil ifTrue:[ |
2412 contextView setSelection:idx. |
2413 self showSelection:idx |
2413 idx notNil ifTrue:[ |
|
2414 self showSelection:idx |
|
2415 ] |
2414 ] |
2416 ] |
2415 ] |
2417 ] |
2416 |
2418 |
2417 "Created: 10.1.1997 / 21:36:46 / cg" |
2419 "Created: 10.1.1997 / 21:36:46 / cg" |
2418 "Modified: 11.1.1997 / 13:47:11 / cg" |
2420 "Modified: 12.1.1997 / 01:24:17 / cg" |
2419 ! |
2421 ! |
2420 |
2422 |
2421 setContext:aContext |
2423 setContext:aContext |
2422 "show calling chain from aContext in the walk-back listview" |
2424 "show calling chain from aContext in the walk-back listview" |
2423 |
2425 |