Offray/MiniDocs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-10-09 20:30:40 -05:00
parent fd3b4d7925
commit da2d989a92
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/MiniDocs/LeDatabase.extension.st
View File

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