Skip to content

Commit 3ee3716

Browse files
committed
fix hideho on refactoring browser
1 parent 821ec8a commit 3ee3716

File tree

1 file changed

+27
-0
lines changed

1 file changed

+27
-0
lines changed

repository/ViennaTalk-Browser-Core/ViennaRefactoringBrowser.class.st

Lines changed: 27 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)