beautified
authorClaus Gittinger <cg@exept.de>
Thu, 12 Sep 2002 15:58:54 +0200
changeset 2614 9dd0e44e894e
parent 2613 99a6b8d8e333
child 2615 e5ff9323b909
beautified
FramedBox.st
--- a/FramedBox.st	Thu Sep 12 15:53:12 2002 +0200
+++ b/FramedBox.st	Thu Sep 12 15:58:54 2002 +0200
@@ -509,12 +509,11 @@
 update:what with:aPara from:aModel
     "the MVC way of changing the label ...
     "
-    (labelChannel notNil and:[aModel == labelChannel]) ifTrue:[
+    aModel == labelChannel ifTrue:[
         self label:(aModel value).
-      ^ self
+        ^ self
     ].
     ^ super update:what with:aPara from:aModel
-
 ! !
 
 !FramedBox methodsFor:'drawing'!
@@ -772,5 +771,5 @@
 !FramedBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.44 2002-08-22 16:54:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.45 2002-09-12 13:58:54 cg Exp $'
 ! !