spec layouts should now be on instance side (#27)

Author: demarey

source/Teapot-Tools/TeaFormTab.class.st

@@ -13,17 +13,6 @@ Class {
 	#tag : 'UI-Components'
 }
 
-{ #category : 'specs' }
-TeaFormTab class >> defaultLayout [
-	^ SpBoxLayout newVertical 
-		add: #form expand: false fill: false;
-      add: (SpBoxLayout newHorizontal 
-		   add: #addButton expand: false fill: false;
-         hAlignCenter;
-         yourself) expand: false fill: false;		
-		yourself
-]
-
 { #category : 'accessing' }
 TeaFormTab >> addButton [
 	^ addButton 
@@ -34,6 +23,17 @@ TeaFormTab >> connectPresenters [
 	addButton whenActionPerformedDo: [ form addKey: 'key' value: 'value' ]
 ]
 
+{ #category : 'layout' }
+TeaFormTab >> defaultLayout [
+	^ SpBoxLayout newVertical 
+		add: form expand: false fill: false;
+      add: (SpBoxLayout newHorizontal 
+		   add: addButton expand: false fill: false;
+         hAlignCenter;
+         yourself) expand: false fill: false;		
+		yourself
+]
+
 { #category : 'accessing' }
 TeaFormTab >> form [
 	^ form

source/Teapot-Tools/TeaKeyValueInput.class.st

@@ -14,15 +14,6 @@ Class {
 	#tag : 'UI-Components'
 }
 
-{ #category : 'specs' }
-TeaKeyValueInput class >> defaultLayout [
-	^ SpBoxLayout newHorizontal  
-		add: #keyInput expand: true fill: true padding: 5;
-		add: #valueInput expand: true fill: true padding: 5;
-		add: #removeButton expand: false fill: false padding: 5;
-		vAlignStart;
-		yourself
-]
 
 { #category : 'instance creation' }
 TeaKeyValueInput class >> key: keyString value: valueString removeAction: aBlock [
@@ -37,6 +28,16 @@ TeaKeyValueInput >> asAssociation [
 	^ keyInput text -> valueInput text
 ]
 
+{ #category : 'layout' }
+TeaKeyValueInput >> defaultLayout [
+	^ SpBoxLayout newHorizontal  
+		add: keyInput expand: true fill: true padding: 5;
+		add: valueInput expand: true fill: true padding: 5;
+		add: removeButton expand: false fill: false padding: 5;
+		vAlignStart;
+		yourself
+]
+
 { #category : 'initialization' }
 TeaKeyValueInput >> initializePresenters [
 	keyInput := self newTextInput placeholder: 'key'; yourself.

source/Teapot-Tools/TeaRequestBodyTabs.class.st

@@ -16,11 +16,11 @@ Class {
 }
 
 { #category : 'layout' }
-TeaRequestBodyTabs class >> defaultLayout [
+TeaRequestBodyTabs >> defaultLayout [
 	^ SpBoxLayout newVertical 
-		add: #label expand: false fill: false;
+		add: label expand: false fill: false;
 		spacing: 5;
-		add: #requestBody expand: true fill: true;
+		add: requestBody expand: true fill: true;
 		yourself
 ]
 

source/Teapot-Tools/Teaspoon.class.st

@@ -19,35 +19,6 @@ Class {
 	#tag : 'UI'
 }
 
-{ #category : 'layout' }
-Teaspoon class >> defaultLayout [
-    ^ SpBoxLayout newVertical 
-        add: (SpBoxLayout newHorizontal
-                    vAlignCenter;
-                    add: #methodDropList expand: false fill: false;
-                    spacing: 5;
-                    add: #urlInput expand: true fill: true;
-                    yourself) 
-            expand: false fill: false padding: 10;
-        add: #requestBody expand: true fill: true;
-        add: (SpBoxLayout newHorizontal
-                vAlignCenter;
-                add: #contentTypeLabel expand: false fill: false;
-                spacing: 5;
-                add: #contentTypeDropList expand: true fill: true;
-                yourself)
-            expand: false fill: false;
-        spacing: 10;		
-		  add: #resultLabel expand: false fill: false;
-        add: #resultText expand: true fill: true;
-        add: (SpBoxLayout newHorizontal 
-                add: #execButton expand: false fill: false;
-                hAlignCenter;
-                yourself)
-            expand: false fill: false;
-        yourself
-]
-
 { #category : 'private - accessing' }
 Teaspoon class >> iconProvider [
 
@@ -113,6 +84,35 @@ Teaspoon >> contentTypeLabel [
 	^ contentTypeLabel
 ]
 
+{ #category : 'layout' }
+Teaspoon >> defaultLayout [
+    ^ SpBoxLayout newVertical 
+        add: (SpBoxLayout newHorizontal
+                    vAlignCenter;
+                    add: methodDropList expand: false fill: false;
+                    spacing: 5;
+                    add: urlInput expand: true fill: true;
+                    yourself) 
+            expand: false fill: false padding: 10;
+        add: requestBody expand: true fill: true;
+        add: (SpBoxLayout newHorizontal
+                vAlignCenter;
+                add: contentTypeLabel expand: false fill: false;
+                spacing: 5;
+                add: contentTypeDropList expand: true fill: true;
+                yourself)
+            expand: false fill: false;
+        spacing: 10;		
+		  add: resultLabel expand: false fill: false;
+        add: resultText expand: true fill: true;
+        add: (SpBoxLayout newHorizontal 
+                add: execButton expand: false fill: false;
+                hAlignCenter;
+                yourself)
+            expand: false fill: false;
+        yourself
+]
+
 { #category : 'accessing' }
 Teaspoon >> execButton [
 	^ execButton