From a76d8eda51aba1239dc288c6fe1977bcdc1ac49f Mon Sep 17 00:00:00 2001 From: jordanmontt Date: Wed, 17 Nov 2021 11:07:10 +0100 Subject: [PATCH] updated match tool ui --- src/RewriteRuleTools/MatchToolPresenter.class.st | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/src/RewriteRuleTools/MatchToolPresenter.class.st b/src/RewriteRuleTools/MatchToolPresenter.class.st index aba0605..4fc3d8b 100644 --- a/src/RewriteRuleTools/MatchToolPresenter.class.st +++ b/src/RewriteRuleTools/MatchToolPresenter.class.st @@ -103,17 +103,21 @@ MatchToolPresenter >> getBindingsItemsForMatch: bindingsAssociation [ { #category : #initialization } MatchToolPresenter >> initializeLayout [ - | rulePanel codePanel matchesListPanel | + | rulePanel codePanel matchesWithLabelPanel | rulePanel := SpBoxLayout newTopToBottom - add: methodCheckbox expand: false; + add: (SpBoxLayout newLeftToRight + add: methodCheckbox expand: false; + addLast: executeButton expand: false; + yourself) + expand: false; add: ruleEditor; yourself. codePanel := SpBoxLayout newTopToBottom add: codeLabel expand: false; add: codeEditor; yourself. - matchesListPanel := SpBoxLayout newVertical - add: executeButton expand: false; + matchesWithLabelPanel := SpBoxLayout newTopToBottom + add: (self newLabel label: 'Matches') expand: false; add: matchesList; yourself. @@ -122,8 +126,8 @@ MatchToolPresenter >> initializeLayout [ add: rulePanel; add: codePanel; yourself); - add: (SpPanedLayout newHorizontal - add: matchesListPanel; + add: (SpPanedLayout newLeftToRight + add: matchesWithLabelPanel; add: bindingsTable; yourself); yourself)