diff --git a/src/EpiceaBrowsers/EpLogBrowserPresenter.class.st b/src/EpiceaBrowsers/EpLogBrowserPresenter.class.st index 3910fe1e784..d4c15e56768 100644 --- a/src/EpiceaBrowsers/EpLogBrowserPresenter.class.st +++ b/src/EpiceaBrowsers/EpLogBrowserPresenter.class.st @@ -561,12 +561,15 @@ EpLogBrowserPresenter >> initializeWidgets [ itemsPresenter := self newList. toolbarPresenter := self instantiate: EpLogBrowserToolbarPresenter. entryContentPresenter := self newDiff. + itemsPresenter beMultipleSelection; - display: [ :entryReference | self morphForItemAt: entryReference ]; + displayBlock: [ :entryReference | self morphForItemAt: entryReference ]; whenSelectionChangedDo: [ self refreshEntryContentDeferrer schedule ]; contextMenu: [ self menuMorphForSelectedItems ]. + toolbarPresenter logBrowserPresenter: self. + entryContentPresenter showOptions: false ] diff --git a/src/SystemCommands-VariableCommands/SycAbstractAllInstVarAccessorsCommand.class.st b/src/SystemCommands-ClassCommands/SycAbstractAllInstVarAccessorsCommand.class.st similarity index 75% rename from src/SystemCommands-VariableCommands/SycAbstractAllInstVarAccessorsCommand.class.st rename to src/SystemCommands-ClassCommands/SycAbstractAllInstVarAccessorsCommand.class.st index 7cc8cdc0e6a..1adc966ca47 100644 --- a/src/SystemCommands-VariableCommands/SycAbstractAllInstVarAccessorsCommand.class.st +++ b/src/SystemCommands-ClassCommands/SycAbstractAllInstVarAccessorsCommand.class.st @@ -3,11 +3,8 @@ I command to launch the Abstract refactorings: create accessors and abstract the " Class { #name : #SycAbstractAllInstVarAccessorsCommand, - #superclass : #CmdCommand, - #instVars : [ - 'variable' - ], - #category : #'SystemCommands-VariableCommands' + #superclass : #SycClassCommand, + #category : #'SystemCommands-ClassCommands' } { #category : #activation } @@ -21,7 +18,7 @@ SycAbstractAllInstVarAccessorsCommand class >> browserShortcutActivation [ SycAbstractAllInstVarAccessorsCommand class >> fullBrowserMenuActivation [ - ^CmdContextMenuActivation byRootGroupItemFor: ClyVariableContextOfFullBrowser + ^CmdContextMenuActivation byRootGroupItemOrder: 2.1 for: ClyClassContextOfFullBrowser ] { #category : #activation } @@ -33,9 +30,12 @@ SycAbstractAllInstVarAccessorsCommand class >> sourceCodeMenuActivation [ { #category : #accessing } SycAbstractAllInstVarAccessorsCommand >> asRefactorings [ - ^ {RBAbstractInstanceVariableRefactoring - variable: variable actualVariable name - class: variable definingClass} + + | refactorings | + refactorings := classes flatCollect: [:eachClass | + eachClass slots collect: [:var | + var createRefactoring: RBAbstractInstanceVariableRefactoring for: eachClass]]. + ^ refactorings ] { #category : #accessing } @@ -56,11 +56,12 @@ SycAbstractAllInstVarAccessorsCommand >> execute [ { #category : #testing } SycAbstractAllInstVarAccessorsCommand >> isComplexRefactoring [ - ^ true + ^true ] { #category : #testing } SycAbstractAllInstVarAccessorsCommand >> prepareFullExecutionInContext: aToolContext [ super prepareFullExecutionInContext: aToolContext. - variable := aToolContext lastSelectedVariable. + + classes := classes collect: [:each | aToolContext currentMetaLevelOf: each] ]