equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1999 by eXept Software AG |
4 COPYRIGHT (c) 1999 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
8 be provided or otherwise made available to, or used by, any |
10 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
11 other person. No title to or ownership of the software is |
10 hereby transferred. |
12 hereby transferred. |
11 " |
13 " |
12 "{ Package: 'stx:libbasic' }" |
14 "{ Package: 'stx:libbasic' }" |
|
15 |
|
16 "{ NameSpace: Smalltalk }" |
13 |
17 |
14 Notification subclass:#UserNotification |
18 Notification subclass:#UserNotification |
15 instanceVariableNames:'' |
19 instanceVariableNames:'' |
16 classVariableNames:'' |
20 classVariableNames:'' |
17 poolDictionaries:'' |
21 poolDictionaries:'' |
114 |
118 |
115 |text| |
119 |text| |
116 |
120 |
117 text := self description. |
121 text := self description. |
118 |
122 |
119 self hasDialog ifTrue:[ |
123 (self suppressDialogIfUnhandled not and:[self hasDialog]) ifTrue:[ |
120 Dialog information:text. |
124 Dialog information:text. |
121 ] ifFalse:[ |
125 ] ifFalse:[ |
122 " |
126 " |
123 on systems without GUI, simply show |
127 on systems without GUI, simply show |
124 the message on the Transcript. |
128 the message on the Transcript. |
125 " |
129 " |
126 Transcript show:'notification: '; showCR:text. |
130 Transcript show:(self class name); show:': '; showCR:text. |
127 ]. |
131 ]. |
128 |
132 |
129 " |
133 " |
130 UserNotification raiseRequestErrorString:' abc' |
134 UserNotification raiseRequestErrorString:' abc' |
131 " |
135 " |
132 |
136 |
133 "Modified: / 3.8.1999 / 14:06:55 / stefan" |
137 "Modified: / 03-08-1999 / 14:06:55 / stefan" |
|
138 "Modified: / 29-03-2019 / 10:55:25 / Claus Gittinger" |
134 ! ! |
139 ! ! |
135 |
140 |
136 !UserNotification class methodsFor:'documentation'! |
141 !UserNotification class methodsFor:'documentation'! |
137 |
142 |
138 version |
143 version |
139 ^ '$Header: /cvs/stx/stx/libbasic/UserNotification.st,v 1.19 2014-05-13 22:10:03 cg Exp $' |
144 ^ '$Header$' |
140 ! |
145 ! |
141 |
146 |
142 version_CVS |
147 version_CVS |
143 ^ '$Header: /cvs/stx/stx/libbasic/UserNotification.st,v 1.19 2014-05-13 22:10:03 cg Exp $' |
148 ^ '$Header$' |
144 ! ! |
149 ! ! |
145 |
150 |
146 |
151 |
147 UserNotification initialize! |
152 UserNotification initialize! |