@@ -2005,6 +2005,23 @@ ViennaRefactoringBrowser >> initializeEpiLogPagePresenters [
20052005 yourself .
20062006 epiLogDiffText := self newText.
20072007 epiLogSourceText := self newVDMSource.
2008+ epiLogCherrypickList := self newTable
2009+ hideColumnHeaders;
2010+ beMultipleSelection;
2011+ beResizable;
2012+ addColumn:
2013+ (SpStringTableColumn evaluated:
2014+ #printSummary );
2015+ addColumn:
2016+ (SpStringTableColumn evaluated: #printNames );
2017+ whenSelectionChangedDo: [
2018+ self updateEpiLogCherrypickText ];
2019+ yourself .
2020+ epiLogCherrypickText := self newText.
2021+ epiLogCherrypickButton := self newButton
2022+ label: ' Cherrypick' ;
2023+ action: [ self cherrypick ];
2024+ yourself .
20082025 epiLogNotebook := self newNotebook
20092026 addPageTitle: ' Diff' provider: [
20102027 SpPresenter new
@@ -2015,6 +2032,16 @@ ViennaRefactoringBrowser >> initializeEpiLogPagePresenters [
20152032 yourself ];
20162033 addPageTitle: ' Version Source'
20172034 provider: [ epiLogSourceText ];
2035+ addPageTitle: ' Cherrypick' provider: [
2036+ SpPresenter new
2037+ layout: (SpBoxLayout newVertical
2038+ add: (SpPanedLayout newVertical
2039+ positionOfSlider: 0.3 ;
2040+ add: epiLogCherrypickList;
2041+ add: epiLogCherrypickText);
2042+ add: epiLogCherrypickButton expand: false ;
2043+ yourself );
2044+ yourself ];
20182045 yourself .
20192046 updateEpiLogButton := self newButton
20202047 icon: (self iconNamed: #refreshCircling );
0 commit comments