Tools__NewSystemBrowser.st
changeset 18026 8cde522a0296
parent 17987 74bb1dc3b69e
child 18030 733a443add55
--- a/Tools__NewSystemBrowser.st	Tue Mar 27 19:31:19 2018 +0200
+++ b/Tools__NewSystemBrowser.st	Tue Mar 27 20:10:05 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -41260,7 +41258,6 @@
     "Modified: / 28-02-2012 / 16:27:44 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-namespace'!
 
 nameSpaceMenuCheckOut
@@ -41620,7 +41617,7 @@
         ].
         self sendFileViaEmail:tempFile subject:subject.
     ] ensure:[
-        tempFile notNil ifTrue:[ tempFile delete ]
+        tempFile notNil ifTrue:[ tempFile remove ]
     ].
 
     "Created: / 20-09-2007 / 15:01:42 / cg"
@@ -48300,7 +48297,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.
     ].
 
@@ -52916,7 +52913,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.
                 ].    
@@ -60440,6 +60437,7 @@
     ^ selectorCompletion
 ! !
 
+
 !NewSystemBrowser methodsFor:'private-semantic checks'!
 
 checkAcceptedMethod:aMethod inClass:aClass