WarningBox.st
author Claus Gittinger <cg@exept.de>
Sat, 11 Nov 1995 17:23:54 +0100
changeset 174 d80a6cc3f9b2
parent 109 0f014b33eba2
child 184 cbc75a3ba885
permissions -rw-r--r--
uff - version methods changed to return stings
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
     1
"
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
     2
 COPYRIGHT (c) 1993 by Claus Gittinger
59
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
     3
	      All Rights Reserved
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
     4
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
     5
 This software is furnished under a license and may be used
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    10
 hereby transferred.
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    11
"
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    12
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    13
InfoBox subclass:#WarningBox
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    14
       instanceVariableNames:''
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    15
       classVariableNames:'WarnBitmap'
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    16
       poolDictionaries:''
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    17
       category:'Views-DialogBoxes'
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    18
!
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    19
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    20
!WarningBox class methodsFor:'documentation'!
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    21
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    22
copyright
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    23
"
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    24
 COPYRIGHT (c) 1993 by Claus Gittinger
59
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    25
	      All Rights Reserved
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    26
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    27
 This software is furnished under a license and may be used
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    28
 only in accordance with the terms of that license and with the
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    29
 inclusion of the above copyright notice.   This software may not
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    30
 be provided or otherwise made available to, or used by, any
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    31
 other person.  No title to or ownership of the software is
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    32
 hereby transferred.
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    33
"
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    34
!
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    35
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    36
version
174
d80a6cc3f9b2 uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 109
diff changeset
    37
    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.10 1995-11-11 16:23:48 cg Exp $'
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    38
!
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    39
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    40
documentation
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    41
"
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    42
    this class implements a pop-up box to show an information message. 
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    43
    WarningBoxes are basically InfoBoxes with a different bitmap-image.
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    44
    (also, they add a beep when popping up)
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    45
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    46
    They are created with:
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    47
59
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    48
	aBox := WarningBox title:'some title'.
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    49
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    50
    and shown with:
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    51
59
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    52
	aBox showAtPointer
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    53
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    54
    The default box shows 'yes' in its button; this can be changed with:
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    55
59
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    56
	aBox okText:'some string'.
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    57
79
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    58
    Since showing warnings is a common action, a convenient method has been
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    59
    added to Object; thus you can use:
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    60
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    61
	self warn:'oops - headcrash'
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    62
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    63
    everywhere in your code.
63
f4eaf04d1eaf *** empty log message ***
claus
parents: 59
diff changeset
    64
"
f4eaf04d1eaf *** empty log message ***
claus
parents: 59
diff changeset
    65
!
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    66
63
f4eaf04d1eaf *** empty log message ***
claus
parents: 59
diff changeset
    67
examples
f4eaf04d1eaf *** empty log message ***
claus
parents: 59
diff changeset
    68
"
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    69
    Examples:
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    70
59
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    71
	|aBox|
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    72
59
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    73
	aBox := WarningBox title:'Press ''OK'' to continue'.
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    74
	aBox okText:'OK'.
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    75
	aBox showAtPointer.
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    76
79
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    77
    since warnboxes are much like infoBoxes, all of look can be changed
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    78
    like described there:
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    79
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    80
	|aBox|
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    81
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    82
	aBox := WarningBox title:'Press ''OK'' to continue'.
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    83
	aBox okText:'yes, continue'.
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    84
	aBox form:(Image fromFile:'bitmaps/SmalltalkX.xbm').
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    85
	aBox showAtPointer.
38
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    86
"
4b9b70b2cc87 2.10.3 pre-final version
claus
parents: 26
diff changeset
    87
! !
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    88
59
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    89
!WarningBox class methodsFor:'styles'!
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    90
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    91
updateStyleCache
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    92
    |img|
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
    93
59
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    94
    img := StyleSheet at:'warningBoxIcon'.
79
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
    95
    img notNil ifTrue:[WarnBitmap := img on:Display].
59
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    96
! !
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    97
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    98
!WarningBox class methodsFor:'icon bitmap'!
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
    99
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
   100
iconBitmap
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
   101
    "return the bitmap shown as icon in my instances"
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
   102
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   103
    WarnBitmap isNil ifTrue:[
109
0f014b33eba2 *** empty log message ***
claus
parents: 107
diff changeset
   104
	WarnBitmap := Image fromFile:'bitmaps/Warning.xbm'.
107
97932154b0fd *** empty log message ***
claus
parents: 79
diff changeset
   105
	WarnBitmap notNil ifTrue:[
97932154b0fd *** empty log message ***
claus
parents: 79
diff changeset
   106
	    WarnBitmap := WarnBitmap on:Display
97932154b0fd *** empty log message ***
claus
parents: 79
diff changeset
   107
	]
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   108
    ].
59
450ce95a72a4 *** empty log message ***
claus
parents: 38
diff changeset
   109
    ^ WarnBitmap
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   110
! !
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   111
79
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
   112
!WarningBox methodsFor:'initialization'!
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
   113
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
   114
initialize
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
   115
    super initialize.
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
   116
    label := 'Warning'
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
   117
! !
6d917a89f7b7 *** empty log message ***
claus
parents: 63
diff changeset
   118
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   119
!WarningBox methodsFor:'realization'!
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   120
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   121
show
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   122
    "added bell to wake up user"
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   123
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   124
    device beep.
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   125
    super show
26
9d08a08ba6a6 *** empty log message ***
claus
parents: 3
diff changeset
   126
! 
9d08a08ba6a6 *** empty log message ***
claus
parents: 3
diff changeset
   127
9d08a08ba6a6 *** empty log message ***
claus
parents: 3
diff changeset
   128
showAtPointer
9d08a08ba6a6 *** empty log message ***
claus
parents: 3
diff changeset
   129
    "added bell to wake up user"
9d08a08ba6a6 *** empty log message ***
claus
parents: 3
diff changeset
   130
9d08a08ba6a6 *** empty log message ***
claus
parents: 3
diff changeset
   131
    device beep.
9d08a08ba6a6 *** empty log message ***
claus
parents: 3
diff changeset
   132
    super showAtPointer
0
e6a541c1c0eb Initial revision
claus
parents:
diff changeset
   133
! !