Add details and transitions inspector views to ZTimezone

svenvc · Sep 22, 2023 · 8633921 · 8633921
1 parent b49f367
commit 8633921
Showing 1 changed file with 25 additions and 0 deletions.
diff --git a/repository/ZTimestamp-GT/ZTimezone.extension.st b/repository/ZTimestamp-GT/ZTimezone.extension.st
@@ -0,0 +1,25 @@
+Extension { #name : #ZTimezone }
+
+{ #category : #'*ZTimestamp-GT' }
+ZTimezone >> gtViewDetailsIn: composite [
+	<gtView>
+	^ composite columnedList
+		title: 'Details';
+		items: [ {('id' -> self id).
+			('current offset' -> (self offsetForTimestamp: ZTimestamp now)).
+			('current subzone' -> (self subzoneForTimestamp: ZTimestamp now)) } ];
+		column: 'Key' text: #key;
+		column: 'Value' text: #value;
+		send: #value
+]
+
+{ #category : #'*ZTimestamp-GT' }
+ZTimezone >> gtViewTransitionsIn: composite [
+	<gtView>
+	^ composite columnedList
+		title: 'Transitions';
+		items: [ self resolvedTransitions ];
+		column: 'Start' text: #key;
+		column: 'Subzone' text: #value;
+		send: #value
+]