--- a/OldLauncher.st Fri Nov 04 16:29:15 2016 +0100
+++ b/OldLauncher.st Fri Nov 04 16:31:53 2016 +0100
@@ -643,11 +643,11 @@
super realize.
"
- catch errors - dont want a debugger here ...
+ catch errors - don't want a debugger here ...
(this must be done here, since #initialize runs under another process)
"
Processor activeProcess emergencySignalHandler:[:ex |
- |box|
+ |box|
"/ old:
"/ box := YesNoBox title:('Error while launching ...\' , ex errorString , '\\debug ?') withCRs.
@@ -660,25 +660,25 @@
"/ withMessage:ex errorString].
"/ new:
- box := OptionBox
- title:('Error while launching ...\' , ex errorString , '\\') withCRs
- numberOfOptions:3.
- box label:'Warning'.
- "
- icon should be whatever WarnBoxes use as icon
- "
- box form:(WarningBox new formLabel label).
- box buttonTitles:(resources array:#('abort' 'continue' 'debug')).
- box actions:(Array with:[AbortSignal raise]
- with:[ex resume]
- with:[Debugger
- enter:ex suspendedContext
- withMessage:ex errorString.
- ex resume.]
- ).
+ box := OptionBox
+ title:('Error while launching ...\' , ex errorString , '\\') withCRs
+ numberOfOptions:3.
+ box label:'Warning'.
+ "
+ icon should be whatever WarnBoxes use as icon
+ "
+ box form:(WarningBox new formLabel label).
+ box buttonTitles:(resources array:#('abort' 'continue' 'debug')).
+ box actions:(Array with:[AbortSignal raise]
+ with:[ex resume]
+ with:[Debugger
+ enter:ex suspendedContext
+ withMessage:ex errorString.
+ ex resume.]
+ ).
- box showAtPointer.
- AbortSignal raise.
+ box showAtPointer.
+ AbortSignal raise.
].
!
@@ -1055,10 +1055,10 @@
!OldLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.44 2015-01-31 13:25:56 cg Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.44 2015-01-31 13:25:56 cg Exp $'
+ ^ '$Header$'
! !