--- a/Label.st Tue Apr 30 10:38:38 2019 +0200
+++ b/Label.st Wed May 08 03:22:16 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -1088,6 +1086,9 @@
|newLogo numberOfLines|
newLogo := aStringOrFormOrImage.
+ newLogo isBridgeProxy ifTrue:[
+ newLogo := newLogo printString.
+ ].
newLogo isString ifTrue:[
numberOfLines := 1 + (newLogo occurrencesOf:(Character cr)).
(numberOfLines ~~ 1) ifTrue:[
@@ -1102,16 +1103,16 @@
]
].
- (aStringOrFormOrImage ~~ logo) ifTrue:[
+ (newLogo ~~ logo) ifTrue:[
"/
"/ avoid recompute of size, if it's an image with
"/ the same size
"/
- aStringOrFormOrImage isImageOrForm ifTrue:[
+ newLogo isImageOrForm ifTrue:[
logo notNil ifTrue:[
logo isImageOrForm ifTrue:[
- logo extent = aStringOrFormOrImage extent ifTrue:[
- logo := aStringOrFormOrImage.
+ logo extent = newLogo extent ifTrue:[
+ logo := newLogo.
doRedraw ifTrue:[ self invalidateRepairNow:true ].
^ self
]
@@ -1141,6 +1142,7 @@
"Created: / 13-10-2010 / 12:16:34 / cg"
"Modified (format): / 13-02-2017 / 20:26:33 / cg"
+ "Modified: / 08-05-2019 / 03:22:07 / Claus Gittinger"
!
label:newLabel suppressResize:suppress