--- a/Signal.st Mon Aug 31 14:09:20 2015 +0100
+++ b/Signal.st Wed Sep 02 06:45:47 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
@@ -11,6 +13,8 @@
"
"{ Package: 'stx:libbasic' }"
+"{ NameSpace: Smalltalk }"
+
Object subclass:#Signal
instanceVariableNames:'mayProceed notifierString nameClass message handlerBlock parent'
classVariableNames:''
@@ -195,7 +199,10 @@
creator
"return the creator of the exception (for exception protocol compatibilty).
For class based exceptions, that is the exception class;
- for signals, that is the signal itself."
+ for signals, that is the signal itself.
+ This used to be called 'signal' in earlier versions,
+ but due to the conflict with VSE, Squeak and others,
+ where 'signal' means 'raise', 'signal' was obsoleted by this method."
^ self
!
@@ -988,9 +995,10 @@
!Signal class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.115 2014-06-10 10:20:23 cg Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.115 2014-06-10 10:20:23 cg Exp $'
+ ^ '$Header$'
! !
+