Deletion of error message, after error handling.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-10-10 09:17:08 -05:00
parent 9371ddfef6
commit ce4696f16a
1 changed files with 4 additions and 2 deletions

View File

@ -73,7 +73,8 @@ LeDatabase >> errorCardFor: error [
icon: BrGlamorousVectorIcons cancel; icon: BrGlamorousVectorIcons cancel;
margin: (BlInsets left: 10); margin: (BlInsets left: 10);
action: [ :aButton | action: [ :aButton |
aButton phlow spawnObject: localPage aButton phlow spawnObject: localPage.
self errors removeKey: errorKey
]. ].
overwriteButton := BrButton new overwriteButton := BrButton new
aptitude: BrGlamorousButtonWithIconAndLabelAptitude; aptitude: BrGlamorousButtonWithIconAndLabelAptitude;
@ -81,7 +82,8 @@ LeDatabase >> errorCardFor: error [
icon: BrGlamorousVectorIcons edit; icon: BrGlamorousVectorIcons edit;
action: [ :aButton | action: [ :aButton |
self removePage: localPage. self removePage: localPage.
aButton phlow spawnObject: (self addPageFromMarkdeepUrl: (error at: errorKey at: 'remote')) aButton phlow spawnObject: (self addPageFromMarkdeepUrl: (error at: errorKey at: 'remote')).
self errors removeKey: errorKey
]; ];
margin: (BlInsets left: 10). margin: (BlInsets left: 10).
backupButton := BrButton new backupButton := BrButton new