--- a/Signal.st Tue Mar 25 12:34:57 1997 +0100
+++ b/Signal.st Tue Mar 25 12:42:00 1997 +0100
@@ -284,22 +284,30 @@
errorString isNil ifTrue:[
t := notifierString
] ifFalse:[
- t := errorString
+ t := errorString.
+ (errorString endsWith:Character space) ifTrue:[
+ t := errorString , notifierString
+ ] ifFalse:[
+ (errorString startsWith:Character space) ifTrue:[
+ t := notifierString , errorString
+ ]
+ ].
].
-
- aParameter isNil ifTrue:[
- ^ t
- ].
+ ^ t.
- (t startsWith:' ') ifTrue:[
- ^ aParameter printString , t
- ].
- (t endsWith:' ') ifTrue:[
- ^ t , aParameter printString
- ].
- ^ t
+"/ aParameter isNil ifTrue:[
+"/ ^ t
+"/ ].
+"/
+"/ (t startsWith:' ') ifTrue:[
+"/ ^ aParameter printString , t
+"/ ].
+"/ (t endsWith:' ') ifTrue:[
+"/ ^ t , aParameter printString
+"/ ].
+"/ ^ t
- "Modified: 9.5.1996 / 15:18:58 / cg"
+ "Modified: 25.3.1997 / 12:12:37 / cg"
! !
!Signal methodsFor:'queries'!
@@ -693,6 +701,6 @@
!Signal class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.40 1997-01-28 00:01:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.41 1997-03-25 11:42:00 cg Exp $'
! !
Signal initialize!