From 51ad735e0e900256f4c8c8b1ca2ff71414294b8f Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Mon, 17 Apr 2023 08:55:37 -0500
Subject: [PATCH] Starting to fix estimated creation time for nodes when
 importing. Fossil and a remote location are required for that.

---
 src/MiniDocs/GrafoscopioNode.class.st | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/src/MiniDocs/GrafoscopioNode.class.st b/src/MiniDocs/GrafoscopioNode.class.st
index 9202e6b..280d2f4 100644
--- a/src/MiniDocs/GrafoscopioNode.class.st
+++ b/src/MiniDocs/GrafoscopioNode.class.st
@@ -12,11 +12,20 @@ Class {
 		'created',
 		'nodesInPreorder',
 		'selected',
-		'edited'
+		'edited',
+		'headers',
+		'key',
+		'output'
 	],
 	#category : #MiniDocs
 }
 
+{ #category : #accessing }
+GrafoscopioNode class >> fromFile: aFileReference [
+
+	^ (STON fromString: aFileReference contents) first parent
+]
+
 { #category : #accessing }
 GrafoscopioNode >> ancestors [
 	"I return a collection of all the nodes wich are ancestors of the receiver node"
@@ -104,7 +113,9 @@ GrafoscopioNode >> created: anObject [
 GrafoscopioNode >> earliestCreationDate [
 	| earliest |
 	
-	earliest := self nodesWithCreationDates first created.
+	self nodesWithCreationDates ifNotEmpty: [
+	earliest := self nodesWithCreationDates first created]
+	ifEmpty: [ earliest := self ].
 	self nodesWithCreationDates do: [:node |
 		node created <= earliest ifTrue: [ earliest := node created ] ].
 	^ earliest