--- a/Tools__NewSystemBrowser.st Wed Jun 06 15:23:56 2018 +0200
+++ b/Tools__NewSystemBrowser.st Wed Jun 06 17:22:47 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2000 by eXept Software AG
All Rights Reserved
@@ -409,7 +407,8 @@
#undoOperation
'Undo operation'
-
+#classMenuOpenClassCreationWizard
+'Open a wizard to define a new class'
).
(RefactoryChangeManager notNil and:[ RefactoryChangeManager isLoaded ]) ifTrue:[
@@ -426,7 +425,7 @@
^ spec.
"Modified: / 05-12-2017 / 12:52:42 / cg"
- "Modified: / 29-05-2018 / 08:48:21 / Claus Gittinger"
+ "Modified: / 06-06-2018 / 17:21:20 / Claus Gittinger"
! !
!NewSystemBrowser class methodsFor:'image specs'!
@@ -48236,7 +48235,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.
@@ -48463,7 +48462,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.
].
@@ -53091,7 +53090,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.
].
@@ -60621,6 +60620,7 @@
^ selectorCompletion
! !
+
!NewSystemBrowser methodsFor:'private-semantic checks'!
checkAcceptedMethod:aMethod inClass:aClass