Errors are now an OrderedCollection to improve future error cards handling.
This commit is contained in:
parent
fd3b4d7925
commit
da2d989a92
@ -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' }
|
||||
|
Loading…
Reference in New Issue
Block a user