--- a/DialogBox.st Fri Sep 04 14:23:09 2009 +0200
+++ b/DialogBox.st Mon Sep 07 11:34:45 2009 +0200
@@ -6394,6 +6394,36 @@
"
!
+addTextLabelOn:aValueHolder
+ "create a text label showing the contents of a valueHolder.
+ Returns the label."
+
+ |l|
+
+ l := Label new labelChannel:aValueHolder.
+ l borderWidth:0.
+ self addComponent:l.
+ ^ l
+
+ "
+ |b|
+
+ b := DialogBox new.
+ b addTextLabelOn:'hello' asValue.
+ b showAtPointer
+ "
+ "
+ |b|
+
+ b := DialogBox new.
+ b leftIndent:100.
+ b addTextLabelOn:'hello' asValue.
+ b leftIndent:0.
+ b addTextLabelOn:'world' asValue.
+ b showAtPointer
+ "
+!
+
addToInputFieldGroup:aComponentOrSubcomponent
"add a component to the input group.
The argument, aComponentOrSubcomponent may even be a nested subcomponent of
@@ -8831,7 +8861,7 @@
!DialogBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.285 2009-09-04 09:22:05 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.286 2009-09-07 09:34:45 cg Exp $'
! !
DialogBox initialize!