equal
deleted
inserted
replaced
1735 InStepInterrupt := nil. |
1735 InStepInterrupt := nil. |
1736 |
1736 |
1737 ^ nil |
1737 ^ nil |
1738 ]. |
1738 ]. |
1739 |
1739 |
1740 where methodHome == steppedContext methodHome ifTrue:[ |
1740 (steppedContext notNil and:[ |
|
1741 where methodHome == steppedContext methodHome]) ifTrue:[ |
1741 inBlock := true. |
1742 inBlock := true. |
1742 ]. |
1743 ]. |
1743 |
1744 |
1744 anyStepBlocks ifFalse:[ |
1745 anyStepBlocks ifFalse:[ |
1745 inBlock ifFalse:[ |
1746 inBlock ifFalse:[ |
1944 ] |
1945 ] |
1945 ]. |
1946 ]. |
1946 self enter:(thisContext sender sender) select:initiallyShown |
1947 self enter:(thisContext sender sender) select:initiallyShown |
1947 |
1948 |
1948 "Created: / 14.10.1996 / 12:53:39 / cg" |
1949 "Created: / 14.10.1996 / 12:53:39 / cg" |
1949 "Modified: / 30.10.1997 / 22:13:35 / cg" |
1950 "Modified: / 3.4.1998 / 21:09:16 / cg" |
1950 ! ! |
1951 ! ! |
1951 |
1952 |
1952 !DebugView methodsFor:'menu / button actions'! |
1953 !DebugView methodsFor:'menu / button actions'! |
1953 |
1954 |
1954 autoUpdateOff |
1955 autoUpdateOff |
3785 ! ! |
3786 ! ! |
3786 |
3787 |
3787 !DebugView class methodsFor:'documentation'! |
3788 !DebugView class methodsFor:'documentation'! |
3788 |
3789 |
3789 version |
3790 version |
3790 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.193 1998-03-07 13:44:55 cg Exp $' |
3791 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.194 1998-04-07 13:11:37 cg Exp $' |
3791 ! ! |
3792 ! ! |
3792 DebugView initialize! |
3793 DebugView initialize! |