equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
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 |
359 formAndLabelPanel forceResize. |
361 formAndLabelPanel forceResize. |
360 verticalPanel forceResize. |
362 verticalPanel forceResize. |
361 shown ifTrue:[self resize] |
363 shown ifTrue:[self resize] |
362 ! |
364 ! |
363 |
365 |
|
366 label:aString |
|
367 "sigh: the old name for the windowTitle was label here, |
|
368 and the contents was called title. |
|
369 Squeak expects label to access the title" |
|
370 |
|
371 self title:aString |
|
372 |
|
373 "Created: / 26-08-2018 / 17:04:25 / Claus Gittinger" |
|
374 ! |
|
375 |
364 textLabel |
376 textLabel |
365 "return the textLabel = can be used to change its appearance" |
377 "return the textLabel = can be used to change its appearance" |
366 |
378 |
367 ^ textLabel |
379 ^ textLabel |
368 ! |
380 ! |
369 |
381 |
370 title |
382 title |
371 "return the boxes title string" |
383 "return the boxes label string" |
372 |
384 |
373 ^ textLabel label |
385 ^ textLabel label |
374 |
386 |
375 "Created: / 22-12-2010 / 19:27:43 / cg" |
387 "Created: / 22-12-2010 / 19:27:43 / cg" |
|
388 "Modified (comment): / 26-08-2018 / 17:03:23 / Claus Gittinger" |
376 ! |
389 ! |
377 |
390 |
378 title:aString |
391 title:aString |
379 "set the boxes label string" |
392 "set the boxes label string" |
380 |
393 |
387 ] |
400 ] |
388 |
401 |
389 "Created: / 22-12-2010 / 19:27:16 / cg" |
402 "Created: / 22-12-2010 / 19:27:16 / cg" |
390 ! |
403 ! |
391 |
404 |
392 title:aString label:windowLabel |
405 title:windowTitleString label:labelString |
393 "set the boxes label string" |
406 "set the boxes label string" |
394 |
407 |
395 self label:windowLabel. |
408 super label:windowTitleString. |
396 self title:aString. |
409 self title:labelString. |
|
410 |
|
411 "Modified: / 26-08-2018 / 17:04:04 / Claus Gittinger" |
|
412 ! |
|
413 |
|
414 windowTitle |
|
415 ^ super label |
|
416 |
|
417 "Created: / 26-08-2018 / 17:03:56 / Claus Gittinger" |
|
418 ! |
|
419 |
|
420 windowTitle:windowTitleString |
|
421 "set the boxes window title string" |
|
422 |
|
423 super label:windowTitleString. |
|
424 |
|
425 "Created: / 26-08-2018 / 17:01:23 / Claus Gittinger" |
397 ! ! |
426 ! ! |
398 |
427 |
399 !InfoBox methodsFor:'initialization'! |
428 !InfoBox methodsFor:'initialization'! |
400 |
429 |
401 initFormBitmap |
430 initFormBitmap |