equal
deleted
inserted
replaced
128 !Warning methodsFor:'default actions'! |
128 !Warning methodsFor:'default actions'! |
129 |
129 |
130 defaultAction |
130 defaultAction |
131 "Default action for warnings: open a warn box with description" |
131 "Default action for warnings: open a warn box with description" |
132 |
132 |
|
133 self showWarnDialog. |
|
134 self proceed. |
|
135 |
|
136 " |
|
137 Warning raiseRequestErrorString:' abc' |
|
138 " |
|
139 |
|
140 "Modified: / 3.8.1999 / 14:06:41 / stefan" |
|
141 ! |
|
142 |
|
143 showWarnDialog |
|
144 "open a warn box with description" |
|
145 |
133 |text| |
146 |text| |
134 |
147 |
135 text := self description. |
148 text := self description. |
136 |
149 |
137 self hasDialog ifTrue:[ |
150 self hasDialog ifTrue:[ |
141 on systems without GUI, simply show |
154 on systems without GUI, simply show |
142 the message on the Transcript. |
155 the message on the Transcript. |
143 " |
156 " |
144 Transcript show:'warning: '; showCR:text. |
157 Transcript show:'warning: '; showCR:text. |
145 ]. |
158 ]. |
146 self proceed. |
|
147 |
159 |
148 " |
160 " |
149 Warning raiseRequestErrorString:' abc' |
161 Warning raiseRequestErrorString:' abc' |
150 " |
162 " |
151 |
163 |
153 ! ! |
165 ! ! |
154 |
166 |
155 !Warning class methodsFor:'documentation'! |
167 !Warning class methodsFor:'documentation'! |
156 |
168 |
157 version |
169 version |
158 ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.14 2009-10-14 17:34:52 cg Exp $' |
170 ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.15 2014-05-13 22:09:49 cg Exp $' |
159 ! |
171 ! |
160 |
172 |
161 version_CVS |
173 version_CVS |
162 ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.14 2009-10-14 17:34:52 cg Exp $' |
174 ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.15 2014-05-13 22:09:49 cg Exp $' |
163 ! ! |
175 ! ! |
164 |
176 |
|
177 |
165 Warning initialize! |
178 Warning initialize! |