From c2b7dc371038af1ee66aeb4bf891b55b50e2ca33 Mon Sep 17 00:00:00 2001
From: Sean DeNigris <code@clipperadams.com>
Date: Mon, 22 Jan 2024 20:38:02 -0500
Subject: [PATCH] [Enh]: GT - Make Forms Scrollable

---
 source/Magritte-GToolkit/Object.extension.st | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/Magritte-GToolkit/Object.extension.st b/source/Magritte-GToolkit/Object.extension.st
index fc3b4a5e..d5d5d14c 100644
--- a/source/Magritte-GToolkit/Object.extension.st
+++ b/source/Magritte-GToolkit/Object.extension.st
@@ -59,7 +59,7 @@ Object >> maGtFormFor: aView [
 	^ aView explicit
 		title: 'Magritte';
 		priority: 50;
-		stencil: [ (description elementBuilderFor: self) addButtons; element ];
+		stencil: [ ((description elementBuilderFor: self) addButtons; element) asScrollableElement ];
 		actionButtonIcon: BrGlamorousVectorIcons inspect
 		  label: 'Memento'
 		  tooltip: 'Inspect Memento'