Deletion of error message, after error handling.
This commit is contained in:
parent
9371ddfef6
commit
ce4696f16a
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user