Creating an error pane for database importer markdeep page.
This commit is contained in:
parent
a350b58d55
commit
20df072984
@ -60,6 +60,56 @@ LeDatabase >> docTreeForLink: aString [
|
|||||||
^ (XMLHTMLParser on: aString asUrl retrieveContents) parseDocument
|
^ (XMLHTMLParser on: aString asUrl retrieveContents) parseDocument
|
||||||
]
|
]
|
||||||
|
|
||||||
|
{ #category : #'*MiniDocs' }
|
||||||
|
LeDatabase >> gtViewErrorDetailsOn: aView [
|
||||||
|
<gtView>
|
||||||
|
| keepButton overwriteButton backupButton errorMessage |
|
||||||
|
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).
|
||||||
|
|
||||||
|
errorMessage := BrEditor new
|
||||||
|
aptitude: BrGlamorousRegularEditorAptitude new "+ aModeLook;";
|
||||||
|
text: String loremIpsum;
|
||||||
|
vFitContent.
|
||||||
|
|
||||||
|
^ aView explicit
|
||||||
|
title: 'Errors' translated;
|
||||||
|
priority: 5;
|
||||||
|
stencil: [
|
||||||
|
| container |
|
||||||
|
container := BlElement new
|
||||||
|
layout: BlFlowLayout new;
|
||||||
|
constraintsDo: [ :c |
|
||||||
|
c vertical fitContent.
|
||||||
|
c horizontal matchParent ];
|
||||||
|
padding: (BlInsets all: 10).
|
||||||
|
container
|
||||||
|
addChild: errorMessage;
|
||||||
|
addChild: keepButton;
|
||||||
|
addChild: overwriteButton;
|
||||||
|
addChild: backupButton
|
||||||
|
"container addChild: self asCardElement "].
|
||||||
|
]
|
||||||
|
|
||||||
{ #category : #'*MiniDocs' }
|
{ #category : #'*MiniDocs' }
|
||||||
LeDatabase >> importErrorMessage: page [
|
LeDatabase >> importErrorMessage: page [
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user