add explicit home card feenkcom/gtoolkit#3766

feenkcom · May 20, 2024 · 604ac71 · 604ac71
1 parent e2a719f
commit 604ac71
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 0 deletions.
diff --git a/src/GToolkit-World/GtExplicitHomeCard.class.st b/src/GToolkit-World/GtExplicitHomeCard.class.st
@@ -0,0 +1,18 @@
+Class {
+	#name : #GtExplicitHomeCard,
+	#superclass : #GtHomeCard,
+	#instVars : [
+		'stencil'
+	],
+	#category : #'GToolkit-World-Sections'
+}
+
+{ #category : #accessing }
+GtExplicitHomeCard >> create [
+	^ stencil value
+]
+
+{ #category : #accessing }
+GtExplicitHomeCard >> stencil: aBlockOrStencil [
+	stencil := aBlockOrStencil
+]
diff --git a/src/GToolkit-World/GtHomeCard.class.st b/src/GToolkit-World/GtHomeCard.class.st
@@ -26,6 +26,12 @@ GtHomeCard class >> errorCard [
 		definingMethod: (GtPhlowDefiningMethodsCollector forContext: thisContext) collect
 ]
 
+{ #category : #accessing }
+GtHomeCard class >> explicit [
+	^ GtExplicitHomeCard new
+		definingMethod: (GtPhlowDefiningMethodsCollector forContext: thisContext) collect
+]
+
 { #category : #factory }
 GtHomeCard class >> job [
 	^ GtJobHomeCard new