equal
deleted
inserted
replaced
624 "VW compatibility" |
624 "VW compatibility" |
625 |
625 |
626 "/ kept in libbasic package, because it is used by the refactory code |
626 "/ kept in libbasic package, because it is used by the refactory code |
627 self errorKeyNotFound:aKey. |
627 self errorKeyNotFound:aKey. |
628 ! ! |
628 ! ! |
|
629 |
629 |
630 |
630 |
631 |
631 !Object methodsFor:'accessing'! |
632 !Object methodsFor:'accessing'! |
632 |
633 |
633 _at:index |
634 _at:index |
10749 AbortAllOperationRequest isHandled ifTrue:[ |
10750 AbortAllOperationRequest isHandled ifTrue:[ |
10750 boxLabels := boxLabels , #('Abort All'). |
10751 boxLabels := boxLabels , #('Abort All'). |
10751 boxValues := boxValues , #(#abortAll). |
10752 boxValues := boxValues , #(#abortAll). |
10752 ]. |
10753 ]. |
10753 true "allowDebug" ifTrue:[ |
10754 true "allowDebug" ifTrue:[ |
10754 boxLabels := boxLabels , #('Copy Trace and Abort'). |
10755 boxLabels := boxLabels , #('Copy Error Details into Clipboard and Abort'). |
10755 boxValues := boxValues , #(#copyAndAbort). |
10756 boxValues := boxValues , #(#copyAndAbort). |
10756 ]. |
10757 ]. |
10757 ] ifFalse:[ |
10758 ] ifFalse:[ |
10758 mayProceed "and:[allowDebug]" ifTrue:[ |
10759 mayProceed "and:[allowDebug]" ifTrue:[ |
10759 boxLabels := boxLabels , #('Copy Trace and Proceed'). |
10760 boxLabels := boxLabels , #('Copy Error Details into Clipboard and Proceed'). |
10760 boxValues := boxValues , #(#copyAndProceed). |
10761 boxValues := boxValues , #(#copyAndProceed). |
10761 ]. |
10762 ]. |
10762 ]. |
10763 ]. |
10763 |
10764 |
10764 (allowDebug and:[Debugger notNil]) ifTrue:[ |
10765 (allowDebug and:[Debugger notNil]) ifTrue:[ |
10810 " |
10811 " |
10811 |
10812 |
10812 "Created: / 17-08-1998 / 10:09:26 / cg" |
10813 "Created: / 17-08-1998 / 10:09:26 / cg" |
10813 "Modified: / 08-08-2011 / 11:26:17 / sr" |
10814 "Modified: / 08-08-2011 / 11:26:17 / sr" |
10814 "Modified: / 05-12-2011 / 03:50:59 / cg" |
10815 "Modified: / 05-12-2011 / 03:50:59 / cg" |
|
10816 "Modified: / 06-11-2018 / 15:33:18 / Stefan Vogel" |
10815 ! |
10817 ! |
10816 |
10818 |
10817 information:aString |
10819 information:aString |
10818 "launch an InfoBox, telling user something. |
10820 "launch an InfoBox, telling user something. |
10819 These info-boxes can be suppressed by handling |
10821 These info-boxes can be suppressed by handling |