From 128c557d2ff970c1a90f448e006c81dd30a0b5a0 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Mon, 4 Apr 2022 16:34:55 -0500
Subject: [PATCH] STON preview and starting SQLite storage.

---
 Socialmetrica.package/Tweet.class/instance/gtTextFor..st  | 6 ++++++
 .../Tweet.class/instance/reStoreDefinition.st             | 8 ++++++++
 2 files changed, 14 insertions(+)
 create mode 100644 Socialmetrica.package/Tweet.class/instance/gtTextFor..st
 create mode 100644 Socialmetrica.package/Tweet.class/instance/reStoreDefinition.st

diff --git a/Socialmetrica.package/Tweet.class/instance/gtTextFor..st b/Socialmetrica.package/Tweet.class/instance/gtTextFor..st
new file mode 100644
index 0000000..7e94929
--- /dev/null
+++ b/Socialmetrica.package/Tweet.class/instance/gtTextFor..st
@@ -0,0 +1,6 @@
+accessing
+gtTextFor: aView
+	<gtView>
+	^ aView textEditor
+		title: 'STON';
+		text: [ STON toStringPretty: self ]
\ No newline at end of file
diff --git a/Socialmetrica.package/Tweet.class/instance/reStoreDefinition.st b/Socialmetrica.package/Tweet.class/instance/reStoreDefinition.st
new file mode 100644
index 0000000..075db62
--- /dev/null
+++ b/Socialmetrica.package/Tweet.class/instance/reStoreDefinition.st
@@ -0,0 +1,8 @@
+accessing
+reStoreDefinition
+	^ super reStoreDefinition
+		define: #id as: String;
+		define: #text as: String;
+		define: #created as: String;
+		defineAsID: #id;
+		yourself
\ No newline at end of file