--- 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 $'
! !