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