From 25c611b58565fde651cdd0f298c849454716b45b Mon Sep 17 00:00:00 2001
From: Sven Van Caekenberghe <sven@beta9.be>
Date: Fri, 22 Sep 2023 08:46:42 +0200
Subject: [PATCH] Add GT inspector extension for ZTimestamp details

---
 .../ZTimestamp-GT/ZTimestamp.extension.st     | 28 +++++++++++++++++++
 repository/ZTimestamp-GT/package.st           |  1 +
 2 files changed, 29 insertions(+)
 create mode 100644 repository/ZTimestamp-GT/ZTimestamp.extension.st
 create mode 100644 repository/ZTimestamp-GT/package.st

diff --git a/repository/ZTimestamp-GT/ZTimestamp.extension.st b/repository/ZTimestamp-GT/ZTimestamp.extension.st
new file mode 100644
index 0000000..ac59684
--- /dev/null
+++ b/repository/ZTimestamp-GT/ZTimestamp.extension.st
@@ -0,0 +1,28 @@
+Extension { #name : #ZTimestamp }
+
+{ #category : #'*ZTimestamp-GT' }
+ZTimestamp >> gtViewDetailsIn: composite [
+	<gtView>
+	^ composite columnedList
+		title: 'Details';
+		items: [ {('iso' -> self printString).
+			('year' -> self year).
+			('month' -> self monthIndex).
+			('month name' -> self monthName).
+			('day of month' -> self dayOfMonth).
+			('day of week' -> self dayOfWeekName).
+			('day of year' -> self dayOfYear).
+			('hours' -> self hours).
+			('minutes' -> self minutes).
+			('seconds' -> self seconds).
+			('nanoseconds' -> self nanoSecond).
+			('offset' -> self offset).
+			('date' -> self asDate).
+			('time' -> self asTime).
+			('unix time' -> self asUnixTime).
+			('julian day number' -> self julianDayNumber).
+			('nanoseconds since midnight' -> self nanosecondsSinceMidnight) } ];
+		column: 'Key' text: #key;
+		column: 'Value' text: #value;
+		send: #value
+]
diff --git a/repository/ZTimestamp-GT/package.st b/repository/ZTimestamp-GT/package.st
new file mode 100644
index 0000000..bc8d34f
--- /dev/null
+++ b/repository/ZTimestamp-GT/package.st
@@ -0,0 +1 @@
+Package { #name : #'ZTimestamp-GT' }