Signal.st
branchjv
changeset 18730 592c4cb8e98e
parent 18120 e3a375d5f6a8
parent 18726 36732bc5400c
child 20131 4118d61ddba0
--- 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$'
 ! !
+