Label.st
changeset 6577 03d26847c27b
parent 6542 9bc32510b526
child 6606 97edccbfda90
--- 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