--- a/Label.st Wed Mar 12 18:08:20 2003 +0100
+++ b/Label.st Wed Mar 12 18:10:12 2003 +0100
@@ -1484,11 +1484,10 @@
labelWidth := b width.
labelHeight := b height.
] ifFalse:[
-"/ have to ask the device for fonts
- labelWidth := logo widthOn:device.
- labelHeight := logo heightOn:device.
-"/ labelWidth := logo widthOn:self.
-"/ labelHeight := logo heightOn:self.
+"/ labelWidth := logo widthOn:device.
+"/ labelHeight := logo heightOn:device.
+ labelWidth := logo widthOn:self.
+ labelHeight := logo heightOn:self.
].
"/ b := logo bounds.
@@ -1841,5 +1840,5 @@
!Label class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.119 2003-03-12 17:08:20 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.120 2003-03-12 17:10:12 penk Exp $'
! !