Tools__NewSystemBrowser.st
changeset 18881 18f101ba7130
parent 18873 6c6afc421b9c
child 18886 de46e21a634e
--- a/Tools__NewSystemBrowser.st	Wed Jul 10 18:37:01 2019 +0200
+++ b/Tools__NewSystemBrowser.st	Wed Jul 10 18:37:21 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -42377,7 +42375,6 @@
     "Modified: / 28-02-2012 / 16:27:44 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-namespace'!
 
 nameSpaceMenuCheckOut
@@ -43696,12 +43693,12 @@
 
         prjDef := ProjectDefinition definitionClassForPackage:eachPackageToCheckIn.
         prjDef isNil ifTrue:[
-            Dialog warn:('Project "%1" has no project definition yet.\Please create one and checkin first' bindWith:eachPackageToCheckIn).
+            Dialog warn:'Project "%1" has no project definition yet.\Please create one and checkin first' with:eachPackageToCheckIn.
             ^ self.
         ].    
         branchesAndReleasesInThisPackage := manager knownBranchTagsAndRevisionsFor:prjDef.
         branchesAndReleasesInThisPackage isEmpty ifTrue:[
-            Dialog warn:('Project "%1" has no branches yet.\Please create one first' bindWith:eachPackageToCheckIn).
+            Dialog warn:'Project "%1" has no branches yet.\Please create one first' with:eachPackageToCheckIn.
             ^ self.
         ].
         branchesInThisPackage := branchesAndReleasesInThisPackage keys.
@@ -43740,6 +43737,7 @@
 
     "Created: / 05-12-2017 / 18:54:36 / cg"
     "Modified: / 05-12-2017 / 19:58:07 / cg"
+    "Modified: / 10-07-2019 / 18:35:10 / Claus Gittinger"
 !
 
 projectMenuCheckOntoBranchUsingManagerNamed:sourceCodeManagerClassName
@@ -46080,12 +46078,12 @@
 
         missingClasses notEmpty ifTrue:[
             Transcript show:'could not create tag on: '; showCR:missingClasses.
-            Dialog warn:('Could not create a branch for %1 classes' bindWith:missingClasses size).
+            Dialog warn:'Could not create a branch for %1 classes' with:missingClasses size.
             ^ self.
         ].
         missingFiles notEmpty ifTrue:[
             Transcript show:'could not create tag on: '; showCR:missingFiles.
-            Dialog warn:('Could not create a branch for %1 support files' bindWith:missingFiles size).
+            Dialog warn:'Could not create a branch for %1 support files' with:missingFiles size.
             ^ self.
         ].
     ] ifFalse:[
@@ -46100,7 +46098,7 @@
     "Created: / 04-12-2017 / 17:49:16 / cg"
     "Modified: / 05-12-2017 / 23:35:58 / cg"
     "Modified (comment): / 18-12-2017 / 10:21:32 / mawalch"
-    "Modified: / 22-09-2018 / 11:22:23 / Claus Gittinger"
+    "Modified: / 10-07-2019 / 18:35:29 / Claus Gittinger"
 !
 
 projectMenuStartBranchUsingManagerNamed:sourceCodeManagerClassName
@@ -49205,7 +49203,7 @@
     dummyChangeSet := ChangeSet new addAll:previousMethods; yourself.
     dummyChangeSet reverse.  "/ youngest first.
     browser := (UserPreferences current changeSetBrowserClass) openOn:dummyChangeSet.
-    browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')).
+    browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')).
     browser perform:#rightCodeLabel: with:'Previous Version' ifNotUnderstood:[].
     browser readOnly:true.
 
@@ -49432,7 +49430,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.
     ].
 
@@ -54118,7 +54116,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.
                 ].