Starting to fix estimated creation time for nodes when importing. Fossil and a remote location are required for that.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-04-17 08:55:37 -05:00
parent 1ee1d2bab9
commit 51ad735e0e
1 changed files with 13 additions and 2 deletions

View File

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