Tools__NewSystemBrowser.st
changeset 17053 55df75304e61
parent 17051 674e966f7cd5
child 17060 536a4ac6e833
--- a/Tools__NewSystemBrowser.st	Sun Nov 06 12:34:30 2016 +0100
+++ b/Tools__NewSystemBrowser.st	Tue Nov 08 21:48:11 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -25049,12 +25051,17 @@
             ^ info value
         ].
         (label := aWidget label) notNil ifTrue:[
+            label isStringCollection ifTrue:[
+                ^ label
+            ].
             (label widthOn:aWidget) > aWidget width ifTrue:[
                 ^ label
-            ]    
+            ].
         ]    
     ].
     ^ nil
+
+    "Modified: / 08-11-2016 / 21:46:26 / cg"
 ! !
 
 !NewSystemBrowser methodsFor:'history'!
@@ -47060,7 +47067,7 @@
 
         self activityNotification:nil.
         browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods.
-        browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
+        browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
         browser readOnly:true.
     ].
 
@@ -51652,7 +51659,7 @@
             label:[:chg | 
                 |lbl|
                 "/ lbl := chg printString
-                lbl := (chg className ? '???') , ' » ' , (chg selector  ? '???') allBold.
+                lbl := (chg className ? '???') , ' » ' , (chg selector  ? '???') allBold.
                 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[
                     lbl := lbl asText allStrikedOut,' ','(removed)' allItalic.
                 ].    
@@ -59010,7 +59017,6 @@
     ^ selectorCompletion
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-semantic checks'!
 
 checkAcceptedMethod:aMethod inClass:aClass