Starting to fix estimated creation time for nodes when importing. Fossil and a remote location are required for that.
This commit is contained in:
parent
1ee1d2bab9
commit
51ad735e0e
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user