| changeset 4839 | c13bf8da0039 |
| parent 4777 | 317cf814c9c4 |
| child 4871 | fea4848d75cd |
| 4838:188f2e0613bc | 4839:c13bf8da0039 |
|---|---|
7417 b addOkButton. |
7417 b addOkButton. |
7418 b showAtPointer |
7418 b showAtPointer |
7419 " |
7419 " |
7420 ! |
7420 ! |
7421 |
7421 |
7422 addTextLabel:aString adjust:how |
|
7423 "create a text label - the name has been choosen for ST-80 compatibility; |
|
7424 however, ST/X labels allow image labels too. |
|
7425 Returns the label." |
|
7426 |
|
7427 |l| |
|
7428 |
|
7429 l := self addTextLabel:aString. |
|
7430 l adjust:how. |
|
7431 ^ l |
|
7432 |
|
7433 " |
|
7434 |b| |
|
7435 |
|
7436 b := DialogBox new. |
|
7437 b addTextLabel:'hello' adjust:#left. |
|
7438 b showAtPointer |
|
7439 " |
|
7440 " |
|
7441 |b| |
|
7442 |
|
7443 b := DialogBox new. |
|
7444 b addTextLabel:'hello' adjust:#right. |
|
7445 b showAtPointer |
|
7446 " |
|
7447 ! |
|
7448 |
|
7422 addTextLabelOn:aValueHolder |
7449 addTextLabelOn:aValueHolder |
7423 "create a text label showing the contents of a valueHolder. |
7450 "create a text label showing the contents of a valueHolder. |
7424 Returns the label." |
7451 Returns the label." |
7425 |
7452 |
7426 |l| |
7453 |l| |
10022 ! ! |
10049 ! ! |
10023 |
10050 |
10024 !DialogBox class methodsFor:'documentation'! |
10051 !DialogBox class methodsFor:'documentation'! |
10025 |
10052 |
10026 version |
10053 version |
10027 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.345 2013-09-19 11:06:59 cg Exp $' |
10054 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.346 2014-01-05 12:57:55 cg Exp $' |
10028 ! |
10055 ! |
10029 |
10056 |
10030 version_CVS |
10057 version_CVS |
10031 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.345 2013-09-19 11:06:59 cg Exp $' |
10058 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.346 2014-01-05 12:57:55 cg Exp $' |
10032 ! ! |
10059 ! ! |
10033 |
10060 |
10034 |
10061 |
10035 DialogBox initialize! |
10062 DialogBox initialize! |