equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
5327 "/ |
5329 "/ |
5328 [ |
5330 [ |
5329 nextRcvr := nextCon receiver. |
5331 nextRcvr := nextCon receiver. |
5330 (nextRcvr == dialog) |
5332 (nextRcvr == dialog) |
5331 or:[ nextRcvr == dialog class |
5333 or:[ nextRcvr == dialog class |
5332 or:[ nextRcvr == DialogBox |
5334 or:[ ((nextCon selector ? '') startsWith:'open') |
|
5335 or:[ (nextRcvr isBehavior and:[nextRcvr includesBehavior:FileDialog]) |
|
5336 or:[ (nextRcvr isBehavior and:[nextRcvr includesBehavior:Dialog]) |
5333 or:[ nextRcvr class == UserConfirmation |
5337 or:[ nextRcvr class == UserConfirmation |
5334 or:[ nextRcvr == UserConfirmation |
5338 or:[ nextRcvr == UserConfirmation |
5335 or:[ nextCon method == (Object compiledMethodAt:#confirm:) ]]]]] |
5339 or:[ nextCon method == (Object compiledMethodAt:#confirm:) ]]]]]]] |
5336 ] whileTrue:[ |
5340 ] whileTrue:[ |
5337 (nextCon isBlockContext and:[ nextCon methodHome notNil]) ifTrue:[ |
5341 (nextCon isBlockContext and:[ nextCon methodHome notNil]) ifTrue:[ |
5338 nextCon := nextCon methodHome |
5342 nextCon := nextCon methodHome |
5339 ]. |
5343 ]. |
5340 nextCon := nextCon sender. |
5344 nextCon := nextCon sender. |
9792 |
9796 |
9793 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'printing'! |
9797 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'printing'! |
9794 |
9798 |
9795 printConditionOn:aStream |
9799 printConditionOn:aStream |
9796 ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[ |
9800 ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[ |
9797 aStream nextPutAll:(' if called from %1 » %2' |
9801 aStream nextPutAll:(' if called from %1 » %2' |
9798 bindWith:ignoredSendingClassAndSelectors first first |
9802 bindWith:ignoredSendingClassAndSelectors first first |
9799 with:ignoredSendingClassAndSelectors first second). |
9803 with:ignoredSendingClassAndSelectors first second). |
9800 ^ self. |
9804 ^ self. |
9801 ]. |
9805 ]. |
9802 ignoredProcesses notEmptyOrNil ifTrue:[ |
9806 ignoredProcesses notEmptyOrNil ifTrue:[ |