#FEATURE by stefan
class: DialogBox
changed: #addTextLabel:
allow a ValueHolder as Label
--- a/DialogBox.st Tue Nov 26 04:28:23 2019 +0000
+++ b/DialogBox.st Wed Nov 27 12:20:54 2019 +0100
@@ -8692,14 +8692,19 @@
^ field
!
-addTextLabel:aString
+addTextLabel:aStringOrHolder
"create a text label - the name has been choosen for ST-80 compatibility;
however, ST/X labels allow image labels too.
Returns the label."
|l|
- l := Label new label:aString.
+ l := Label new.
+ aStringOrHolder isValueModel ifTrue:[
+ l labelChannel:aStringOrHolder.
+ ] ifFalse:[
+ l label:aStringOrHolder.
+ ].
l borderWidth:0.
self addComponent:l.
^ l
@@ -8712,6 +8717,20 @@
b showAtPointer
"
"
+ |b v|
+
+ v := 'hello' asValue.
+ b := DialogBox new.
+ b addTextLabel:v.
+ [
+ Delay waitForSeconds:1.
+ v value:'world'
+ ] fork.
+
+ b showAtPointer.
+ "
+
+ "
|b|
b := DialogBox new.
@@ -8757,6 +8776,8 @@
b addOkButton.
b showAtPointer
"
+
+ "Modified (comment): / 25-11-2019 / 11:45:16 / Stefan Vogel"
!
addTextLabel:aString adjust:how