From 851233032c9250f7c4ae955f4a2b532b2adaa92f Mon Sep 17 00:00:00 2001 From: Veit Heller Date: Tue, 17 May 2022 14:30:06 +0200 Subject: [PATCH] Add `blocStencil`to number description [feenkcom/gtoolkit#2543] --- source/Magritte-Model/MANumberDescription.class.st | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/source/Magritte-Model/MANumberDescription.class.st b/source/Magritte-Model/MANumberDescription.class.st index 5af1f1ae..e35f4e58 100644 --- a/source/Magritte-Model/MANumberDescription.class.st +++ b/source/Magritte-Model/MANumberDescription.class.st @@ -4,7 +4,7 @@ I am a description of numbers, possible values are instances of ==Number== and a Class { #name : #MANumberDescription, #superclass : #MAMagnitudeDescription, - #category : 'Magritte-Model-Description' + #category : #'Magritte-Model-Description' } { #category : #'accessing-defaults' } @@ -41,3 +41,14 @@ MANumberDescription >> beNegative [ MANumberDescription >> bePositive [ self addCondition: (MACondition selector: #positive) labelled: 'No positive number was entered' ] + +{ #category : #accessing } +MANumberDescription >> blocStencil [ + + ^ self propertyAt: #blocStencil ifAbsent: [ nil ] +] + +{ #category : #accessing } +MANumberDescription >> blocStencil: aBlock [ + self propertyAt: #blocStencil put: aBlock +]