--- a/Tools__NewSystemBrowser.st Tue Oct 11 20:10:20 2016 +0200
+++ b/Tools__NewSystemBrowser.st Wed Oct 12 15:02:22 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2000 by eXept Software AG
All Rights Reserved
@@ -125,68 +127,6 @@
initialize
Icon initialize.
Color initialize.
-
- "/ self installInLauncher. - now done in phase 2
- ObjectMemory addDependent:self.
-!
-
-installInLauncher
- "add myself to the launcher menu and toolBar"
-
- |menuItem icon action currentLauncher|
-
- NewLauncher isNil ifTrue:[^ self].
- ToolbarIconLibrary isNil ifTrue:[^ self].
-
-"/ "Class may be changed, and we want to start the changed class"
- action := (MessageSend receiver:(Smalltalk at:self name) selector:#open).
- icon := [self startNewSystemBrowserIcon].
-
-"/ menuItem := MenuItem new
-"/ value: action;
-"/ isButton: false;
-"/ translateLabel: true;
-"/ label:'New System Browser' icon:icon;
-"/ nameKey: #newSystemBrowser;
-"/ activeHelpKey: #newSystemBrowser;
-"/ submenuChannel: #menuClassHistoryNew;
-"/ showBusyCursorWhilePerforming:true.
-"/
-"/ NewLauncher
-"/ addMenuItem:menuItem
-"/ from:self
-"/ in:'menu.classes'
-"/ position:#(before systemBrowser)
-"/ space:true.
-
- menuItem := MenuItem new
- value: action;
- isButton: true;
- translateLabel: true;
- icon:icon;
- nameKey: #newSystemBrowser;
- activeHelpKey: #newSystemBrowser;
- submenuChannel: #menuClassHistoryNew;
- showBusyCursorWhilePerforming:true.
-
- NewLauncher
- addMenuItem:menuItem
- from:self
- in:'toolbar'
- position:#(before systemBrowser)
- space:false.
- currentLauncher := NewLauncher current.
- currentLauncher notNil ifTrue:[
- currentLauncher systemBrowserItemVisible value:false.
- ]
-
- "
- self removeFromLauncher.
- self installInLauncher.
- self removeFromLauncher
- "
-
- "Modified: / 08-08-2011 / 21:48:27 / cg"
!
loadRefactoryBrowser
@@ -200,9 +140,7 @@
!
postAutoload
- "add myself to the launcher menu."
-
- self installInLauncher.
+
"/ try to load the refactoryBrowser package ...
self loadRefactoryBrowser.
@@ -213,39 +151,6 @@
"
"Modified: / 23.8.2001 / 12:32:34 / cg"
-!
-
-removeFromLauncher
- "remove myself from the launcher menu"
-
- |currentLauncher|
-
- NewLauncher isNil ifTrue:[^ self].
- NewLauncher removeUserTool:#newSystemBrowser.
- currentLauncher := NewLauncher current.
- currentLauncher notNil ifTrue:[
- currentLauncher systemBrowserItemVisible value:true
- ]
-
- "
- self removeFromLauncher
- "
-!
-
-unload
- "class is about to be unloaded - remove myself from the launcher menu"
-
- self removeFromLauncher.
- super unload.
-!
-
-update:something with:aParameter from:changedObject
- something == #initialized ifTrue:[
- changedObject == ObjectMemory ifTrue:[
- self installInLauncher.
- ObjectMemory removeDependent:self.
- ]
- ].
! !
!NewSystemBrowser class methodsFor:'accessing-history'!
@@ -47082,7 +46987,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.
].
@@ -51667,7 +51572,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.
].
@@ -59021,7 +58926,6 @@
^ selectorCompletion
! !
-
!NewSystemBrowser methodsFor:'private-semantic checks'!
checkAcceptedMethod:aMethod inClass:aClass