--- a/Tools__NewSystemBrowser.st Sun Jul 01 09:26:29 2018 +0200
+++ b/Tools__NewSystemBrowser.st Sun Jul 01 11:44:46 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2000 by eXept Software AG
All Rights Reserved
@@ -7596,7 +7594,7 @@
)
(MenuItem
enabled: hasLoadedClassSelectedHolder
- label: 'Copyright Method'
+ label: 'Copyright Method...'
itemValue: classMenuGenerateCopyrightMethod
translateLabel: true
)
@@ -7700,6 +7698,8 @@
nil
nil
)
+
+ "Modified: / 01-07-2018 / 11:18:08 / Claus Gittinger"
!
classGenerateMenuAccessMethodsSlice
@@ -41941,6 +41941,7 @@
"Modified: / 28-02-2012 / 16:27:44 / cg"
! !
+
!NewSystemBrowser methodsFor:'menu actions-namespace'!
nameSpaceMenuCheckOut
@@ -48752,7 +48753,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.
@@ -48979,7 +48980,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.
].
@@ -53627,7 +53628,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.
].