Notification.st
changeset 13674 89734bcfdb32
parent 13363 070b1c3087bc
child 14948 c792f4a1ceea
child 18011 deb0c3355881
equal deleted inserted replaced
13673:744194003e48 13674:89734bcfdb32
    10  hereby transferred.
    10  hereby transferred.
    11 "
    11 "
    12 "{ Package: 'stx:libbasic' }"
    12 "{ Package: 'stx:libbasic' }"
    13 
    13 
    14 GenericException subclass:#Notification
    14 GenericException subclass:#Notification
    15 	instanceVariableNames:''
    15 	instanceVariableNames:'tag'
    16 	classVariableNames:''
    16 	classVariableNames:''
    17 	poolDictionaries:''
    17 	poolDictionaries:''
    18 	category:'Kernel-Exceptions'
    18 	category:'Kernel-Exceptions'
    19 !
    19 !
    20 
    20 
   273     ^ self query
   273     ^ self query
   274 
   274 
   275     "Created: / 25.7.1999 / 23:25:59 / stefan"
   275     "Created: / 25.7.1999 / 23:25:59 / stefan"
   276 ! !
   276 ! !
   277 
   277 
       
   278 !Notification methodsFor:'accessing'!
       
   279 
       
   280 tag
       
   281     "for squeak compatibility"
       
   282 
       
   283     ^ tag
       
   284 
       
   285     "Modified (comment): / 11-09-2011 / 16:40:54 / cg"
       
   286 !
       
   287 
       
   288 tag:aSzmbol
       
   289     "for squeak compatibility"
       
   290 
       
   291     tag := aSzmbol.
       
   292 
       
   293     "Modified (format): / 11-09-2011 / 16:41:01 / cg"
       
   294 ! !
       
   295 
   278 !Notification methodsFor:'default actions'!
   296 !Notification methodsFor:'default actions'!
   279 
   297 
   280 defaultAction
   298 defaultAction
   281     "the default action is to return the default value.
   299     "the default action is to return the default value.
   282      Subclasses may redefine this"
   300      Subclasses may redefine this"
   338 ! !
   356 ! !
   339 
   357 
   340 !Notification class methodsFor:'documentation'!
   358 !Notification class methodsFor:'documentation'!
   341 
   359 
   342 version
   360 version
   343     ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.26 2011-05-09 08:22:54 stefan Exp $'
   361     ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.27 2011-09-11 14:41:10 cg Exp $'
   344 !
   362 !
   345 
   363 
   346 version_CVS
   364 version_CVS
   347     ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.26 2011-05-09 08:22:54 stefan Exp $'
   365     ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.27 2011-09-11 14:41:10 cg Exp $'
   348 ! !
   366 ! !
   349 
   367 
   350 Notification initialize!
   368 Notification initialize!