Tools__NewSystemBrowser.st
changeset 17067 1daebd492bbf
parent 17066 e2606a699469
child 17070 7166939ac65a
--- a/Tools__NewSystemBrowser.st	Tue Nov 15 17:08:06 2016 +0100
+++ b/Tools__NewSystemBrowser.st	Tue Nov 15 17:09:20 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -47065,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.
     ].
 
@@ -51658,7 +51660,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.
                 ].    
@@ -58740,13 +58742,15 @@
     navigationState realModifiedState == true ifTrue:[
         l := l , (resources string:' [modified]')
     ] ifFalse:[
-        (buffers contains:[:someNavigationState | someNavigationState realModifiedState == true]) ifTrue:[
-            l := l , (resources string:' [modified buffer]')
+        buffers notEmptyOrNil ifTrue:[
+            (buffers contains:[:someNavigationState | someNavigationState realModifiedState == true]) ifTrue:[
+                l := l , (resources string:' [modified buffer]')
+            ].
         ].
     ].
     window label:l string; iconLabel:il string.
 
-    "Modified: / 15-11-2016 / 17:07:56 / cg"
+    "Modified: / 15-11-2016 / 17:08:55 / cg"
 !
 
 replaceSourceCodeManagerPlaceholderWith: manager in: menu