equal
deleted
inserted
replaced
6392 b addOkButton. |
6392 b addOkButton. |
6393 b showAtPointer |
6393 b showAtPointer |
6394 " |
6394 " |
6395 ! |
6395 ! |
6396 |
6396 |
|
6397 addTextLabelOn:aValueHolder |
|
6398 "create a text label showing the contents of a valueHolder. |
|
6399 Returns the label." |
|
6400 |
|
6401 |l| |
|
6402 |
|
6403 l := Label new labelChannel:aValueHolder. |
|
6404 l borderWidth:0. |
|
6405 self addComponent:l. |
|
6406 ^ l |
|
6407 |
|
6408 " |
|
6409 |b| |
|
6410 |
|
6411 b := DialogBox new. |
|
6412 b addTextLabelOn:'hello' asValue. |
|
6413 b showAtPointer |
|
6414 " |
|
6415 " |
|
6416 |b| |
|
6417 |
|
6418 b := DialogBox new. |
|
6419 b leftIndent:100. |
|
6420 b addTextLabelOn:'hello' asValue. |
|
6421 b leftIndent:0. |
|
6422 b addTextLabelOn:'world' asValue. |
|
6423 b showAtPointer |
|
6424 " |
|
6425 ! |
|
6426 |
6397 addToInputFieldGroup:aComponentOrSubcomponent |
6427 addToInputFieldGroup:aComponentOrSubcomponent |
6398 "add a component to the input group. |
6428 "add a component to the input group. |
6399 The argument, aComponentOrSubcomponent may even be a nested subcomponent of |
6429 The argument, aComponentOrSubcomponent may even be a nested subcomponent of |
6400 a topLevel component." |
6430 a topLevel component." |
6401 |
6431 |
8829 ! ! |
8859 ! ! |
8830 |
8860 |
8831 !DialogBox class methodsFor:'documentation'! |
8861 !DialogBox class methodsFor:'documentation'! |
8832 |
8862 |
8833 version |
8863 version |
8834 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.285 2009-09-04 09:22:05 cg Exp $' |
8864 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.286 2009-09-07 09:34:45 cg Exp $' |
8835 ! ! |
8865 ! ! |
8836 |
8866 |
8837 DialogBox initialize! |
8867 DialogBox initialize! |