--- 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!