Set a minimumHeight for SquotPluggableWorkspace

hpi-swa · Oct 19, 2023 · 1a2587a · 1a2587a
1 parent a88ddde
commit 1a2587a
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 2 deletions.
diff --git a/src/Squot.package/SquotPluggableWorkspace.class/instance/buildWith..st b/src/Squot.package/SquotPluggableWorkspace.class/instance/buildWith..st
@@ -1,3 +1,5 @@
 toolbuilder
 buildWith: builder
-	^ self buildCodePaneWith: builder
+	^ (self buildCodePaneWith: builder)
+		minimumHeight: (self minHeightWith: builder);
+		yourself
diff --git a/src/Squot.package/SquotPluggableWorkspace.class/instance/minHeightWith..st b/src/Squot.package/SquotPluggableWorkspace.class/instance/minHeightWith..st
@@ -0,0 +1,3 @@
+toolbuilder
+minHeightWith: builder
+	^ builder inputFieldHeightFor: 3 "lines"
diff --git a/src/Squot.package/SquotPluggableWorkspace.class/methodProperties.json b/src/Squot.package/SquotPluggableWorkspace.class/methodProperties.json
@@ -2,8 +2,9 @@
 	"class" : {
 		 },
 	"instance" : {
-		"buildWith:" : "mad 9/15/2023 16:17",
+		"buildWith:" : "mad 10/19/2023 18:01",
 		"contents:notifying:" : "mad 9/13/2023 17:44",
 		"evaluate:notifying:ifFail:" : "mad 9/13/2023 17:40",
+		"minHeightWith:" : "mad 10/19/2023 18:01",
 		"onSave" : "mad 9/10/2023 21:03",
 		"onSave:" : "mad 9/10/2023 21:03" } }