updated match tool ui

jordanmontt · Nov 17, 2021 · a76d8ed · a76d8ed
1 parent d9aae61
commit a76d8ed
Showing 1 changed file with 10 additions and 6 deletions.
diff --git 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)