1 "

     2  COPYRIGHT (c) 1993 by Claus Gittinger

     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 InfoBox subclass:#WarningBox

    14        instanceVariableNames:''

    15        classVariableNames:'WarnBitmap'

    16        poolDictionaries:''

    17        category:'Views-Interactors'

    18 !

    19 

    20 WarningBox comment:'

    21 

    22 COPYRIGHT (c) 1993 by Claus Gittinger

    23               All Rights Reserved

    24 

    25 this class implements a pop-up box to show an information message

    26 

    27 %W% %E%

    28 written Summer 93 by claus

    29 '!

    30 

    31 !WarningBox methodsFor:'initialization'!

    32 

    33 initialize

    34     WarnBitmap isNil ifTrue:[

    35         WarnBitmap := Form fromFile:'Warning.xbm' resolution:100 on:device

    36     ].

    37 

    38     super initialize.

    39 !

    40 

    41 initFormBitmap

    42     formLabel form:WarnBitmap

    43 ! !

    44 

    45 !WarningBox methodsFor:'realization'!

    46 

    47 show

    48     "added bell to wake up user"

    49 

    50     device beep.

    51     super show

    52 ! !