From 53c16603d46f70ac2fc7b24692d2a124fc79feeb Mon Sep 17 00:00:00 2001
From: jordanmontt <sebastianjmt@hotmail.com>
Date: Sat, 23 Sep 2023 12:26:30 +0200
Subject: [PATCH] Improved alternator presenter

---
 src/IllimaniUI/AllocatedObjectsTablePresenter.class.st | 2 +-
 src/IllimaniUI/AlternatorPresenter.class.st            | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/IllimaniUI/AllocatedObjectsTablePresenter.class.st b/src/IllimaniUI/AllocatedObjectsTablePresenter.class.st
index 2eb77a4..8295278 100644
--- a/src/IllimaniUI/AllocatedObjectsTablePresenter.class.st
+++ b/src/IllimaniUI/AllocatedObjectsTablePresenter.class.st
@@ -50,7 +50,7 @@ AllocatedObjectsTablePresenter >> initializePresenters [
 		alternateRowsColor;
 		addColumn: (SpIndexTableColumn new
 			title: 'Index';
-			beNotExpandable;
+			width: 60;
 			yourself);
 		addColumn: (SpStringTableColumn
 			title: 'Allocated object class'
diff --git a/src/IllimaniUI/AlternatorPresenter.class.st b/src/IllimaniUI/AlternatorPresenter.class.st
index f2fd8e8..92c0b6a 100644
--- a/src/IllimaniUI/AlternatorPresenter.class.st
+++ b/src/IllimaniUI/AlternatorPresenter.class.st
@@ -47,7 +47,10 @@ AlternatorPresenter >> defaultLayout [
 	^ SpBoxLayout newTopToBottom
 		  spacing: 5;
 		  add: (SpBoxLayout newLeftToRight
-				   add: toggleChartButton;
+				   vAlignCenter;
+				   hAlignEnd;
+				   add: 'Alternate: ' expand: false;
+				   add: toggleChartButton width: 150;
 				   yourself)
 		  expand: false;
 		  add: self activePresenter expand: true;