Label.st
changeset 3927 6df1a9250681
parent 3924 57f03ead2eca
child 3999 f605cc13731e
--- a/Label.st	Fri Sep 18 14:43:37 2009 +0200
+++ b/Label.st	Fri Sep 18 17:10:19 2009 +0200
@@ -905,7 +905,8 @@
 
     prev := labelChannel.
     labelChannel := aValueHolder.
-    self setupChannel:aValueHolder for:nil withOld:prev
+    self setupChannel:aValueHolder for:nil withOld:prev.
+    self getLabelFromLabelChannel.
 
     "Modified: / 31.10.1997 / 14:37:02 / cg"
 ! !
@@ -1863,5 +1864,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.140 2009-09-18 08:31:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.141 2009-09-18 15:10:19 cg Exp $'
 ! !