equal
deleted
inserted
replaced
167 " |
167 " |
168 ! ! |
168 ! ! |
169 |
169 |
170 !InfoBox class methodsFor:'defaults'! |
170 !InfoBox class methodsFor:'defaults'! |
171 |
171 |
|
172 defaultLabel |
|
173 "return the boxes default window title." |
|
174 |
|
175 ^ 'Info' |
|
176 |
|
177 "Created: 23.4.1996 / 17:12:33 / cg" |
|
178 ! |
|
179 |
172 iconBitmap |
180 iconBitmap |
173 "return the bitmap shown as icon in my instances. |
181 "return the bitmap shown as icon in my instances. |
174 The form is cached and reused, for faster opening." |
182 The form is cached and reused, for faster opening." |
175 |
183 |
176 InfoBitmap isNil ifTrue:[ |
184 InfoBitmap isNil ifTrue:[ |
274 |mm| |
282 |mm| |
275 |
283 |
276 super initialize. |
284 super initialize. |
277 self addOkButton. |
285 self addOkButton. |
278 |
286 |
279 label := 'Info'. |
287 "/ label := 'Info'. |
280 |
288 |
281 mm := ViewSpacing. |
289 mm := ViewSpacing. |
282 |
290 |
283 self initFormLabel. |
291 self initFormLabel. |
284 self initFormBitmap. |
292 self initFormBitmap. |
293 b := InfoBox new. |
301 b := InfoBox new. |
294 b title:'hello'. |
302 b title:'hello'. |
295 b open |
303 b open |
296 " |
304 " |
297 |
305 |
298 "Modified: 22.4.1996 / 18:15:49 / cg" |
306 "Modified: 23.4.1996 / 17:12:39 / cg" |
299 ! ! |
307 ! ! |
300 |
308 |
301 !InfoBox methodsFor:'queries'! |
309 !InfoBox methodsFor:'queries'! |
302 |
310 |
303 preferredExtent |
311 preferredExtent |
326 ! ! |
334 ! ! |
327 |
335 |
328 !InfoBox class methodsFor:'documentation'! |
336 !InfoBox class methodsFor:'documentation'! |
329 |
337 |
330 version |
338 version |
331 ^ '$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.26 1996-04-22 17:39:18 cg Exp $' |
339 ^ '$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.27 1996-04-23 15:19:23 cg Exp $' |
332 ! ! |
340 ! ! |