From ce4696f16ad7eb94cc6fece66d043a2338de4cd8 Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Mon, 10 Oct 2022 09:17:08 -0500 Subject: [PATCH] Deletion of error message, after error handling. --- src/MiniDocs/LeDatabase.extension.st | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/MiniDocs/LeDatabase.extension.st b/src/MiniDocs/LeDatabase.extension.st index e699d0c..0c8c063 100644 --- a/src/MiniDocs/LeDatabase.extension.st +++ b/src/MiniDocs/LeDatabase.extension.st @@ -73,7 +73,8 @@ LeDatabase >> errorCardFor: error [ icon: BrGlamorousVectorIcons cancel; margin: (BlInsets left: 10); action: [ :aButton | - aButton phlow spawnObject: localPage + aButton phlow spawnObject: localPage. + self errors removeKey: errorKey ]. overwriteButton := BrButton new aptitude: BrGlamorousButtonWithIconAndLabelAptitude; @@ -81,7 +82,8 @@ LeDatabase >> errorCardFor: error [ icon: BrGlamorousVectorIcons edit; action: [ :aButton | 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). backupButton := BrButton new