Fixing importer error handling.
This commit is contained in:
parent
75e73933d9
commit
f09b7bd0e9
@ -61,6 +61,39 @@ LeDatabase >> docTreeForLink: aString [
|
||||
^ (XMLHTMLParser on: aString asUrl retrieveContents) parseDocument
|
||||
]
|
||||
|
||||
{ #category : #'*MiniDocs' }
|
||||
LeDatabase >> errorCardFor: errorMessage [
|
||||
|
||||
| keepButton overwriteButton backupButton errorMessageUI |
|
||||
keepButton := BrButton new
|
||||
aptitude: BrGlamorousButtonWithIconAndLabelAptitude;
|
||||
beTinySize;
|
||||
label: 'Keep existing page';
|
||||
icon: BrGlamorousVectorIcons cancel;
|
||||
action: [ :aButton | ];
|
||||
margin: (BlInsets left: 10).
|
||||
overwriteButton := BrButton new
|
||||
aptitude: BrGlamorousButtonWithIconAndLabelAptitude;
|
||||
beTinySize;
|
||||
label: 'Overwrite page';
|
||||
icon: BrGlamorousVectorIcons edit;
|
||||
action: [ :aButton | ];
|
||||
margin: (BlInsets left: 10).
|
||||
backupButton := BrButton new
|
||||
aptitude: BrGlamorousButtonWithIconAndLabelAptitude;
|
||||
beTinySize;
|
||||
label: 'BackUp page';
|
||||
icon: BrGlamorousVectorIcons changes;
|
||||
action: [ :aButton | ];
|
||||
margin: (BlInsets left: 10).
|
||||
|
||||
errorMessageUI := BrEditor new
|
||||
aptitude: BrGlamorousRegularEditorAptitude new "+ aModeLook;";
|
||||
text: errorMessage;
|
||||
vFitContent.
|
||||
^ { errorMessageUI. keepButton. overwriteButton. backupButton }
|
||||
]
|
||||
|
||||
{ #category : #'*MiniDocs' }
|
||||
LeDatabase >> errors [
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user