equal
deleted
inserted
replaced
968 steppedContext isNil ifTrue:[ |
968 steppedContext isNil ifTrue:[ |
969 " |
969 " |
970 preselect a more interesting context, (where halt/raise was ...) |
970 preselect a more interesting context, (where halt/raise was ...) |
971 " |
971 " |
972 selection := self class interestingContextIndexFrom:aContext. |
972 selection := self class interestingContextIndexFrom:aContext. |
|
973 selection := selection min:(contextArray size). |
973 ] ifFalse:[ |
974 ] ifFalse:[ |
974 " |
975 " |
975 if we came here by a big-step, show the method where we are |
976 if we came here by a big-step, show the method where we are |
976 " |
977 " |
977 con1 == steppedContext ifTrue:[ |
978 con1 == steppedContext ifTrue:[ |
1306 self cacheMyself. |
1307 self cacheMyself. |
1307 ] |
1308 ] |
1308 |
1309 |
1309 "Modified: / 17.4.1997 / 13:01:32 / stefan" |
1310 "Modified: / 17.4.1997 / 13:01:32 / stefan" |
1310 "Created: / 30.10.1997 / 21:08:18 / cg" |
1311 "Created: / 30.10.1997 / 21:08:18 / cg" |
1311 "Modified: / 29.7.1998 / 15:05:37 / cg" |
|
1312 "Modified: / 13.10.1998 / 19:56:59 / ps" |
1312 "Modified: / 13.10.1998 / 19:56:59 / ps" |
|
1313 "Modified: / 16.11.2001 / 15:59:32 / cg" |
1313 ! |
1314 ! |
1314 |
1315 |
1315 openOn:aProcess |
1316 openOn:aProcess |
1316 "enter the debugger on a process - |
1317 "enter the debugger on a process - |
1317 in this case, we are just inspecting the context chain of the process, |
1318 in this case, we are just inspecting the context chain of the process, |
4730 |con homeContext sel method code canAccept |
4731 |con homeContext sel method code canAccept |
4731 implementorClass lineNrInMethod rec m line |
4732 implementorClass lineNrInMethod rec m line |
4732 sender selSender tryVars possibleBlocks errMsg |
4733 sender selSender tryVars possibleBlocks errMsg |
4733 codeSet highlighter evaluatorClass |
4734 codeSet highlighter evaluatorClass |
4734 canDefine| |
4735 canDefine| |
|
4736 |
|
4737 lineNr > contextArray size ifTrue:[ thisContext fullPrintAll ]. |
4735 |
4738 |
4736 canDefine := false. |
4739 canDefine := false. |
4737 currentMethod := nil. |
4740 currentMethod := nil. |
4738 |
4741 |
4739 contextArray notNil ifTrue:[ |
4742 contextArray notNil ifTrue:[ |
5070 enable/disable some menu items |
5073 enable/disable some menu items |
5071 " |
5074 " |
5072 self updateMenuItems |
5075 self updateMenuItems |
5073 |
5076 |
5074 "Created: / 14.8.1997 / 20:15:00 / cg" |
5077 "Created: / 14.8.1997 / 20:15:00 / cg" |
5075 "Modified: / 16.11.2001 / 13:49:06 / cg" |
5078 "Modified: / 16.11.2001 / 15:54:49 / cg" |
5076 ! |
5079 ! |
5077 |
5080 |
5078 updateMenuItems |
5081 updateMenuItems |
5079 |m mthd cls mCls rCls| |
5082 |m mthd cls mCls rCls| |
5080 |
5083 |
5121 ! ! |
5124 ! ! |
5122 |
5125 |
5123 !DebugView class methodsFor:'documentation'! |
5126 !DebugView class methodsFor:'documentation'! |
5124 |
5127 |
5125 version |
5128 version |
5126 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.293 2001-11-16 13:23:06 cg Exp $' |
5129 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.294 2001-11-16 15:12:10 cg Exp $' |
5127 ! ! |
5130 ! ! |
5128 DebugView initialize! |
5131 DebugView initialize! |