1 "

     2  COPYRIGHT (c) 2003 by eXept Software AG

     3               All Rights Reserved

     4 

     5  This software is furnished under a license and may be used

     6  only in accordance with the terms of that license and with the

     7  inclusion of the above copyright notice.   This software may not

     8  be provided or otherwise made available to, or used by, any

     9  other person.  No title to or ownership of the software is

    10  hereby transferred.

    11 "

    12 

    13 "{ Package: 'stx:libbasic' }"

    14 

    15 UserNotification subclass:#ActivityNotification

    16 	instanceVariableNames:''

    17 	classVariableNames:''

    18 	poolDictionaries:''

    19 	category:'Kernel-Exceptions'

    20 !

    21 

    22 !ActivityNotification class methodsFor:'documentation'!

    23 

    24 copyright

    25 "

    26  COPYRIGHT (c) 2003 by eXept Software AG

    27               All Rights Reserved

    28 

    29  This software is furnished under a license and may be used

    30  only in accordance with the terms of that license and with the

    31  inclusion of the above copyright notice.   This software may not

    32  be provided or otherwise made available to, or used by, any

    33  other person.  No title to or ownership of the software is

    34  hereby transferred.

    35 "

    36 !

    37 

    38 documentation

    39 "    

    40     ActivityNotification can be raised from deeply nested methods, which are going to perform

    41     some long-time activity.

    42 

    43     If there is a handler for the ActivityNotification, that one is callesd,

    44     passing the argument. The handler should show this message whereever it likes,

    45     and proceed. If there is no handler, ActivityNotification is simply ignored.

    46 

    47     This is very useful to pass busy messages up to some higher level (typically a view)

    48     which likes to display that message in its label or a busy-box.

    49     It could also be put into some logfile or printed on the standard output/error.

    50 

    51     It produces an info box with the message on the screen. 

    52     If no display is available, the message is written 

    53     to the Transcript.

    54 

    55     [see also:]

    56         Signal

    57 "

    58 ! !

    59 

    60 !ActivityNotification class methodsFor:'initialization'!

    61 

    62 initialize

    63 

    64     NotifierString := 'activity'.

    65 

    66     "

    67      self initialize

    68     "

    69 ! !

    70 

    71 !ActivityNotification class methodsFor:'documentation'!

    72 

    73 version

    74     ^ '$Header: /cvs/stx/stx/libbasic/ActivityNotification.st,v 1.1 2004-04-23 11:41:49 stefan Exp $'

    75 ! !

    76 

    77 ActivityNotification initialize!