ZTimestamp>>#gtPreviewFor: added using new parts+legends elements

feenkcom · Mar 27, 2024 · d14916e · d14916e
1 parent 2898cff
commit d14916e
Showing 1 changed file with 72 additions and 0 deletions.
diff --git a/src/GToolkit4ZTimestamp/ZTimestamp.extension.st b/src/GToolkit4ZTimestamp/ZTimestamp.extension.st
@@ -1,5 +1,77 @@
 Extension { #name : #ZTimestamp }
 
+{ #category : #'*GToolkit4ZTimestamp' }
+ZTimestamp >> gtPreviewFor: aView [
+	<gtView>
+	^ aView explicit
+		title: 'Preview';
+		priority: 1;
+		stencil: [ | container |
+			container := BlElement new
+					layout: BlLinearLayout horizontal;
+					padding: (BlInsets all: 5);
+					constraintsDo: [ :c | 
+						c horizontal fitContent.
+						c vertical fitContent ].
+			container addChild: (self
+						newLabel: (self year printStringPadded: 4)
+						withLegend: 'year'
+						primary: true).
+			container addChild: (self
+						newLabel: '-'
+						withLegend: nil
+						primary: false).
+			container addChild: (self
+						newLabel: (self monthIndex printStringPadded: 2)
+						withLegend: 'month'
+						primary: true).
+			container addChild: (self
+						newLabel: '-'
+						withLegend: nil
+						primary: false).
+			container addChild: (self
+						newLabel: (self dayOfMonth printStringPadded: 2)
+						withLegend: 'day'
+						primary: true).
+			container addChild: (self
+						newLabel: 'T'
+						withLegend: nil
+						primary: false).
+			container addChild: (self
+						newLabel: (self hours printStringPadded: 2)
+						withLegend: 'hours'
+						primary: true).
+			container addChild: (self
+						newLabel: ':'
+						withLegend: nil
+						primary: false).
+			container addChild: (self
+						newLabel: (self minutes printStringPadded: 2)
+						withLegend: 'minutes'
+						primary: true).
+			container addChild: (self
+						newLabel: ':'
+						withLegend: nil
+						primary: false).
+			container addChild: (self
+						newLabel: (self seconds printStringPadded: 2)
+						withLegend: 'seconds'
+						primary: true).
+			container addChild: (self
+						newLabel: '.'
+						withLegend: nil
+						primary: false).
+			container addChild: (self
+						newLabel: (self formatNanoseconds: self nanoSecond)
+						withLegend: 'nanoseconds'
+						primary: false).
+			container addChild: (self
+						newLabel: 'Z'
+						withLegend: nil
+						primary: false).
+			container ]
+]
+
 { #category : #'*GToolkit4ZTimestamp' }
 ZTimestamp >> gtViewDetailsIn: composite [
 	<gtView>