# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1574853654 -3600
# Node ID 6a5f7203719c5e369cdb0a1f78d80ef81257db84
# Parent  0b085cd5ffcab4e9d9097e76f98f95a50fd7e745
#FEATURE by stefan
class: DialogBox
changed: #addTextLabel:
    allow a ValueHolder as Label

diff -r 0b085cd5ffca -r 6a5f7203719c DialogBox.st
--- 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