# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1315752070 -7200
# Node ID 89734bcfdb32f2539ddc99932d4262e302a332f6
# Parent  744194003e4881da51127ca1aeab22959faf5a66
class definition
added:
        #tag
        #tag:

diff -r 744194003e48 -r 89734bcfdb32 Notification.st
--- a/Notification.st	Fri Sep 09 09:17:43 2011 +0200
+++ b/Notification.st	Sun Sep 11 16:41:10 2011 +0200
@@ -12,7 +12,7 @@
 "{ Package: 'stx:libbasic' }"
 
 GenericException subclass:#Notification
-	instanceVariableNames:''
+	instanceVariableNames:'tag'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Kernel-Exceptions'
@@ -275,6 +275,24 @@
     "Created: / 25.7.1999 / 23:25:59 / stefan"
 ! !
 
+!Notification methodsFor:'accessing'!
+
+tag
+    "for squeak compatibility"
+
+    ^ tag
+
+    "Modified (comment): / 11-09-2011 / 16:40:54 / cg"
+!
+
+tag:aSzmbol
+    "for squeak compatibility"
+
+    tag := aSzmbol.
+
+    "Modified (format): / 11-09-2011 / 16:41:01 / cg"
+! !
+
 !Notification methodsFor:'default actions'!
 
 defaultAction
@@ -340,11 +358,11 @@
 !Notification class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.26 2011-05-09 08:22:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.27 2011-09-11 14:41:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.26 2011-05-09 08:22:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.27 2011-09-11 14:41:10 cg Exp $'
 ! !
 
 Notification initialize!