--- 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