equal
deleted
inserted
replaced
7594 ! |
7594 ! |
7595 |
7595 |
7596 addTextLabel:aString adjust:how |
7596 addTextLabel:aString adjust:how |
7597 "create a text label - the name has been choosen for ST-80 compatibility; |
7597 "create a text label - the name has been choosen for ST-80 compatibility; |
7598 however, ST/X labels allow image labels too. |
7598 however, ST/X labels allow image labels too. |
7599 Returns the label." |
7599 Returns the label. |
|
7600 The adjust argument must be one of #left, #right or #center (see Label for details)" |
7600 |
7601 |
7601 |l| |
7602 |l| |
7602 |
7603 |
7603 l := self addTextLabel:aString. |
7604 l := self addTextLabel:aString. |
7604 l adjust:how. |
7605 l adjust:how. |
7630 l borderWidth:0. |
7631 l borderWidth:0. |
7631 self addComponent:l. |
7632 self addComponent:l. |
7632 ^ l |
7633 ^ l |
7633 |
7634 |
7634 " |
7635 " |
7635 |b| |
7636 |holder b| |
|
7637 |
|
7638 holder := ValueHolder with:'hello'. |
7636 |
7639 |
7637 b := DialogBox new. |
7640 b := DialogBox new. |
7638 b addTextLabelOn:'hello' asValue. |
7641 b addTextLabelOn:holder asValue. |
|
7642 [ Delay waitForSeconds:2. holder value:'world' ] fork. |
7639 b showAtPointer |
7643 b showAtPointer |
7640 " |
7644 " |
7641 " |
7645 " |
7642 |b| |
7646 |b| |
7643 |
7647 |
7644 b := DialogBox new. |
7648 b := DialogBox new. |
7645 b leftIndent:100. |
7649 b leftIndent:100. |
7646 b addTextLabelOn:'hello' asValue. |
7650 b addTextLabelOn:'hello' asValue. |
7647 b leftIndent:0. |
7651 b leftIndent:0. |
7648 b addTextLabelOn:'world' asValue. |
7652 b addTextLabelOn:'world' asValue. |
|
7653 b showAtPointer |
|
7654 " |
|
7655 ! |
|
7656 |
|
7657 addTextLabelOn:aStringHolder adjust:how |
|
7658 "create a text label - the name has been choosen for ST-80 compatibility; |
|
7659 however, ST/X labels allow image labels too. |
|
7660 Returns the label. |
|
7661 The adjust argument must be one of #left, #right or #center (see Label for details)" |
|
7662 |
|
7663 |l| |
|
7664 |
|
7665 l := self addTextLabelOn:aStringHolder. |
|
7666 l adjust:how. |
|
7667 ^ l |
|
7668 |
|
7669 " |
|
7670 |holder b| |
|
7671 |
|
7672 holder := ValueHolder with:'hello'. |
|
7673 |
|
7674 b := DialogBox new. |
|
7675 b addTextLabelOn:holder asValue adjust:#left. |
|
7676 [ Delay waitForSeconds:2. holder value:'world' ] fork. |
7649 b showAtPointer |
7677 b showAtPointer |
7650 " |
7678 " |
7651 ! |
7679 ! |
7652 |
7680 |
7653 addToInputFieldGroup:aComponentOrSubcomponent |
7681 addToInputFieldGroup:aComponentOrSubcomponent |
10250 ! ! |
10278 ! ! |
10251 |
10279 |
10252 !DialogBox class methodsFor:'documentation'! |
10280 !DialogBox class methodsFor:'documentation'! |
10253 |
10281 |
10254 version |
10282 version |
10255 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.361 2015-01-29 17:41:41 cg Exp $' |
10283 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.362 2015-01-31 13:42:43 cg Exp $' |
10256 ! |
10284 ! |
10257 |
10285 |
10258 version_CVS |
10286 version_CVS |
10259 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.361 2015-01-29 17:41:41 cg Exp $' |
10287 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.362 2015-01-31 13:42:43 cg Exp $' |
10260 ! ! |
10288 ! ! |
10261 |
10289 |
10262 |
10290 |
10263 DialogBox initialize! |
10291 DialogBox initialize! |