Errors are now an OrderedCollection to improve future error cards handling.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-10-09 20:30:40 -05:00
parent fd3b4d7925
commit da2d989a92

View File

@ -62,7 +62,7 @@ LeDatabase >> docTreeForLink: aString [
]
{ #category : #'*MiniDocs' }
LeDatabase >> errorCardFor: errorMessage [
LeDatabase >> errorCardFor: error [
| keepButton overwriteButton backupButton errorMessageUI |
keepButton := BrButton new
@ -89,7 +89,7 @@ LeDatabase >> errorCardFor: errorMessage [
errorMessageUI := BrEditor new
aptitude: BrGlamorousRegularEditorAptitude new ;
text: errorMessage;
text: (error at: 'message');
vFitContent.
^ { errorMessageUI. keepButton. overwriteButton. backupButton }
]
@ -115,14 +115,14 @@ LeDatabase >> gtViewErrorDetailsOn: aView [
c horizontal matchParent ];
padding: (BlInsets all: 10).
container
addChildren: (self errorCardFor: self errors associations first value)
addChildren: (self errorCardFor: self errors first)
"container addChild: self asCardElement "].
]
{ #category : #'*MiniDocs' }
LeDatabase >> importErrorForLocal: page withRemote: externalDocLocation [
| message id |
| message id error |
id := page uidString.
message := String streamContents: [ :stream |
stream
@ -145,7 +145,12 @@ LeDatabase >> importErrorForLocal: page withRemote: externalDocLocation [
nextPutAll:
'Please choose one of the following options to addres the issue:
' ].
self errors at: id put: message
error := Dictionary new
at: 'key' put: id;
at:'remote' put: externalDocLocation;
at: 'message' put: message;
yourself.
self errors add: error
]
{ #category : #'*MiniDocs' }